COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-79
EXIT
Usage Considerations:
•
EXIT PROGRAM Statement in a Program That Was Not Called
If a program that was not called by another program executes an EXIT PROGRAM
statement, program execution continues with the next executable statement.
Example 9-24. EXIT PERFORM CYCLE Statement
?SYMBOLS
IDENTIFICATION DIVISION.
PROGRAM-ID. EXIT-PERFORM.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 X PIC 999.
77 X PIC 999.
77 X PIC 999.
PROCEDURE DIVISION.
SUNRISE.
DISPLAY "EXIT PERFORM TEST".
MOVE 0 TO X
MOVE 0 TO Y
MOVE 0 TO Z
* The loop appears to execute 200 times ...
PERFORM UNTIL X=200
ADD 1 TO X
* however, we exit after only 100 times.
IF X = 100
EXIT PERFORM
END-IF
* Y counts to 4, so that every 4th time, exit the perform
* cycle without incrementing Z ...
ADD 1 TO Y
IF Y = 4
MOVE 0 TO Y
EXIT PERFORM CYCLE
END-IF
* so Z is incremented only 75 times, not 100.
ADD 1 TO Z
END-PERFORM
.
DISPLAY "X: " X.
DISPLAY "Y: " Y.
DISPLAY "Z: " Z.