SeanHoppe.com > Cleo Code Samples > Call 864, 824, 830 report program from TPMC Exit Point

Cleo/EXTOL CL - 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