       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
               '003082012000020169003772009000014871'.
           03                          PIC X(36)   VALUE
               '003772010000013972003772011000012933'.
           03                          PIC X(36)   VALUE
               '003772012000012286003782009000005937'.
           03                          PIC X(36)   VALUE
               '003782010000005613003782011000005605'.
           03                          PIC X(36)   VALUE
               '003782012000005447003892009000004642'.
           03                          PIC X(36)   VALUE
               '003892010000003889003892011000003038'.
           03                          PIC X(36)   VALUE
               '003892012000003808003902009000003260'.
           03                          PIC X(36)   VALUE
               '003902010000003585003902011000003225'.
           03                          PIC X(36)   VALUE
               '003902012000003045003912009000006620'.
           03                          PIC X(36)   VALUE
               '003912010000006452003912011000006499'.
           03                          PIC X(36)   VALUE
               '003912012000006404003922009000003864'.
           03                          PIC X(36)   VALUE
               '003922010000005258003922011000004440'.
           03                          PIC X(36)   VALUE
               '003922012000003076003932009000018065'.
           03                          PIC X(36)   VALUE
               '003932010000017114003932011000017652'.
           03                          PIC X(36)   VALUE
               '003932012000019225003942009000004218'.
           03                          PIC X(36)   VALUE
               '003942010000004026003942011000003945'.
           03                          PIC X(36)   VALUE
               '003942012000003752003952009000003457'.
           03                          PIC X(36)   VALUE
               '003952010000003677003952011000003606'.
           03                          PIC X(36)   VALUE
               '003952012000003836003962009000002428'.
           03                          PIC X(36)   VALUE
               '003962010000002505003962011000002249'.
           03                          PIC X(36)   VALUE
               '003962012000002306003972009000003838'.
           03                          PIC X(36)   VALUE
               '003972010000004293003972011000005353'.
           03                          PIC X(36)   VALUE
               '003972012000003376003982009000006279'.
           03                          PIC X(36)   VALUE
               '003982010000006244003982011000005930'.
           03                          PIC X(36)   VALUE
               '003982012000006526004002009000005257'.
           03                          PIC X(36)   VALUE
               '004002010000005125004002011000004056'.
           03                          PIC X(36)   VALUE
               '004002012000004424004012009000003513'.
           03                          PIC X(36)   VALUE
               '004012010000003600004012011000003029'.
           03                          PIC X(36)   VALUE
               '004012012000003463004022009000029674'.
           03                          PIC X(36)   VALUE
               '004022010000030940004022011000033707'.
           03                          PIC X(36)   VALUE
               '004022012000033148004032009000003876'.
           03                          PIC X(36)   VALUE
               '004032010000003917004032011000007308'.
           03                          PIC X(36)   VALUE
               '004032012000007633004042009000010630'.
           03                          PIC X(36)   VALUE
               '004042010000010236004042011000010425'.
           03                          PIC X(36)   VALUE
               '004042012000010232004062009000006441'.
           03                          PIC X(36)   VALUE
               '004062010000004864004062011000005361'.
           03                          PIC X(36)   VALUE
               '004062012000004328004082009000068312'.
           03                          PIC X(36)   VALUE
               '004082010000058641004082011000048344'.
           03                          PIC X(36)   VALUE
               '004082012000059472004142009000033136'.
           03                          PIC X(36)   VALUE
               '004142010000026843004142011000022847'.
           03                          PIC X(18)   VALUE
               '004142012000024131'.
       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.
