       01  W-PTRO-OFFSET-FILLS.
           03                          PIC X(36)   VALUE
               '003072009000029396003082009000019660'.
           03                          PIC X(36)   VALUE
               '003772009000014871003782009000005937'.
           03                          PIC X(36)   VALUE
               '003892009000004642003902009000003260'.
           03                          PIC X(36)   VALUE
               '003912009000006620003922009000003864'.
           03                          PIC X(36)   VALUE
               '003932009000018065003942009000004218'.
           03                          PIC X(36)   VALUE
               '003952009000003457003962009000002428'.
           03                          PIC X(36)   VALUE
               '003972009000003838003982009000006279'.
           03                          PIC X(36)   VALUE
               '004002009000005257004012009000003513'.
           03                          PIC X(36)   VALUE
               '004022009000029674004032009000003876'.
           03                          PIC X(36)   VALUE
               '004042009000010630004062009000006441'.
           03                          PIC X(36)   VALUE
               '004082009000068312004142009000033136'.
       01  W-PTRO-OFFSET-TABLE REDEFINES W-PTRO-OFFSET-FILLS.
           03  PTRO-ENTRY OCCURS 22 TIMES
                   ASCENDING KEY IS PTRO-NUCMED-APC
                   INDEXED BY PTRO-INDX.
               05  PTRO-NUCMED-APC     PIC X(5).
               05  PTRO-EFF-YEAR       PIC 9(4).
               05  PTRO-OFFSET-AMT     PIC 9(7)V99.
       01  PTRO-MAX                    PIC S9(7)   COMP-3
                                       VALUE +22.
