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