MACRO                                                          06000000
         JGENERR &OPTION                                                12000000
         GBLB  &GENSW                                                   18000000
.*  THIS MACRO IS CALLED BY ALL PHASES WITH THE OPTION NOGEN TO GENERAT 24000000
.*  THE DSECT JERMSGCD.  IT IS ALSO CALLED BY CSECT X6C WITH THE OPTION 30000000
.*  GEN TO GENERATE ALL OF THE ERROR MESSAGES.                          36000000
&GENSW   SETB  0                        TURN OFF GEN SWITCH             36050000
         AIF   ('&OPTION' EQ 'NOGEN').C1 DO WE GENERATE ERROR MESSAGES  42000000
&GENSW   SETB  1                        YES, TURN ON GEN SWITCH         48000000
.C1      ANOP                           PROCEED TO CALL GENERR MACRO    54000000
.*                                      TO GENERATE EITHER ERROR MSGS   60000000
.*                                      OR DSECT JERMSGCD, DEPENDING    66000000
.*                                      UPON THE SETTING OF &GENSW.     72000000
         COPY  ERMS                                                     78000000
         MEND                                                           84000000