       01  W-MH-HCPCS-FILL10.
           03                          PIC X(35)   VALUE
               'M0064908019080290804908059080690807'.
           03                          PIC X(35)   VALUE
               '90808908099081090811908129081390814'.
           03                          PIC X(35)   VALUE
               '90815908459084690847908499085390857'.
           03                          PIC X(35)   VALUE
               '90862908659088090899961019610296103'.
           03                          PIC X(35)   VALUE
               '96110961119611696118961199612096150'.
           03                          PIC X(20)   VALUE
               '96151961529615396154'.
       01  W-MH-HCPCS-TABLE10 REDEFINES W-MH-HCPCS-FILL10.
           03  MH-ENTRY10 OCCURS 39 TIMES
                   ASCENDING KEY IS MH-HCPCS10
                   INDEXED BY MH-INDX10.
               05  MH-HCPCS10          PIC X(5).
       01  MH-MAX10                    PIC S9(7)   COMP-3
                                       VALUE +39.
