Sample CL Program for using the MAILRPT API Command to control report mailing - Support

Sample CL Program for using the MAILRPT API Command to control report mailing

From Support

Jump to: navigation, search

PGM

/****************************************************************/ /* DEFINE SPOOL FILE INFORMATION VARIABLES */ /****************************************************************/ DCL VAR(&SPLFNAME) TYPE(*CHAR) LEN(10) DCL VAR(&JOBNAME) TYPE(*CHAR) LEN(10) DCL VAR(&JOBUSER) TYPE(*CHAR) LEN(10) DCL VAR(&JOBNBR) TYPE(*CHAR) LEN(6) DCL VAR(&SPLNBR) TYPE(*CHAR) LEN(4)

/****************************************************************/ /* PRINT AS/400 REPORT */ /****************************************************************/ CALL PGM(RPT001)

/****************************************************************/ /* RETRIEVE ORIGINAL SPOOL INFORMATION FROM REPORT JUST CREATED*/ /****************************************************************/ WSPLNUM SPLF(RPT001P) JOB(*) SPLNBR(*LAST) + RTNSPLF(&SPLFNAME) RTNJOBNAME(&JOBNAME) + RTNJOBUSER(&JOBUSER) RTNJOBNUM(&JOBNBR) + RTNSPLNUM(&SPLNBR)

/****************************************************************/ /* MAIL THE REPORT USING THE MAILRPT API COMMAND */ /****************************************************************/ MAILRPT FILE(&SPLFNAME) JOB(&JOBNBR/&JOBUSER/&JOBNAME) SPLNBR(&SPLNBR) + TOADDRESS(test@test.com) FRADDRESS(test@test.com)

ENDPGM

Retrieved from "http://wiki.rjssoftware.com/wiki/index.php/Sample_CL_Program_for_using_the_MAILRPT_API_Command_to_control_report_mailing"
Personal tools