gtpg2m2k | General Macros |
This general macro can be used to generate a message table whose entries contain information that can be passed as parameters to the WTOPC macro using the DCTMSG DSECT. It can also be used to generate text for messages used with the SERRC and SNAPC macros.
Format
|
Entry Requirements
Return Conditions
None.
Programming Considerations
See the following macros:
Examples
LA R2,MSGTXT1 B SENDMSG . . . LA R2,MSGTXT2 LA R3,=C'SECOND' B SENDMSG . . . DCTMSG USING DCTMSG,R2 SENDMSG WTOPC PREFIX=PROG, X NUMA=MSGNUM, X LETA=MSGLET, X TEXTA=MSGLEN, X SUB=(CHARA,(R3)) DROP R2 . . . MSGTXT1 GENMSG NUM=1,LET=I,TEXT='THIS IS THE FIRST MESSAGE' MSGTXT2 GENMSG NUM=2,LET=I,TEXT='THIS IS THE ...... MESSAGE'
This example produces the following messages:
PROG01I 00:00:00 THIS IS THE FIRST MESSAGE PROG02I 00:00:00 THIS IS THE SECOND MESSAGE
SNAPC R,(CE9380),REGS=YES,MSG=ERR_MSG . . ERR_MSG GENMSG TEXTONLY='UNABLE TO RETRIEVE IFMSG TABLE'