We have z/OS 2.1 and CSSMTP. Any thoughts on where else I can look? I changed the code page from IBM-1047 to 037, but that didn't do anything.
Email REXX
Code: Select all
EMAIL_ID = [email='##########@TXT.ATT.NET']'##########@TXT.ATT.NET'[/email]
WVAR.1 ="HELO STLMVS01"
WVAR.2 ="MAIL FROM:<[email="OPID()"@"CURSYS]"OPID()"@"CURSYS[/email]()">"
WVAR.3 ="RCPT TO:<"EMAIL_ID">"
WVAR.4 ="DATA"
WVAR.5 ="DATE: "DATE('N')" "TIME()" LCL"
WVAR.6 ="FROM: "CURSYS()
WVAR.7 ="TO: " EMAIL_ID
WVAR.8="SUBJECT: TEST TEXT EMAIL ALERT"
WVAR.0=8
'PIPE LIT /./ | STEM WVAR. APPEND'
'PIPE LIT /QUIT/ | STEM WVAR. APPEND'
'PIPE STEM WVAR. | SAFE SMTPSAFE'
'SENDMAIL SMTPSAFE RTRNSAFE'
Code: Select all
SMTP_JOB = 'SMTPSERV'
PARSE ARG SMTP_CMD_SAFE RETURN_SAFE
'PIPE NETV ALLOCATE SYSOUT(B) WRITER('SMTP_JOB') FREE RECFM(FB)',
'LRECL(80) BLKSIZE(4000) FREE',
'| VAR MESSAGE'
PARSE VAR MESSAGE MSGID DDNAME .
IF MSGID='CNM272I'
THEN
DO
'PIPE SAFE 'SMTP_CMD_SAFE' | QSAM (DD) 'DDNAME
'PIPE LIT /EMAIL SENT SUCCESSFULLY/ | SAFE 'RETURN_SAFE
EXIT 0
END