       01  W-DEVICE-REDUC08.
           03                          PIC X(33)   VALUE
               '003909826070040022861500610319827'.
           03                          PIC X(33)   VALUE
               '008905655580090048817701060249082'.
           03                          PIC X(33)   VALUE
               '010718946270108230121302221301536'.
           03                          PIC X(33)   VALUE
               '022511329230227094558002592077317'.
           03                          PIC X(33)   VALUE
               '031514816590385027466803860583197'.
           03                          PIC X(33)   VALUE
               '041813652460625030658106540536887'.
           03                          PIC X(33)   VALUE
               '065506655490680032897506811449630'.
       01  W-DEVICE-REDUC-TABLE REDEFINES W-DEVICE-REDUC08.
           03  DEV-RED08 OCCURS 21 TIMES
                   ASCENDING KEY IS DEV-APC8
                   INDEXED BY DEV-INDX8.
               05  DEV-APC8            PIC X(4).
               05  DEV-REDUC8          PIC 9(5)V99.
       01  DEV-MAX8                    PIC S9(7)   COMP-3
                                       VALUE +21.
