       01  W-DEVICE-REDUC12.
           03                          PIC X(33)   VALUE
               '003913045850040024866300610400181'.
           03                          PIC X(33)   VALUE
               '008905578930090048351101060153241'.
           03                          PIC X(33)   VALUE
               '010721605750108256088102271097679'.
           03                          PIC X(33)   VALUE
               '025924145490308002018703151761373'.
           03                          PIC X(33)   VALUE
               '031820983430377001229703780005452'.
           03                          PIC X(33)   VALUE
               '038504510610386083487803890003811'.
           03                          PIC X(33)   VALUE
               '039000030480391000640903920003078'.
           03                          PIC X(33)   VALUE
               '039300192430394000375503950003839'.
           03                          PIC X(33)   VALUE
               '039600023080397000337903980006532'.
           03                          PIC X(33)   VALUE
               '040000044270401000346604020033177'.
           03                          PIC X(33)   VALUE
               '040300076400404001024104060004332'.
           03                          PIC X(33)   VALUE
               '040800595240414002417004250566693'.
           03                          PIC X(33)   VALUE
               '064802009440654053996906550717400'.
           03                          PIC X(11)   VALUE
               '06800410931'.
       01  W-DEVICE-REDUC-TABLE REDEFINES W-DEVICE-REDUC12.
           03  DEV-RED12 OCCURS 40 TIMES
                   ASCENDING KEY IS DEV-APC12
                   INDEXED BY DEV-INDX12.
               05  DEV-APC12           PIC X(4).
               05  DEV-REDUC12         PIC 9(5)V99.
       01  DEV-MAX12                   PIC S9(7)   COMP-3
                                       VALUE +40.
