       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
               '025924124190308002016903151759818'.
           03                          PIC X(33)   VALUE
               '031820964910377001228603780005447'.
           03                          PIC X(33)   VALUE
               '038504506630386083414103890003808'.
           03                          PIC X(33)   VALUE
               '039000030450391000640403920003076'.
           03                          PIC X(33)   VALUE
               '039300192250394000375203950003836'.
           03                          PIC X(33)   VALUE
               '039600023060397000337603980006526'.
           03                          PIC X(33)   VALUE
               '040000044240401000346304020033148'.
           03                          PIC X(33)   VALUE
               '040300076330404001023204060004328'.
           03                          PIC X(33)   VALUE
               '040800594720414002413104250566193'.
           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.
