The CONTINUE statement transfers the control to the next COBOL statement which come next in the program flow.
IDENTIFICATION DIVISION.
PROGRAM-ID. CON.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-A PIC 9(1) VALUE 5.
01 WS-B PIC 9(1) VALUE 3.
PROCEDURE DIVISION.
IF(WS-A>WS-B)
CONTINUE
END-IF
DISPLAY 'VALUE OF A'WS-A.
STOP RUN.
IDENTIFICATION DIVISION.
PROGRAM-ID. CON.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-A PIC 9(1) VALUE 5.
01 WS-B PIC 9(1) VALUE 3.
PROCEDURE DIVISION.
IF(WS-A>WS-B)
CONTINUE
END-IF
DISPLAY 'VALUE OF A'WS-A.
STOP RUN.
No comments:
Post a Comment