       01  W-PTDO-OFFSET-FILLS.
           03                          PIC X(35)   VALUE
               'C1749001430000000002010100120121231'.
           03                          PIC X(35)   VALUE
               'C1749001580000000002010100120121231'.
           03                          PIC X(35)   VALUE
               'C1830000030000000002011100120131231'.
           03                          PIC X(35)   VALUE
               'C1840002340000104812012010120121231'.
           03                          PIC X(35)   VALUE
               'C1840002340000093222013010120131231'.
           03                          PIC X(35)   VALUE
               'C1840002460000221712011100120111231'.
           03                          PIC X(35)   VALUE
               'C1886004150000197432012010120121231'.
           03                          PIC X(35)   VALUE
               'C1886004150000055972013010120131231'.
       01  W-PTDO-OFFSET-TABLE REDEFINES W-PTDO-OFFSET-FILLS.
           03  PTDO-ENTRY OCCURS 8 TIMES
                   ASCENDING KEY IS PTDO-DEV-HCPCS
                   INDEXED BY PTDO-INDX.
               05  PTDO-DEV-HCPCS      PIC X(5).
               05  PTDO-PROC-APC       PIC X(5).
               05  PTDO-OFFSET-AMT     PIC 9(7)V99.
               05  PTDO-EFF-DATE       PIC 9(8).
               05  PTDO-TERM-DATE      PIC 9(8).
       01  PTDO-MAX                    PIC S9(7)   COMP-3
                                       VALUE +8.
