Example Using IKJTSMSG

Figure 1 is an example that shows how a message module can be created for a SUBMIT command. The IKJTSMSG macro is used to describe the following:

Message IKJ56250I is a single level PUTLINE message with one insert.
Message IKJ56251I is a PUTLINE message with two levels.
Message IKJ56252A is a PUTGET message with two levels.
Message IKJ56253I is a PUTLINE message with an insert at the end of the text.
The IKJTSMSG macro with no operands indicates the end of the message CSECT.

Figure 1 shows an example of the IKJTSMSG macro.

Figure 1. An Example Using the IKJTSMSG macro instruction

*
* COMMENTS CAN PRECEDE OR FOLLOW THE MACROS TO LIST MODULES ISSUING
* THE MESSAGES AND GIVE THE MESSAGE DESCRIPTIONS.
*
IKJEFF03 CSECT
         IKJTSMSG ('IKJ56250I JOB',,'SUBMITTED'),00
*
         IKJTSMSG ('IKJ56251I ',,' COMMAND NOT AUTHORIZED+'),R01
         IKJTSMSG ('IKJ56251I YOUR INSTALLATION MUST AUTHORIZE USE OF TX
               HIS COMMAND'),01,R01
*        **  SECOND LEVEL POINTS TO FIRST LEVEL FOR PUTLINE **
*
         IKJTSMSG ('IKJ56252A ENTER JOBNAME CHARACTER+ -'),02,S02
         IKJTSMSG ('IKJ56252A JOBNAME IS CREATED FROM USERID PLUS',    X
               ' ONE ALPHANUMERIC OR SPECIAL CHARACTER'),S02
*        ** FIRST LEVEL POINTS TO SECOND LEVEL FOR PUTGET **
         IKJTSMSG ('IKJ56253I INVALID CHARACTER -',),03
*        ** THE COMMA AFTER THE APOSTROPHE INDICATES A TRAILING INSERT
*
         IKJTSMSG
         END   IKJEFF03