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
               '003082012000020193003772009000014871'.
           03                          PIC X(36)   VALUE
               '003772010000013972003772011000012933'.
           03                          PIC X(36)   VALUE
               '003772012000012301003782009000005937'.
           03                          PIC X(36)   VALUE
               '003782010000005613003782011000005605'.
           03                          PIC X(36)   VALUE
               '003782012000005454003892009000004642'.
           03                          PIC X(36)   VALUE
               '003892010000003889003892011000003038'.
           03                          PIC X(36)   VALUE
               '003892012000003812003902009000003260'.
           03                          PIC X(36)   VALUE
               '003902010000003585003902011000003225'.
           03                          PIC X(36)   VALUE
               '003902012000003049003912009000006620'.
           03                          PIC X(36)   VALUE
               '003912010000006452003912011000006499'.
           03                          PIC X(36)   VALUE
               '003912012000006411003922009000003864'.
           03                          PIC X(36)   VALUE
               '003922010000005258003922011000004440'.
           03                          PIC X(36)   VALUE
               '003922012000003079003932009000018065'.
           03                          PIC X(36)   VALUE
               '003932010000017114003932011000017652'.
           03                          PIC X(36)   VALUE
               '003932012000019248003942009000004218'.
           03                          PIC X(36)   VALUE
               '003942010000004026003942011000003945'.
           03                          PIC X(36)   VALUE
               '003942012000003757003952009000003457'.
           03                          PIC X(36)   VALUE
               '003952010000003677003952011000003606'.
           03                          PIC X(36)   VALUE
               '003952012000003840003962009000002428'.
           03                          PIC X(36)   VALUE
               '003962010000002505003962011000002249'.
           03                          PIC X(36)   VALUE
               '003962012000002309003972009000003838'.
           03                          PIC X(36)   VALUE
               '003972010000004293003972011000005353'.
           03                          PIC X(36)   VALUE
               '003972012000003380003982009000006279'.
           03                          PIC X(36)   VALUE
               '003982010000006244003982011000005930'.
           03                          PIC X(36)   VALUE
               '003982012000006534004002009000005257'.
           03                          PIC X(36)   VALUE
               '004002010000005125004002011000004056'.
           03                          PIC X(36)   VALUE
               '004002012000004429004012009000003513'.
           03                          PIC X(36)   VALUE
               '004012010000003600004012011000003029'.
           03                          PIC X(36)   VALUE
               '004012012000003468004022009000029674'.
           03                          PIC X(36)   VALUE
               '004022010000030940004022011000033707'.
           03                          PIC X(36)   VALUE
               '004022012000033187004032009000003876'.
           03                          PIC X(36)   VALUE
               '004032010000003917004032011000007308'.
           03                          PIC X(36)   VALUE
               '004032012000007643004042009000010630'.
           03                          PIC X(36)   VALUE
               '004042010000010236004042011000010425'.
           03                          PIC X(36)   VALUE
               '004042012000010244004062009000006441'.
           03                          PIC X(36)   VALUE
               '004062010000004864004062011000005361'.
           03                          PIC X(36)   VALUE
               '004062012000004333004082009000068312'.
           03                          PIC X(36)   VALUE
               '004082010000058641004082011000048344'.
           03                          PIC X(36)   VALUE
               '004082012000059543004142009000033136'.
           03                          PIC X(36)   VALUE
               '004142010000026843004142011000022847'.
           03                          PIC X(18)   VALUE
               '004142012000024159'.
       01  W-PTRO-OFFSET-TABLE REDEFINES W-PTRO-OFFSET-FILLS.
           03  PTRO-ENTRY OCCURS 87 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 +87.