       01  W-PTRO-OFFSET-FILLS.
           03                          PIC X(36)   VALUE
               '003072009000029396003072010000053618'.
           03                          PIC X(36)   VALUE
               '003082009000019660003082010000020892'.
           03                          PIC X(36)   VALUE
               '003772009000014871003772010000014006'.
           03                          PIC X(36)   VALUE
               '003782009000005937003782010000005627'.
           03                          PIC X(36)   VALUE
               '003892009000004642003892010000003898'.
           03                          PIC X(36)   VALUE
               '003902009000003260003902010000003594'.
           03                          PIC X(36)   VALUE
               '003912009000006620003912010000006468'.
           03                          PIC X(36)   VALUE
               '003922009000003864003922010000005271'.
           03                          PIC X(36)   VALUE
               '003932009000018065003932010000017157'.
           03                          PIC X(36)   VALUE
               '003942009000004218003942010000004036'.
           03                          PIC X(36)   VALUE
               '003952009000003457003952010000003686'.
           03                          PIC X(36)   VALUE
               '003962009000002428003962010000002511'.
           03                          PIC X(36)   VALUE
               '003972009000003838003972010000004303'.
           03                          PIC X(36)   VALUE
               '003982009000006279003982010000006260'.
           03                          PIC X(36)   VALUE
               '004002009000005257004002010000005138'.
           03                          PIC X(36)   VALUE
               '004012009000003513004012010000003608'.
           03                          PIC X(36)   VALUE
               '004022009000029674004022010000031016'.
           03                          PIC X(36)   VALUE
               '004032009000003876004032010000003926'.
           03                          PIC X(36)   VALUE
               '004042009000010630004042010000010262'.
           03                          PIC X(36)   VALUE
               '004062009000006441004062010000004876'.
           03                          PIC X(36)   VALUE
               '004082009000068312004082010000058785'.
           03                          PIC X(36)   VALUE
               '004142009000033136004142010000026909'.
       01  W-PTRO-OFFSET-TABLE REDEFINES W-PTRO-OFFSET-FILLS.
           03  PTRO-ENTRY OCCURS 44 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 +44.
