COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-213
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