       01  W-PTRO-OFFSET-FILLS.
           03                          PIC X(36)   VALUE
               '003072009000029396003072010000053487'.
           03                          PIC X(36)   VALUE
               '003072011000036166003082009000019660'.
           03                          PIC X(36)   VALUE
               '003082010000020841003082011000021215'.
           03                          PIC X(36)   VALUE
               '003082012000020187003082013000018936'.
           03                          PIC X(36)   VALUE
               '003772009000014871003772010000013972'.
           03                          PIC X(36)   VALUE
               '003772011000012933003772012000012297'.
           03                          PIC X(36)   VALUE
               '003772013000013063003782009000005937'.
           03                          PIC X(36)   VALUE
               '003782010000005613003782011000005605'.
           03                          PIC X(36)   VALUE
               '003782012000005452003782013000005695'.
           03                          PIC X(36)   VALUE
               '003892009000004642003892010000003889'.
           03                          PIC X(36)   VALUE
               '003892011000003038003892012000003811'.
           03                          PIC X(36)   VALUE
               '003892013000003603003902009000003260'.
           03                          PIC X(36)   VALUE
               '003902010000003585003902011000003225'.
           03                          PIC X(36)   VALUE
               '003902012000003048003902013000003976'.
           03                          PIC X(36)   VALUE
               '003912009000006620003912010000006452'.
           03                          PIC X(36)   VALUE
               '003912011000006499003912012000006409'.
           03                          PIC X(36)   VALUE
               '003912013000006881003922009000003864'.
           03                          PIC X(36)   VALUE
               '003922010000005258003922011000004440'.
           03                          PIC X(36)   VALUE
               '003922012000003078003922013000005249'.
           03                          PIC X(36)   VALUE
               '003932009000018065003932010000017114'.
           03                          PIC X(36)   VALUE
               '003932011000017652003932012000019243'.
           03                          PIC X(36)   VALUE
               '003932013000016717003942009000004218'.
           03                          PIC X(36)   VALUE
               '003942010000004026003942011000003945'.
           03                          PIC X(36)   VALUE
               '003942012000003755003942013000003873'.
           03                          PIC X(36)   VALUE
               '003952009000003457003952010000003677'.
           03                          PIC X(36)   VALUE
               '003952011000003606003952012000003839'.
           03                          PIC X(36)   VALUE
               '003952013000004026003962009000002428'.
           03                          PIC X(36)   VALUE
               '003962010000002505003962011000002249'.
           03                          PIC X(36)   VALUE
               '003962012000002308003962013000002447'.
           03                          PIC X(36)   VALUE
               '003972009000003838003972010000004293'.
           03                          PIC X(36)   VALUE
               '003972011000005353003972012000003379'.
           03                          PIC X(36)   VALUE
               '003972013000005868003982009000006279'.
           03                          PIC X(36)   VALUE
               '003982010000006244003982011000005930'.
           03                          PIC X(36)   VALUE
               '003982012000006532003982013000006004'.
           03                          PIC X(36)   VALUE
               '004002009000005257004002010000005125'.
           03                          PIC X(36)   VALUE
               '004002011000004056004002012000004427'.
           03                          PIC X(36)   VALUE
               '004002013000004916004012009000003513'.
           03                          PIC X(36)   VALUE
               '004012010000003600004012011000003029'.
           03                          PIC X(36)   VALUE
               '004012012000003466004012013000003155'.
           03                          PIC X(36)   VALUE
               '004022009000029674004022010000030940'.
           03                          PIC X(36)   VALUE
               '004022011000033707004022012000033177'.
           03                          PIC X(36)   VALUE
               '004022013000018769004032009000003876'.
           03                          PIC X(36)   VALUE
               '004032010000003917004032011000007308'.
           03                          PIC X(36)   VALUE
               '004032012000007640004032013000008879'.
           03                          PIC X(36)   VALUE
               '004042009000010630004042010000010236'.
           03                          PIC X(36)   VALUE
               '004042011000010425004042012000010241'.
           03                          PIC X(36)   VALUE
               '004042013000010370004062009000006441'.
           03                          PIC X(36)   VALUE
               '004062010000004864004062011000005361'.
           03                          PIC X(36)   VALUE
               '004062012000004332004062013000005192'.
           03                          PIC X(36)   VALUE
               '004082009000068312004082010000058641'.
           03                          PIC X(36)   VALUE
               '004082011000048344004082012000059524'.
           03                          PIC X(36)   VALUE
               '004082013000053619004142009000033136'.
           03                          PIC X(36)   VALUE
               '004142010000026843004142011000022847'.
           03                          PIC X(36)   VALUE
               '004142012000024170004142013000024278'.
       01  W-PTRO-OFFSET-TABLE REDEFINES W-PTRO-OFFSET-FILLS.
           03  PTRO-ENTRY OCCURS 108 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 +108.
