01  W-DEVICE-REDUC11.
           03                          PIC X(33)   VALUE
               '003912623450040026202600610396604'.
           03                          PIC X(33)   VALUE
               '008905537760090048010401060163882'.
           03                          PIC X(33)   VALUE
               '010720680310108234705402271082772'.
           03                          PIC X(33)   VALUE
               '025926479070307003616603080021215'.
           03                          PIC X(33)   VALUE
               '031516562290318194430503770012933'.
           03                          PIC X(33)   VALUE
               '037800056050385043062303860831078'.
           03                          PIC X(33)   VALUE
               '038900030380390000322503910006499'.
           03                          PIC X(33)   VALUE
               '039200044400393001765203940003945'.
           03                          PIC X(33)   VALUE
               '039500036060396000224903970005353'.
           03                          PIC X(33)   VALUE
               '039800059300400000405604010003029'.
           03                          PIC X(33)   VALUE
               '040200337070403000730804040010425'.
           03                          PIC X(33)   VALUE
               '040600053610408004834404140022847'.
           03                          PIC X(33)   VALUE
               '041807756830425051035906480201376'.
           03                          PIC X(33)   VALUE
               '065405507370655069900806800382902'.
       01  W-DEVICE-REDUC-TABLE REDEFINES W-DEVICE-REDUC11.
           03  DEV-RED11 OCCURS 42 TIMES
                   ASCENDING KEY IS DEV-APC11
                   INDEXED BY DEV-INDX11.
               05  DEV-APC11           PIC X(4).
               05  DEV-REDUC11         PIC 9(5)V99.
       01  DEV-MAX11                   PIC S9(7)   COMP-3
                                       VALUE +42.