       01  W-DEVICE-REDUC10.
           03                          PIC X(33)   VALUE
               '003911839270040025467500610369818'.
           03                          PIC X(33)   VALUE
               '008905736340090049132001060144453'.
           03                          PIC X(33)   VALUE
               '010719485910108244757902250776002'.
           03                          PIC X(33)   VALUE
               '022711044320259243745503151629202'.
           03                          PIC X(33)   VALUE
               '038503905830386077928904181114245'.
           03                          PIC X(33)   VALUE
               '042504595950648018816906540543833'.
           03                          PIC X(22)   VALUE
               '0655071521506800382460'.
       01  W-DEVICE-REDUC-TABLE REDEFINES W-DEVICE-REDUC10.
           03  DEV-RED10 OCCURS 20 TIMES
                   ASCENDING KEY IS DEV-APC10
                   INDEXED BY DEV-INDX10.
               05  DEV-APC10           PIC X(4).
               05  DEV-REDUC10         PIC 9(5)V99.
       01  DEV-MAX10                   PIC S9(7)   COMP-3
                                       VALUE +20.
