Sample Program using MAILSPLF command

 

****************************************************************************************
PGM

DCL VAR(&RTNSPOOL) TYPE(*CHAR) LEN(10)
DCL VAR(&RTNJOB) TYPE(*CHAR) LEN(10)
DCL VAR(&RTNUSER) TYPE(*CHAR) LEN(10)
DCL VAR(&RTNJNBR) TYPE(*CHAR) LEN(6)
DCL VAR(&RTNSPLNBR) TYPE(*CHAR) LEN(6)

/******************************************************/
/* RUN REPORT PROGRAM */
/******************************************************/
CALL PGM(RPT100)

/******************************************************/
/* RETRIEVE SPOOL FILE INFO FOR REPORT */
/******************************************************/
ERSNUM SPLF(RPT100P) JOB(*) SPLNBR(*LAST) +
RTNSPLF(&RTNSPOOL) RTNJOBNAME(&RTNJOB) +
RTNJOBUSER(&RTNUSER) RTNJOBNUM(&RTNJNBR) +
RTNSPLNUM(&RTNSPLNBR)

/******************************************************/
/* MAIL SELECTED REPORT */
/******************************************************/
MAILSPLF FILE(&RTNSPOOL) +
JOB(&RTNJNBR/&RTNUSER/&RTNJOB) +
SPLNBR(&RTNSPLNBR) +
TOADDRESS(test@test.com) +
FRADDRESS(admin@as400.com) +
SUBJECT('AS/400 Report') CONVTYPE(PDF) +
SMTPHOST(LOCALHOST)
ENDPGM 

****************************************************************************************