       01  W-DEVICE-REDUC12.
           03                          PIC X(33)   VALUE
               '003913034340040024844400610399828'.
           03                          PIC X(33)   VALUE
               '008905574010090048308401060153105'.
           03                          PIC X(33)   VALUE
               '010721586680108255862102271096710'.
           03                          PIC X(33)   VALUE
               '025924124190308002019303151759818'.
           03                          PIC X(33)   VALUE
               '031820964910377001230103780005454'.
           03                          PIC X(33)   VALUE
               '038504506630386083414103890003812'.
           03                          PIC X(33)   VALUE
               '039000030490391000641103920003079'.
           03                          PIC X(33)   VALUE
               '039300192480394000375703950003840'.
           03                          PIC X(33)   VALUE
               '039600023090397000338003980006534'.
           03                          PIC X(33)   VALUE
               '040000044290401000346804020033187'.
           03                          PIC X(33)   VALUE
               '040300076430404001024404060004333'.
           03                          PIC X(33)   VALUE
               '040800595430414002415904250566193'.
           03                          PIC X(33)   VALUE
               '064802007670654053949206550716767'.
           03                          PIC X(11)   VALUE
               '06800410568'.
       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.
