      * https://www.tutorialspoint.com/cobol/cobol_condition_statements.htm
        IDENTIFICATION DIVISION.
        PROGRAM-ID. HELLO.

        DATA DIVISION.
           WORKING-STORAGE SECTION.
           01 WS-NUM1 PIC 9(2) VALUE 20.
           01 WS-NUM2 PIC 9(9) VALUE 25.

        PROCEDURE DIVISION.
           A000-FIRST-PARA.
           
           IF NOT WS-NUM1 IS LESS THAN WS-NUM2 THEN
              DISPLAY 'IF-BLOCK'
           ELSE
              DISPLAY 'ELSE-BLOCK'
           END-IF.
           
        STOP RUN.
