000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. ABD.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 01 I   PIC 9(4).
000600 PROCEDURE DIVISION.
000700     ACCEPT I FROM CONSOLE
000800*    NO CARRIAGE RETURN EXISTS AT THE LAST OF EACH INPUT CASE
000900*    THEREFORE THE LAST DIGIT WILL NOT BE RECOGNIZED
001000     EVALUATE I IS LESS THAN 100
001100     WHEN TRUE
001200           DISPLAY 'ABC' UPON CONSOLE
001300     WHEN OTHER
001400           DISPLAY 'ABD' UPON CONSOLE
001500     END-EVALUATE
001600     STOP RUN.
