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

Procedure Division Verbs
HP COBOL Manual for TNS/E Programs—520347-003
9-207
SET
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
01 COMMANDS-IN-TABLE REDEFINES COMMANDS.
05 COMMAND-ENTRIES PIC X(6) OCCURS 6 TIMES
ASCENDING KEY IS COMMAND-ENTRIES
INDEXED BY TABLE-INDEX.
...
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
...
Form Description
SET TO
Sets the values of data item addresses, indexes, switches, or
conditional variables
SET UP or SET DOWN
Increments or decrements data item addresses or indexes
Example 9-61. SEARCH ALL Statement (page 2 of 2)
SET TOpointer address
VST605.vsd