       01  W-DEVICE-CREDIT16.
           03                          PIC X(33)   VALUE
               '156503421951599870390051250537644'.
           03                          PIC X(33)   VALUE
               '516625121015192038761051930717896'.
           03                          PIC X(33)   VALUE
               '522204711905223061612552241178934'.
           03                          PIC X(33)   VALUE
               '523116967265232241844953770979963'.
           03                          PIC X(33)   VALUE
               '546202902765463148023354642247858'.
           03                          PIC X(33)   VALUE
               '547111862655493037668954941429340'.
       01  W-DEVICE-CREDIT-TABLE REDEFINES W-DEVICE-CREDIT16.
           03  DEV-CR16 OCCURS 18 TIMES
                   ASCENDING KEY IS DEV-APC16
                   INDEXED BY DEV-INDX16.
               05  DEV-APC16           PIC X(4).
               05  DEV-CAP16           PIC 9(5)V99.
       01  DEV-MAX16                   PIC S9(7)   COMP-3
                                       VALUE +18.
