COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-78
EXIT
Example 9-23. EXIT PERFORM Statement
0001-TEST-EXIT-PERF.
INITIALIZE WS-ANS.
INITIALIZE WS-NUMBER.
INITIALIZE WS-NUMBER-PERF.
INITIALIZE WS-TEST-RESULTS.
DISPLAY "TEST EXITS-1 FOR EXIT PERFORM BEGINS".
PERFORM
UNTIL WS-NUMBER-PERF = 99
ADD 3 TO WS-NUMBER-PERF
IF WS-NUMBER-PERF = 96
MOVE 1 TO WS-NUMBER-PERF
EXIT PERFORM
END-IF
IF WS-NUMBER-PERF = 1
DISPLAY "DID NOT EXIT PERFORM SUCCESSFULLY"
MOVE 99 TO WS-NUMBER-PERF
END-IF
END-PERFORM.
IF WS-NUMBER-PERF = 1
DISPLAY "TEST EXITS-1 FOR EXIT PERFORM SUCCESSFUL."
ELSE
DISPLAY "TEST EXITS-1 FOR EXIT PERFORM FAILED .".
0001-TEST-EXIT-PERF-EXIT.
EXIT.