       01  W-MH-HCPCS-FILL8.
           03                          PIC X(35)   VALUE
               'G0177M00649080190802908049080590806'.
           03                          PIC X(35)   VALUE
               '90807908089080990810908119081290813'.
           03                          PIC X(35)   VALUE
               '90814908159081690817908189081990821'.
           03                          PIC X(35)   VALUE
               '90822908239082490826908279082890829'.
           03                          PIC X(35)   VALUE
               '90845908469084790849908539085790862'.
           03                          PIC X(35)   VALUE
               '90865908809089996101961029610396110'.
           03                          PIC X(35)   VALUE
               '96111961169611896119961209615096151'.
           03                          PIC X(15)   VALUE
               '961529615396154'.
       01  W-MH-HCPCS-TABLE8 REDEFINES W-MH-HCPCS-FILL8.
           03  MH-ENTRY8 OCCURS 52 TIMES
                   ASCENDING KEY IS MH-HCPCS8
                   INDEXED BY MH-INDX8.
               05  MH-HCPCS8           PIC X(5).
       01  MH-MAX8                     PIC S9(7)   COMP-3
                                       VALUE +52.
