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

Procedure Division Verbs
HP COBOL Manual for TNS/E Programs—520347-003
9-201
SEARCH VARYING
Figure 9-11. Execution of a SEARCH VARYING Statement With WHEN Phrases
Enter
indexer
from
INDEXED
BY?
Index is indexer
Index is index-1
from INDEXED BY
TRUE
FALSE
Index >max
?
AT END? Increment index
Execute
imperative-stmt-1
Another
WHEN?
condition
?
Index
is
indexer
?
NEXT
SENTENCE
?
Execute next sentence
Increment indexer
Execute
imperative-stmt-2
Exit
FALSE
TRUE
TRUE
FALSE
TRUE
FALSE FALSE
TRUE
TRUE
FALSE
FALSE
TRUE
VST514.vsd