Use in the same manner as the COBOL SEARCH verb, including conditionals and looping for each WHEN condition.
Restriction: This topic applies only when the AppMaster Builder AddPack has been installed, and applies only to Windows platforms.
Syntax: for Format 1
SEARCH identifier1 VARYING indexname|identifier2
... [[AT] END]
statementblock
[WHEN searchcondition1
statementblock ]
.
.
[WHEN searchconditionN
statementblock ]
Syntax: for Format 2
SEARCH ALL identifier [[AT] END]
statementblock
WHEN searchcondition
statementblock
Example:
Use SEARCH to achieve the NEXT SENTENCE concept. If the condition in lines 1040-1050 is true, pass control to line 1110.
001010 PARA SEARCH-TABLE
001020 SEARCH STOCK-ELEMENT AT END
001030 PERFORM END-ROUTINE
001040 WHEN QUAN-ON-HAND (STOCK-INDEX) NOT <
001050 ... QUAN-NEEDED (STOCK-INDEX)
001060 WHEN QUAN-ON-HAND (STOCK-INDEX) = ZERO
001070 PERFORM NO-STOCK-ROUTINE
001080 WHEN QUAN-ON-HAND (STOCK-INDEX) <
001090 ... QUAN-NEEDED (STOCK-INDEX)
001100 PERFORM DETERMINE-IF-ORDER-ROUTINE
001110 WORK-QUAN = QUAN-ON-HAND (STOCK-INDEX)
