       01  W-PTRO-OFFSET-FILLS.
           03                          PIC X(36)   VALUE
               '003072009000029396003072010000053487'.
           03                          PIC X(36)   VALUE
               '003082009000019660003082010000020841'.
           03                          PIC X(36)   VALUE
               '003772009000014871003772010000013972'.
           03                          PIC X(36)   VALUE
               '003782009000005937003782010000005613'.
           03                          PIC X(36)   VALUE
               '003892009000004642003892010000003889'.
           03                          PIC X(36)   VALUE
               '003902009000003260003902010000003585'.
           03                          PIC X(36)   VALUE
               '003912009000006620003912010000006452'.
           03                          PIC X(36)   VALUE
               '003922009000003864003922010000005258'.
           03                          PIC X(36)   VALUE
               '003932009000018065003932010000017114'.
           03                          PIC X(36)   VALUE
               '003942009000004218003942010000004026'.
           03                          PIC X(36)   VALUE
               '003952009000003457003952010000003677'.
           03                          PIC X(36)   VALUE
               '003962009000002428003962010000002505'.
           03                          PIC X(36)   VALUE
               '003972009000003838003972010000004293'.
           03                          PIC X(36)   VALUE
               '003982009000006279003982010000006244'.
           03                          PIC X(36)   VALUE
               '004002009000005257004002010000005125'.
           03                          PIC X(36)   VALUE
               '004012009000003513004012010000003600'.
           03                          PIC X(36)   VALUE
               '004022009000029674004022010000030940'.
           03                          PIC X(36)   VALUE
               '004032009000003876004032010000003917'.
           03                          PIC X(36)   VALUE
               '004042009000010630004042010000010236'.
           03                          PIC X(36)   VALUE
               '004062009000006441004062010000004864'.
           03                          PIC X(36)   VALUE
               '004082009000068312004082010000058641'.
           03                          PIC X(36)   VALUE
               '004142009000033136004142010000026843'.
       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.
