           EJECT
      ***************************************************************
      *                                                             *
      *   THIS IS THE COPYBOOK WHICH MOVES UNDERSCORES TO THE       *
      *   TRIALING PARTS OF CICS MAP FIELDS.  YOU ALSO MUST COPY    *
      *   WORKING STORAGE COPYBOOK C108W998 TO USE THIS MODULE.     *
      *                                                             *
      ***************************************************************

       Z998-MOVE-UNDERSCORES.

           PERFORM VARYING W9998-IX FROM +80 BY -1
             UNTIL W9998-IX < +1
                OR W9998-DATA(W9998-IX:1) > SPACE
                   MOVE '_'     TO W9998-DATA(W9998-IX:1)
           END-PERFORM.

