XMIT command to transmit reports via email

Nidhi Bansal · New User Joined: 04 Aug 2005 Posts: 1 Location: Hyderabad

I am using an XMIT command in a JCL, which is referring a utility for the e-mail addresses of the users to whom a repot is to be transmitted via e-mail. These e-mail addresses are seperated by spaces. The problem is that whatever the e-mail addresses I specify in the first line of the utillib member, those are being used, but not the ones specified in the next line, the no. of e-mail addresses is large, so could any one suggest how do I proceed.

MGIndaco · Posted: Tue Sep 13, 2005 6:48 pm Post subject:

Excuse me... can you post a pratical sample of your problem?
Thanks in advance.

amitchaudhary · New User Joined: 13 May 2005 Posts: 10

Hi,
u can enter email-ID in seperate lines and pass the DD name in the JCl.
Now read the file and perform the sending operation in loop.
you can refer to the code attached below:

JCL Used

000600 //***************************************************************
000700 //STEP010 EXEC PGM=IKJEFT01,DYNAMNBR=20
000800 //SYSEXEC DD DSN=SYS2.PRODUCTS.REXX,DISP=SHR
000900 //CEEDUMP DD SYSOUT=*
001000 //SYSTSPRT DD SYSOUT=*
001100 //SYSPRINT DD SYSOUT=*
001200 //SUBJECT DD DSN=N23315.EMAIL.SUBJECT,DISP=SHR
001300 //SYSTSIN DD DSN=SRCBTH.PRODA.SYSIN(NWAEMAIL),DISP=SHR
001410 //SYSUT1 DD DSN=N23315.PRODMOVE.LIST,DISP=SHR
001500 //NAMEFILE DD DSN=N23315.EMAIL.EMAILID,DISP=SHR
001600 //SYSIN DD DUMMY
001700 /*

CLIST USED

****** ***************************** Top of Data ******************************
000001 PROC 0
000002 ERROR DO
000003 GOTO FIN
000004 END
000005 OPENFILE SUBJECT INPUT
000006 GETFILE SUBJECT
000007 SET SUBJTEXT = &SUBJECT
000008 CLOSFILE SUBJECT
000009 OPENFILE NAMEFILE INPUT
000010
000011 SEND: GETFILE NAMEFILE
000012 SET ACCESSID = &NAMEFILE
000013 %XMITIP &ACCESSID MSGDD SYSUT1 -
000014 SUBJECT '&SUBJTEXT'
000015 GOTO SEND
000016
000017 FIN: CLOSFILE NAMEFILE
000018 END
****** **************************** Bottom of Data ****************************