by phow0906 » Mon Sep 27, 2010 6:23 pm
I still cannot get this to work. I did copy and paste the code but it didn't work. The first report will send but then get an RC=12. Below is my code (which is code that was posted) and the error message. I do have an issue with seeing the replies. My PL tried 3 different browsers and had the same problem. We think it is something with our setup (which will be impossible to change) so please bear with me. Anyone got any suggestions? Also, is there any other documentation available explaining how to do on mainframe? Found MIME and SMTP internet articles but aren't specific enough for my scenario. Thanks for any help!!
HELO JOBTRAC
MAIL FROM:<sender@xxxx.ORG>
RCPT TO:<receiver@xxxx.ORG>
DATA
SUBJECT: subject
MIME-VERSION: 1.0
CONTENT-TYPE: MULTIPART/MIXED; BOUNDARY="SIMPLE BOUNDARY"
--SIMPLE BOUNDARY
CONTENT-TYPE: TEXT/PLAIN
CONTENT-DISPOSITION: ATTACHMENT; FILENAME="REPORT1.TXT"
// DD DISP=SHR,DSN=WS.TSTW.REPORT1
// DD *
--SIMPLE BOUNDARY
CONTENT-TYPE: TEXT/PLAIN
CONTENT-DISPOSITION: ATTACHMENT; FILENAME="REPORT2.TXT"
// DD DISP=SHR,DSN=WS.TSTW.REPORT2
// DD DISP=SHR,DSN=MT.TDOC.TRAILING.PERIOD
/*
//*
//OF1 DD DSN=WS.TDOC.ACS.EMAIL.CONSTRUC,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(200,(1,1),RLSE),AVGREC=K,
// RECFM=VB,LRECL=200
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
REPRO INFILE(IF1) OUTFILE(OF1)
Error
IDCAMS SYSTEM SERVICES
REPRO INFILE(IF1) OUTFILE(OF1)
IDC3302I ACTION ERROR ON S17078D.S17078D1.JOB03242.D0000102.?
IDC3321I ** OPEN/CLOSE/EOV ABEND EXIT TAKEN
IDC31467I MAXIMUM ERROR LIMIT REACHED.
IDC0005I NUMBER OF RECORDS PROCESSED WAS 126
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12
IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12