SeanHoppe.com Cleo Code Samples Call 864, 824, 830 report program from TPMC Exit Point
/* DESCRIPTION: Submit Extol exit pgm call */ /* */ /********************************************************************/ PGM PARM() <--- DECLARE EXTOL ENTRY PARAMETERS HERE ---> <--- DECLARE EXTOL PARM LIST PARAMETERS HERE ---> SELECT WHEN COND(&MSGID *EQ '824') THEN(CHGVAR VAR(&PGM) + VALUE('I824REPORT')) WHEN COND(&MSGID *EQ '830') THEN(CHGVAR + VAR(&PGM) VALUE('I830REPORT')) WHEN COND(&MSGID *EQ '864') THEN(CHGVAR + VAR(&PGM) VALUE('I864REPORT')) OTHERWISE CMD(RETURN) ENDSELECT CHGVAR VAR(&MSGLOG) VALUE(&WP0029) CHGDTAARA DTAARA(*LDA (1 11)) VALUE(&MSGLOG) CHGDTAARA DTAARA(*LDA (12 21)) VALUE(&MSGCLS) SBMJOB CMD(CALL PGM(&LIB/&PGM) PARM(&MSGLOG)) + JOB(&PGM) JOBQ(EXTOLLVF) JOBPTY(9) + USER(EXTOLOWN) LOG(4 30 *MSG) LOGCLPGM(*YES) RETURN ENDPGM