Email Through Mainframe

gneelu · New User Joined: 26 May 2006 Posts: 18

//* SEND THE REPORT USING SMTP
//STEP01 EXEC PGM=IEBGENER
//SYSUT1 DD *
HELO HR
MAIL FROM: <TEST@BT.COM>
RCPT TO: <TEST@BT.COM>
DATA
SUBJECT: TEST SPREADSHEET
MIME-VERSION: 1.0
CONTENT-DISPOSITION: ATTACHMENT;FILENAME="TEST.XLS"
CONTENT-TYPE: TEXT/PLAIN
/*
//* =========================================================*
//* FILE TO SEND:
// DD DISP=SHR,DSN=NWC.EMAIL.TEST1(EMAIL)
//* =========================================================*
// DD *
.
QUIT
//SYSUT2 DD SYSOUT=(B,SMTP),DEST=(RNE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//*

The above code is working fine for record length 80 and FB.
PDS - NWC.EMAIL.TEST1(EMAIL) is having record length 80 and FB.

Could anyone suggest the code for FILE TO SEND for record length greater than 80?

I have tried changing the file attributes and submitted the job.But its giving error 'IEB352I WARNING: ONE OR MORE OF THE OUTPUT DCB PARMS COPIED FROM INPUT'

Robert Sample · Posted: Thu Jul 16, 2009 5:08 pm

Create a file of the length desired (no more than 1000 LRECL per the RFC standard). Copy everything between the //SYSUT1 DD * and the /* into this file. Change the //SYSUT1 DD * to point to the file you created. You will need another file for everything between the // DD * and the //SYSUT2 statement, and change this JCL to point to this trailer. The two files you create must have matching LRECL to your NWC.EMAIL.TEST file -- and to repeat myself, the LRECL cannot exceed 1000.

Your JCL should look like

apvardhini · New User Joined: 23 Apr 2009 Posts: 20 Location: India

How can we send a report from MAinframe to mobile/Blackberry? What should be used in the place of the TO field?

Thanks,
Parvatha

Robert Sample · Posted: Thu Jul 16, 2009 5:45 pm

Generally the Blackberry is linked to an email account. Send the email to that account and the Blackberry should receive it just like any other email. If the Blackberry isn't linked to an email account, I don't think the mainframe can send to it.

gneelu · New User Joined: 26 May 2006 Posts: 18

Hi Robert,

I have done the changes as your have suggested.And ran the fine.It went fine.But not getting the email.I not able to see the reason for the same.

Do you have any idea on this please i.e., shall we need to change in anything in CONTENT-TYPE: etc….

As I said earlier,it worked for recoed length 80 and got the email.

Robert Sample · Posted: Thu Jul 16, 2009 5:54 pm

If you have access, pull up the SMTP started task log and look for any errors that popped up. If you don't have access, or don't see any errors related to your email, you'll need to contact your site support group and have them work with you to trace the email from the mainframe to the mail server to the email account. One other thing to do is to verify your trailer file has the period on a line by itself before the QUIT statement. If that period is missing the email is discarded as incomplete.

Depending on what your site support group finds, they may need to turn on the SMTP tracing function and have you resubmit your email to get the more detailed diagnostics that SMTP can generate.

One more thing to consider is that not all emails are received immediately after being sent. When I was working with IBM's Domino support group, for example, their local Lotus Notes accounts were set up to only pull email from the server every 15 minutes or so -- which meant it could be 15 minutes after the email was sent before they'd see it in their inbox.

gneelu · New User Joined: 26 May 2006 Posts: 18

Hi Robert,
Many thanks for your clarification.
I have again submitted the job and job got failed and Iam not getting the attachment. Also I have given all the code which I have used.
Could you please have a look and advice to get the attachemnt?

//* SEND THE REPORT USING SMTP
//STEP01 EXEC PGM=IEBGENER
//SYSUT1 DD DISP=SHR,DSN=NWC.DEVDAT2.CYRVRT01.SYSUT3
// DD DISP=SHR,DSN=NWC.EMAIL.TEST(EMAIL3)
// DD DISP=SHR,DSN=NWC.DEVDAT2.CYRVRT01.SYSUT4
//SYSUT2 DD SYSOUT=(B,SMTP),DEST=(RNE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//*

content of dataset- NWC.DEVDAT2.CYRVRT01.SYSUT3
HELO HR
MAIL FROM: <TEST@BT.COM>
RCPT TO: <TEST@BT.COM>
DATA
SUBJECT: TEST
MIME-VERSION: 1.0
CONTENT-DISPOSITION:ATTACHMENT;FILENAME="TEST.TXT"
CONTENT-TYPE: TEXT/PLAIN

content of PDS - NWC.EMAIL.TEST(EMAIL3)
TEST FOR ATTACHMENT

content of dataset- NWC.DEVDAT2.CYRVRT01.SYSUT4
.
QUIT

All the above dataset are having same file attributes as below.
Record format . . . : FBM
Record length . . . : 133
Block size . . . . : 27930

Job got failed and Iam not getting the attachment.
But got the mail with below info(only) in the body of the mail.

S
MIME-VERSION: 1.0
C
C
T

Robert Sample · Posted: Fri Jul 17, 2009 2:52 pm

Try changing the file from FBM to FB. The M has to do with carriage control characters and could adversely impact the message.

gneelu · New User Joined: 26 May 2006 Posts: 18

Hi Robert,
I have changed the file to FB.It worked.
Thanks for your support.

Robert Sample · Posted: Fri Jul 17, 2009 5:51 pm

Glad to hear it worked.

ananth86 · New User Joined: 10 Jun 2009 Posts: 59 Location: Hyderabad

Robert Sample · Posted: Tue Jul 21, 2009 10:41 pm

You'll need to talk to your site support group. The name of the host depends upon what was set in the TCP/IP configuration file during system set up; we cannot tell you what it is as the name is specific to the site. And the (B,SMTP) is also site specific -- the B could be some other writer class (we use 9 here, for example) and SMTP is the name of the SMTP started task -- again, something which you must get from your site support group as the started task name can be changed during site set up.

Finally, even if (B,SMTP) is valid at your site -- your email does not conform to the IETF RFC specifications for email and will not ever, under any circumstances, be delivered. Specifically, you must have a line with a period by itself at the end of the email or the email is discarded as incomplete. You do not have a line with a period, so it's no surprise that your email is not going out.

vasanthz · Posted: Wed Jul 22, 2009 3:38 am

dick scherrer · Posted: Wed Jul 22, 2009 7:53 am

Whew, safely past the century mark. . .

d

ananth86 · New User Joined: 10 Jun 2009 Posts: 59 Location: Hyderabad

Thanks for the info Robert.

I ll try and get back to u.

vasanthz · Posted: Wed Jul 22, 2009 1:56 pm