COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-219
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
Example 9-63. SEARCH ALL Statement
WORKING-STORAGE SECTION.
01 COMMANDS.
05 FILLER PIC X(6) VALUE "ADD".
05 FILLER PIC X(6) VALUE "DELETE".
05 FILLER PIC X(6) VALUE "EXIT".
05 FILLER PIC X(6) VALUE "LIST".
...
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