       01  W-MH-HCPCS-FILL9.
           03                          PIC X(35)   VALUE
               'G0177M00649080190802908049080590806'.
           03                          PIC X(35)   VALUE
               '90807908089080990810908119081290813'.
           03                          PIC X(35)   VALUE
               '90814908159084590846908479084990853'.
           03                          PIC X(35)   VALUE
               '90857908629086590880908999610196102'.
           03                          PIC X(35)   VALUE
               '96103961109611196116961189611996120'.
           03                          PIC X(25)   VALUE
               '9615096151961529615396154'.
       01  W-MH-HCPCS-TABLE9 REDEFINES W-MH-HCPCS-FILL9.
           03  MH-ENTRY9 OCCURS 40 TIMES
                   ASCENDING KEY IS MH-HCPCS9
                   INDEXED BY MH-INDX9.
               05  MH-HCPCS9           PIC X(5).
       01  MH-MAX9                     PIC S9(7)   COMP-3
                                       VALUE +40.
