       IDENTIFICATION                   DIVISION.
       PROGRAM-ID.                      ABC_099_A.
       ENVIRONMENT                      DIVISION.
       DATA                             DIVISION.
       PROCEDURE                        DIVISION.
       MAIN.
           01 N PIC 9(4).
           ACCEPT N FROM CONSOLE.
           IF 999 < N THEN
               DISPLAY "ABD" UPON CONSOLE
           ELSE
               DISPLAY "ABC" UPON CONSOLE
           END-IF.
           STOP RUN.
