Difference between revisions of "Information Systems:EOM"
Jump to navigation
Jump to search
m |
(No difference)
|
Revision as of 09:59, 20 July 2016
/* send email that daily overnight process is starting */
CHGVAR VAR(&SMSG) VALUE('Monthly processing is +
starting')
CHGVAR VAR(&LMSG) VALUE(&SMSG)
CALL PGM(OPMSGSEND) PARM(&SMSG &LMSG)
/* MAKE SURE LIBRARY LIST IS CORRECT */
ADDLIBLE LIB(DOCMGRCMD)
ADDLIBLE LIB(UNIPHARMIT)
/* RUN ASW PROCESSING */
CALL PGM(EOMASW)
/* send email that daily overnight process is ending */
CHGVAR VAR(&SMSG) VALUE('Monthly processing is +
ending')
CHGVAR VAR(&LMSG) VALUE(&SMSG)
CALL PGM(OPMSGSEND) PARM(&SMSG &LMSG)