Try:

//SYSUT1 DD DATA,DLM=@@

"smtp commands"

@@
//       DD DSN=t116.data.file,DISP=SHR

You might have to add, LRECL=???,RECFM=?? to the SYSUT1 DD statment, where LRECL/RECFM is the LRECL/RECFM of te16.data.file. My have to add BLKSIZE also.

I'm not sure, but I think we had problems attempting to send e-mail and using concatenated files, so we had to use IEBGENER to create one file and then e-mail it.

mike wrote:
I have a job running on mvs. And I am trying to send a file to my email
client. The error message I am getting looks like the file is bigger
that 80 character width, which is true.

DATA SET UTILITY - GENERATE
 WER171A  CONCAT DS, LRECLS NE OR RECFMS DIFF
SYNCSORT COPY FEATURE CALLED - RC = 12

My job looks like:

 000541 //SENDNOTE EXEC PGM=IEBGENER
 000542 //SYSIN    DD DUMMY
 000543 //SYSPRINT DD SYSOUT=*
 000544 //SYSUT2   DD SYSOUT=(B,SMTP)
 000545 //SYSUT1   DD *
 000546 HELO IBMHOST
 000547 MAIL FROM: <joe_blow>
 000548 RCPT TO: <[EMAIL PROTECTED]>
 000549 DATA
 000550 DATE:
 000551 FROM: joe blow
 000552 TO: [EMAIL PROTECTED]
 000553 SUBJECT: Results of TSO JOB
 000554
 000555 PLEASE NOTE:
 000556
 000557 JOB COMPLETED.
 000558 THE BELOW LISTED DATA IS A RESULT OF THE PROGRAM.
 000559
 000560 /*
 000561 //   DD DSN=te16.data.myfile,DISP=SHR
 000562 //   DD *
 000563

Any ideas are appreciated.

Mike


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to