01  W-PHP-HCPCS-FILL8.
           03                          PIC X(35)   VALUE
               'G0129G0176G017790801908029080490805'.
           03                          PIC X(35)   VALUE
               '90806908079080890809908109081190812'.
           03                          PIC X(35)   VALUE
               '90813908149081590816908179081890819'.
           03                          PIC X(35)   VALUE
               '90821908229082390824908269082790828'.
           03                          PIC X(35)   VALUE
               '90829908459084690847908499085390857'.
           03                          PIC X(35)   VALUE
               '90865908809089996101961029610396110'.
           03                          PIC X(25)   VALUE
               '9611196116961189611996120'.
       01  W-PHP-HCPCS-TABLE8 REDEFINES W-PHP-HCPCS-FILL8.
           03  PHP-ENTRY8 OCCURS 47 TIMES
                   ASCENDING KEY IS PHP-HCPCS8
                   INDEXED BY PHP-INDX8.
               05  PHP-HCPCS8          PIC X(5).
       01  PHP-MAX8                    PIC S9(7)   COMP-3
                                       VALUE +47.