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

...
01 COMMAND-NUMBERS.
05 COMMAND-INDEX PIC 99 COMP VALUE 1.
05 COMMAND-IN PIC X(6).
...
PROCEDURE DIVISION.
...
SEARCH ALL COMMAND-ENTRIES
AT END
PERFORM COMMAND-ERROR-ROUTINE
GO TO GET-ANOTHER-COMMAND
WHEN COMMAND-ENTRIES(TABLE-INDEX) = COMMAND-IN
CONTINUE
END-SEARCH
SET COMMAND-INDEX TO TABLE-INDEX
...
SET
SET TO
SET TO sets the values of data item addresses, indexes, switches, or conditional variables.
Topics:
• POINTER Data Items
• Nonpointer Data Items
POINTER Data Items
pointer
address
identifier-1
is a level-01 or level-77 data item in the Linkage Section, or a level-01 or level-77 BASED
data item in any section, that does not have an ACCESS MODE STANDARD clause in its
data description entry. If pointer is ADDRESS OF identifier-1, identifier-1 is
relinked so that subsequent references to identifier-1 reference the item whose address
is specified by address.
436 Procedure Division Verbs