Sunday, September 8, 2019

NEXT SENTENCE in COBOL

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.

No comments:

Post a Comment