       IDENTIFICATION                   DIVISION.
       PROGRAM-ID.                      PracticeA.
       ENVIRONMENT                      DIVISION.
       DATA                             DIVISION.
       WORKING-STORAGE                  SECTION.
       01 WORK                          PIC 9(3).
       01 WORK-R  REDEFINES  INPUT
          03 WORK-R-A                  PIC 9(2).
          03 WORK-R-B                  PIC 9(1).
       PROCEDURE DIVISION.
       MAIN-SECTION.
           ACCEPT    WORK  FROM  SYSIN.
           EVALUATE  TRUE
           WHEN WORK-R-B = 2 OR 4 OR 5 OR 7 OR 9
      	       DISPLAY "HON"
           WHEN WORK-R-B = 0 OR 1 OR 6 OR 8
      	       DISPLAY "PON"
           WHEN WORK-R-B = 3
               DISPLAY "BON"
           END-EVALUATE.
           STOP RUN.      