-
Notifications
You must be signed in to change notification settings - Fork 38
Closed
Description
Compiling the following program fails.
cobc translates EXIT PERFORM statements to invalid java source code.
IDENTIFICATION DIVISION.
******************************************************************
PROGRAM-ID. a.
******************************************************************
DATA DIVISION.
******************************************************************
WORKING-STORAGE SECTION.
01 IDX PIC 99 VALUE ZERO.
******************************************************************
PROCEDURE DIVISION.
******************************************************************
MAIN-RTN.
PERFORM UNTIL IDX >= 10
DISPLAY IDX
IF IDX >= 5
EXIT PERFORM
END-IF
ADD 1 TO IDX
END-PERFORM.
EXIT.
STOP RUN.
Metadata
Metadata
Assignees
Labels
No labels