MVSFORUMS.com

ssd · Beginner Joined: 24 Mar 2006 Posts: 25 Topics: 10

Hi,

I have a requirement where I need to send Email from a COBOL program.
Have anyone one tried this before

Thanks
ssd

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

Tried it. Couldn't get the TCP/IP Socket calls to work properly for SMTP. Finally gave up and just coded a program to invoke a REXX exec that does the same Socket calls, but actually works.

kolusu · Posted: Wed May 16, 2007 1:31 pm Post subject:

SSd,

You just allocate a seq File and write the file containg FROM, TO, and other mail header tags followed by the text of the email. The next step takes in this file and route that file via SYSOUT to an SMTP Mail Server.

why are inclined to do everything in the program itself?

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

Our Exchange server looks at port 25 for SMTP.

ssd · Beginner Joined: 24 Mar 2006 Posts: 25 Topics: 10

Superk,
If you could send me some link having COBOL interface to SMTP,I would try it out on my part.

Kolusu,
The method you suggested looks great. Yet my requirement says no intermediate file should be involved and that the mail has to be sent directly sent from the program for certain critical errors that occur during processing .

Thanks for your reply guys.

SSD

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

z/OS V1R7.0 Comm Svr: IP Sockets Application Programming Interface Guide and Reference.

Southington · Posted: Thu May 17, 2007 3:19 pm Post subject:

Requirements are made to be changed.

Earl · Beginner Joined: 09 Jun 2007 Posts: 26 Topics: 1

you can write your email to a flat file, then feed into an SMTP jobstep.

However, best approach would be use a software product like Jes2Mail
www.casisoft.com

or if its CICS cobol , try www.pcs305.com select cics tools

Rolling Eyes

Earl · Beginner Joined: 09 Jun 2007 Posts: 26 Topics: 1

regarding ;;;

The method you suggested looks great. Yet my requirement says no intermediate file should be involved and that the mail has to be sent directly sent from the program for certain critical errors that occur during processing .

No way to do direct from a COBOL batch program that I'm aware, unless
you start using some additional vendor software.

You could try using a passthru to CICS for delivery of mail.
Check out BatchCICS and CICS/Notify. go to www.batchcics.com
contact the vendor and tell them what you are trying to accomplish. I'm sure they would be willing to help you out. Idea

for some $

peaglet · Posted: Mon Jun 11, 2007 4:39 pm Post subject:

how about writing the file to the intrdr with a dest of SMTP?

Earl · Beginner Joined: 09 Jun 2007 Posts: 26 Topics: 1

writing to INTRDR would require building entire JOB stream to execute SMTP. could be done, but a lot of extra code, ++ usage of INTRDR is normally written to a &temp intermediate file.

Thats why I suggested using vendor software, could then be used for other
functions.

Check out BatchCICS and CICS/Notify. go to www.batchcics.com
Rolling Eyes

Earl · Beginner Joined: 09 Jun 2007 Posts: 26 Topics: 1

there is another option. I've never tried it, but you could just write your smtp
statements to a 132char. width print output,

then have JCL pointing to correct class. Contact your tech support for specifics.

//SENDNOTE EXEC PGM=COBOLPGM
//SMTP132 DD SYSOUT=(B,SMTP)

COBOL CODE:::::::::::::::::::::::::::
SELECT PRINTOUT ASSING TO SMTP132.

FD PRINTOUT.
01 PRINTOUT-RECORD PIC X(132).

....
....
....
PROCEDURE DIVISION.
* BUILD MOVE STATEMENTS TO PRINTOUT-RECORD AND WRITE FOR SMTP *
HELO SY0F
MAIL FROM:<TEST COBOLPGM >
RCPT TO:<WHOEVER@MYCOMPANY.com >
DATA
TO: whoever@mycompany.com
SUBJECT:smtp mail test from a cobol program
CONTENT-TYPE: TEXT/PLAIN
Please do not reply to this email.
.
QUIT