MVSFORUMS.com

[Sarangadhar]

hI,
am trying to send mail thru mainframe. am receiving RC=0 for job but dint get any email. i have two SMTP jobs running on my mainframe SMTP1, SMTP2. So, SMTP must have been enabled.

any idea why am not getting mail?

//SENDNOTE EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SYSOUT=(A,SMTP)
//SYSUT1 DD *
HELO SYSA
MAIL FROM:<FROM-MAIL-ID>
RCPT TO:<TO-MAIL-ID>
DATA
FROM: FROM-MAIL-ID
TO: TO-MAIL-ID
SUBJECT: TEST MESSAGE FROM MVS USING SMTP
THIS IS A LINE IN THE BODY OF THE NOTE.
QUIT
//*
_________________
Thanks

[Sarangadhar]

am able to receive mail if i use SMTPNOTE in REXX.. as coded below:

/*REXX*/
"SMTPNOTE BATCH DATASET('dataset.toattach') ",
"SUBJECT(TEST SMTP) ",
"TO(mail-id)"

but file is not coming as attachement. content of the dataset is getting copied into body of the mail. I wanted as some body data and well as attachement.

any ideas please.
_________________
Thanks

[pvrajs]

Hi,

Sorry to post my problem in the same thread. I have chosen as I too am having the same problem. I am using IKJEFT01. And I am calling a QMF proc in this step which atcually generates the email. Please find the code below -
[code:1:6bc204b515]
ARG PARMREC

PARSE VALUE PARMREC WITH HLQNAME DSNAME
DELSTACK

ADDRESS TSO "FREE FI(DSQPRINT)"
ADDRESS TSO "FREE FI(MAILHDR)"
ADDRESS TSO "FREE FI(MAILIN)"
ADDRESS TSO "FREE FI(MAILOUT)"
"GET GLOBAL (DB2SYS = DSQAO_SUBSYS_ID)"
IF HLQNAME = '' THEN HLQNAME = '<PROD_HLQ>'
HDRNAME = HLQNAME'.'DB2SYS'.SPABEND.MAILHDR'
ADDRESS TSO "DELETE '"HDRNAME"'"
ADDRESS TSO "ALLOCATE FI(MAILHDR) DA('"HDRNAME"') ,
MOD LRECL(150) RECFM(F B) DSORG(PS) SPACE(1,15) TRACKS"

IF DB2SYS = 'DB81' THEN REG = 'H135'
IF DB2SYS = 'DB82' THEN REG = 'H265'
IF DB2SYS = 'DB85' THEN REG = 'H276'
IF DB2SYS = 'DB32' THEN REG = 'H151'

IF RC