Search syntax in cobol
Posted: Mon Nov 28, 2016 12:55 pm
In this below code when the first WHEN condition is satisfy the search loop automatically ends. Is it right?
MOVE 1 TO WS-DATE
PERFORM UNTIL WS-DATE IS GREATER THAN 05
SET X-HOLIDAY TO 1
SEARCH WS-HOLIDAY-RECORD
AT END CONTINUE
WHEN WS-HOLIDAY(X-HOLIDAY) IS EQUAL TO WS-JULIAN
COMPUTE WS-JULIAN = WS-JULIAN + 1
END-SEARCH
COMPUTE WS-DATE = WS-DATE + 1
END-PERFORM
SET DATE-NOT-ASSIGN TO TRUE
MOVE 1 TO WS-DATE
PERFORM UNTIL WS-DATE IS GREATER THAN 05
SET X-HOLIDAY TO 1
SEARCH WS-HOLIDAY-RECORD
AT END CONTINUE
WHEN WS-HOLIDAY(X-HOLIDAY) IS EQUAL TO WS-JULIAN
COMPUTE WS-JULIAN = WS-JULIAN + 1
END-SEARCH
COMPUTE WS-DATE = WS-DATE + 1
END-PERFORM
SET DATE-NOT-ASSIGN TO TRUE