Sample CL Program for Using SMTPDB2 Command to Send an AS/400 Database File in CSV Format
From Support
The sample CL program listed below will send an AS/400 database file in CSV format using the SMTPDB2 command.
PGM
/*******************************************/
/* DECLARE STATIC VARIABLES FOR TEST CALL */
/*******************************************/
DCL VAR(&FILE) TYPE(*CHAR) LEN(10) VALUE(QCUSTCDT)
DCL VAR(&LIB) TYPE(*CHAR) LEN(10) VALUE(QIWS)
DCL VAR(&MBR) TYPE(*CHAR) LEN(10) VALUE(*FIRST)
DCL VAR(&TOEMAIL) TYPE(*CHAR) LEN(255) +
VALUE('richard@rjssoft.com')
DCL VAR(&FROMEMAIL) TYPE(*CHAR) LEN(255) +
VALUE('richard@rjssoft.com')
DCL VAR(&SUBJECT) TYPE(*CHAR) LEN(255) +
VALUE('This is a Test call to SMTPDB2')
DCL VAR(&MESSAGE) TYPE(*CHAR) LEN(5000) +
VALUE('This is a test message')
/***************************************************************/
/* GO TO ERROR HANDLER IF ERRORS OCCUR */
/***************************************************************/
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ERRORS))
/*******************************************/
/* SEND AS/400 FILE TO EMAIL RECIPIENT NOW */
/*******************************************/
SMTPDB2 FILE(&LIB/&FILE) MBR(&MBR) TOADDR(&TOEMAIL) +
FROMADDR(&FROMEMAIL) SUBJECT(&SUBJECT) +
MESSAGE(&MESSAGE) INTFILE(*AS400FILE) +
SMTPHOST(*DEFAULT) RCDDLM(*CRLF) +
LASTRCDDLM(*YES) DTAFMT(*CSV) +
FLDDLM(*COMMA) COLHDG(*NO) QUOTES(*YES) +
CONTYPE('text/plain') LOG(*NO)
RETURN
/********************************************************************/
/* HANDLE ERRORS */
/********************************************************************/
ERRORS:
/* SEND EXIT MESSAGE ON ERROR */
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Errors +
occurred while creating email') +
MSGTYPE(*ESCAPE)
ENDPGM
