       IDENTIFICATION                   DIVISION.
       PROGRAM-ID.                      PracticeA.
       ENVIRONMENT                      DIVISION.
       DATA                             DIVISION.
       WORKING-STORAGE                  SECTION.
       01 INPUT                         PIC 9(3).
       01 INPUT-R  REDEFINES  INPUT
          03 INPUT-R-A                  PIC 9(2).
          03 INPUT-R-B                  PIC 9(1).
       PROCEDURE DIVISION.
       MAIN-SECTION.