COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

• integer Out of Range
In the statement
SET index-name-n TO integer
the value of integer must be at least zero and not greater than the maximum number of
occurrences plus one. If the value of integer is outside this range, a warning message is
produced. If the warning message is produced and subscript checking is active, the run unit
terminates abnormally.
If the value of integer is greater than 2,147,483,647 or less than -2,147,483,648, or if
the product of integer and the occurrence length of the associated table (the length of one
occurrence of the table) is not within that range, a run-time error occurs.
• Any Sending Item Out of Range
If the value of any sending item (identifier-1, index-name-1, or integer ) is greater
than 2,147,483,647 or less than -2,147,483,648 and subscript checking is active, an error
message is produced and the run unit terminates abnormally.
SET UP or SET DOWN
SET UP increments data items addresses or indexes; SET DOWN decrements them.
Topics:
• POINTER Data Items
• Nonpointer Data Items
POINTER Data Items
SET UP increments a pointer by an integral number of memory locations. SET DOWN decrements
a pointer by an integral number of memory locations.
pointer
is a data item with USAGE POINTER. In these parameter descriptions, assume that the value
of pointer is the address p.
number-of-locations
identifier-1
is either an elementary numeric data item described as an integer or a function that returns
an integer value. If number-of-locations is identifier-1, and the value of
identifier-1 is n, then pointer is adjusted so that it references the address p+n bytes
for SET UP or p -n bytes for SET DOWN.
integer
is a numeric literal whose value is an integer. If number-of-locations is integer,
then pointer is adjusted so that it references the address p+integer bytes for SET UP
or p -integer bytes for SET DOWN.
440 Procedure Division Verbs