COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-214
SEARCH ALL
SEARCH ALL
SEARCH ALL performs a binary search on a table. The table must be declared with a
KEY phrase in its OCCURS clause.
Example 9-62. SEARCH VARYING Statement
WORKING-STORAGE SECTION.
01 COMMANDS.
05 FILLER PIC X(6) VALUE "ADD".
05 FILLER PIC X(6) VALUE "DELETE".
...
01 COMMANDS-IN-TABLE REDEFINES COMMANDS.
05 COMMAND-ENTRIES PIC X(6) OCCURS 6 TIMES
INDEXED BY TABLE-INDEX.
77 COMMAND-IN PIC X(6).
...
PROCEDURE DIVISION.
...
SET TABLE-INDEX TO 1
SEARCH COMMAND-ENTRIES VARYING TABLE-INDEX
AT END
PERFORM COMMAND-ERROR-ROUTINE
WHEN COMMAND-ENTRIES(TABLE-INDEX) = COMMAND-IN
CONTINUE
END-SEARCH
...
tableSEARCH
AT
WHEN
imperative-stmt-1
END-SEARCH
END
SENTENCE
imperative-stmt-2
NEXT
ALL
match-1
AND match-n
VST207.vsd