COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-221
SET TO
identifier-3
is a data item of any level except 88, anywhere in the Data Division. The value
of ADDRESS OF identifier-3 is the address of identifier-3, not the
value of identifier-3.
identifier-4
is a data item with USAGE POINTER.
NULL
NULLS
is a null address guaranteed not to point to any data item. A reference to a
pointer whose value is NULL causes a trap 1 instruction failure.
If you redefine a VS COBOL II pointer variable as a COMPUTATIONAL field and
perform an arithmetic operation on the field to change the value of the pointer, the
pointer does not behave the same as it would in IBM/370 COBOL. The reason is that
pointer format depends on machine architecture, and NonStop servers and IBM/370
machines have different architectures.
Nonpointer Data Items
SET TO can:
•
Set an index-name to one of these values:
°
A value that corresponds to the occurrence number designated by another
index-name
°
A value that corresponds to the occurrence number corresponding to the value
of an integer literal or an integer data item
°
The value of an index data item
•
Set the value of an index data item to the value of an index-name or the value
associated with the contents of another index data item
•
Set the value of an integer data item to the occurrence number of an index
•
Set an external switch to ON or OFF
•
Set a conditional variable to a value that makes an associated condition true