       01  W-PHP-HCPCS-FILL10.
           03                          PIC X(35)   VALUE
               'G0129G0176G0177G0410G04119080190802'.
           03                          PIC X(35)   VALUE
               '90816908179081890819908219082290823'.
           03                          PIC X(35)   VALUE
               '90824908269082790828908299084590846'.
           03                          PIC X(35)   VALUE
               '90847908659088096101961029610396116'.
           03                          PIC X(15)   VALUE
               '961189611996120'.
       01  W-PHP-HCPCS-TABLE10 REDEFINES W-PHP-HCPCS-FILL10.
           03  PHP-ENTRY10 OCCURS 31 TIMES
                   ASCENDING KEY IS PHP-HCPCS10
                   INDEXED BY PHP-INDX10.
               05  PHP-HCPCS10         PIC X(5).
       01  PHP-MAX10                   PIC S9(7)   COMP-3
                                       VALUE +31.
