01  W-PHP-HCPCS-FILL9.
           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-TABLE9 REDEFINES W-PHP-HCPCS-FILL9.
           03  PHP-ENTRY9 OCCURS 31 TIMES
                   ASCENDING KEY IS PHP-HCPCS9
                   INDEXED BY PHP-INDX9.
               05  PHP-HCPCS9          PIC X(5).
       01  PHP-MAX9                    PIC S9(7)   COMP-3
                                       VALUE +31.