       01  W-DEVICE-REDUC07.
           03                          PIC X(33)   VALUE
               '003909081940040018798200610310835'.
           03                          PIC X(33)   VALUE
               '008905861670090045161301060151521'.
           03                          PIC X(33)   VALUE
               '010716927070108208672802220866894'.
           03                          PIC X(33)   VALUE
               '022510744480227086052302290194316'.
           03                          PIC X(33)   VALUE
               '025921575310315124226003850228153'.
           03                          PIC X(33)   VALUE
               '038605165000418164930506540536179'.
           03                          PIC X(33)   VALUE
               '065507186000680034095106810927604'.
       01  W-DEVICE-REDUC-TABLE REDEFINES W-DEVICE-REDUC07.
           03  DEV-RED07 OCCURS 21 TIMES
                   ASCENDING KEY IS DEV-APC7
                   INDEXED BY DEV-INDX7.
               05  DEV-APC7            PIC X(4).
               05  DEV-REDUC7          PIC 9(5)V99.
       01  DEV-MAX7                    PIC S9(7)   COMP-3
                                       VALUE +21.
