From Support
PGM
/***************************************************************/
/* MESSAGE VARIABLES */
/***************************************************************/
DCL VAR(&CRLF) TYPE(*CHAR) LEN(2) VALUE(X'0D25')
DCL VAR(&MESSAGE) TYPE(*CHAR) LEN(5000)
DCL VAR(&MSG01) TYPE(*CHAR) LEN(50) VALUE('TEST +
LINE 1')
DCL VAR(&MSG02) TYPE(*CHAR) LEN(50) VALUE('TEST +
LINE 2')
DCL VAR(&MSG03) TYPE(*CHAR) LEN(50) VALUE('TEST +
LINE 3')
DCL VAR(&MSG04) TYPE(*CHAR) LEN(50) VALUE('TEST +
LINE 4')
DCL VAR(&MSG05) TYPE(*CHAR) LEN(50) VALUE('TEST +
LINE 5')
DCL VAR(&MSG06) TYPE(*CHAR) LEN(50) VALUE('TEST +
LINE 6')
DCL VAR(&MSG07) TYPE(*CHAR) LEN(50) VALUE('TEST +
LINE 7')
DCL VAR(&MSG08) TYPE(*CHAR) LEN(50) VALUE('TEST +
LINE 8')
DCL VAR(&MSG09) TYPE(*CHAR) LEN(50) VALUE('TEST +
LINE 9')
DCL VAR(&MSG10) TYPE(*CHAR) LEN(50) VALUE('TEST +
LINE 10')
DCL VAR(&MSG11) TYPE(*CHAR) LEN(50) VALUE('TEST +
LINE 11')
DCL VAR(&MSG12) TYPE(*CHAR) LEN(50) VALUE('TEST +
LINE 12')
DCL VAR(&MSG13) TYPE(*CHAR) LEN(50) VALUE('TEST +
LINE 13')
DCL VAR(&MSG14) TYPE(*CHAR) LEN(50) VALUE('TEST +
LINE 14')
DCL VAR(&SUBJECT) TYPE(*CHAR) LEN(256) VALUE('Test Email')
DCL VAR(&FROMADDR) TYPE(*CHAR) LEN(256) VALUE('SALES@RJSSOFT.COM')
DCL VAR(&TOADDR) TYPE(*CHAR) LEN(256) VALUE('CUSTOMER@CUSTOMER.COM')
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ERRORS))
/***************************************************************/
/* SET MESSAGE VARIABLE WITH MULTIPLE LINES OF TEXT */
/***************************************************************/
CHGVAR VAR(&MESSAGE) VALUE(&MSG01 |< &CRLF)
CHGVAR VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG02 |< &CRLF
CHGVAR VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG03 |< &CRLF
CHGVAR VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG04 |< &CRLF
CHGVAR VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG05 |< &CRLF
CHGVAR VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG06 |< &CRLF
CHGVAR VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG07 |< &CRLF
CHGVAR VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG08 |< &CRLF
CHGVAR VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG09 |< &CRLF
CHGVAR VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG10 |< &CRLF
CHGVAR VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG11 |< &CRLF
CHGVAR VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG12 |< &CRLF
CHGVAR VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG13 |< &CRLF
CHGVAR VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG14 |< &CRLF
/***************************************************************/
/* SEND EMAIL MESSAGE */
/***************************************************************/
SMTPSEND TOADDR(&TOADDR) FROMADDR(&FROMADDR) SUBJECT(&SUBJECT) +
MESSAGE(&MESSAGE) SMTPHOST(*DEFAULT) CONTYPE('text/plain')
RETURN
/********************************************************************/
/* HANDLE ERRORS */
/********************************************************************/
ERRORS:
/* SEND EXIT MESSAGE ON ERROR */
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Errors +
occurred while sending message') +
MSGTYPE(*ESCAPE)
ENDPGM
