For interactive jobs, I like to give the users IBM-supplied messages whenever possible-such as the completion message after a Submit Job (SBMJOB) command. This can be accomplished by adding a few extra lines within a CL program. See 3 for an example.

For interactive jobs, I like to give the users IBM-supplied messages whenever possible-such as the completion message after a Submit Job (SBMJOB) command. This can be accomplished by adding a few extra lines within a CL program. See Figure 3 for an example.

The IBM-supplied completion message for SBMJOB is sent to the previous program queue.

IBM-supplied Completion Message

Figure 3 Sending a Completion Message

 PGM DCL VAR(&MSG) TYPE(*CHAR) LEN(512) SBMJOB CMD(CALL PGM(pgm-name)) JOB(job-name) RCVMSG MSGTYPE(*COMP) MSG(&MSG) MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(EXIT)) SNDPGMMSG MSG(&MSG) MSGTYPE(*COMP) EXIT: ENDPGM