IDENTIFICATION   DIVISION.
       PROGRAM-ID.      ACCEPTBUG.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
         01  DISPLAY-VARIABLES.
           05 NUMERIC-INPUT PIC 9(4) VALUE ZERO.
       PROCEDURE        DIVISION.
       FIRST-TRY.
           DISPLAY SPACES.
           DISPLAY "COMPARE IS   = 0"
           DISPLAY "PLEASE GIVE IN ZERO: "
           ACCEPT NUMERIC-INPUT.
           IF NUMERIC-INPUT = 0 
              DISPLAY "INPUT WAS = 0"
            ELSE
              DISPLAY "INPUT WAS NOT = 0"
           END-IF.
       SECOND-TRY.
           DISPLAY SPACES.
           DISPLAY "COMPARE IS   <= 0"
           DISPLAY "PLEASE GIVE IN ZERO: "
           ACCEPT NUMERIC-INPUT.
           IF NUMERIC-INPUT <= 0 
              DISPLAY "INPUT WAS <= 0"
            ELSE
              DISPLAY "INPUT WAS NOT <= 0"
           END-IF.

           STOP RUN.