MACRO                                                          00001000
         SYM   &MODULE                                                  00002000
         AIF   (K'&MODULE GT 8).WNGLNG                                  00003000
         DC    CL8'&MODULE ',V(&MODULE)                                 00004100
         MEXIT                                                          00004200
.WNGLNG  MNOTE 4,'MODULE NAME  &MODULE  EXCEEDS 8 CHARACTERS'           00007000
         MEND                                                           00008100