The NEXT SENTENCE statement transfers control to the next COBOL statement, which is immediately after the sentence ending with period.
IDENTIFICATION DIVISION.
PROGRAM-ID. NEXT1.
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)
NEXT SENTENCE
END-IF.
DISPLAY 'VALUE OF A' WS-A
DISPLAY 'VALUE OF B' WS-B
STOP RUN.
IDENTIFICATION DIVISION.
PROGRAM-ID. NEXT1.
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)
NEXT SENTENCE
END-IF.
DISPLAY 'VALUE OF A' WS-A
DISPLAY 'VALUE OF B' WS-B
STOP RUN.
No comments:
Post a Comment