Displaying status messages when saving
This program sends a message to the external (*EXT) program message queue if any objects cannot be saved.
PGM /* SAVE SOURCE */
SAVLIB LIB(SRCLIB) DEV(TAPE01) PRECHK(*YES)
MONMSG MSGID(CPF0000) EXEC(DO)
SNDPGMMSG MSG('Objects were not saved - Look at the job +
log for messages') TOPGMQ(*EXT)
SNDPGMMSG MSG('SRCLIB library was not backed up') +
TOPGMQ(xxxx)
RETURN
ENDDO
ENDPGM