       01  W-MH-HCPCS-FILL12.
           03                          PIC X(35)   VALUE
               'G0451M00649080190802908049080590806'.
           03                          PIC X(35)   VALUE
               '90807908089080990810908119081290813'.
           03                          PIC X(35)   VALUE
               '90814908159084590846908479084990853'.
           03                          PIC X(35)   VALUE
               '90857908629086590880908999610196102'.
           03                          PIC X(35)   VALUE
               '96103961119611696118961199612096150'.
           03                          PIC X(20)   VALUE
               '96151961529615396154'.
       01  W-MH-HCPCS-TABLE12 REDEFINES W-MH-HCPCS-FILL12.
           03  MH-ENTRY12 OCCURS 39 TIMES
                   ASCENDING KEY IS MH-HCPCS12
                   INDEXED BY MH-INDX12.
               05  MH-HCPCS12          PIC X(5).
       01  MH-MAX12                    PIC S9(7)   COMP-3
                                       VALUE +39.
