01  W-DEVICE-REDUC09.
           03                          PIC X(33)   VALUE
               '003910591900040024170300610337633'.
           03                          PIC X(33)   VALUE
               '008905620430090046902201060142130'.
           03                          PIC X(33)   VALUE
               '010718850430108250978602221320363'.
           03                          PIC X(33)   VALUE
               '022504458000227100384102592227155'.
           03                          PIC X(33)   VALUE
               '031516110350385037781403860695811'.
           03                          PIC X(33)   VALUE
               '041806519790425047209006480182399'.
           03                          PIC X(33)   VALUE
               '065405531500655071826706800342962'.
           03                          PIC X(11)   VALUE
               '06810872046'.
       01  W-DEVICE-REDUC-TABLE REDEFINES W-DEVICE-REDUC09.
           03  DEV-RED09 OCCURS 22 TIMES
                   ASCENDING KEY IS DEV-APC9
                   INDEXED BY DEV-INDX9.
               05  DEV-APC9            PIC X(4).
               05  DEV-REDUC9          PIC 9(5)V99.
       01  DEV-MAX9                    PIC S9(7)   COMP-3
                                       VALUE +22.