CONTINUE Statement
The CONTINUE
statement prescribes no action.
General Format:
CONTINUE
General Rules:
The CONTINUE
statement is an imperative statement that prescribes no action.
Code Sample:
IDENTIFICATION DIVISION.
PROGRAM-ID. CONTINUE-1.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 FLD-1 PIC 9 VALUE 1.
77 FLD-2 PIC 9 VALUE 2.
77 FLD-3 PIC 9.
77 DUMMY PIC X.
PROCEDURE DIVISION.
MAIN.
*
*CONTINUE
*
ADD FLD-1 TO FLD-2 GIVING FLD-3
ON SIZE ERROR DISPLAY "SIZE ERROR" LINE 8 COL 10
NOT ON SIZE ERROR CONTINUE
END-ADD.
DISPLAY "CONTINUE-1 COMPLETE!" LINE 10 COL 10.
ACCEPT DUMMY LINE 10 COL 30.
STOP RUN.