Possible to email 2 files in one step?



JES, JES2, JCL utilities, IDCAMS, Compile & Run JCLs, PROCs etc...

Possible to email 2 files in one step?

Postby D9988 » Fri Oct 30, 2009 12:03 am

I currently use 2 consecutive steps to email 2 files. Is it possible to consolidate this so that one step emails both files? Here's an example of the code I currently use:

//T0000010 EXEC PGM=IKJEFT1B,COND=(0,NE)                               
//SYSEXEC   DD DSN=PRD001.MISC.CLIST,DISP=SHR                         
//SYSPRINT  DD SYSOUT=(,)                                             
//SYSTSPRT  DD SYSOUT=(,)                                             
//EMAILFLE  DD DSN=TEST.JUNK1(+0),                   
//          DISP=SHR                                                   
//EMAILMSG  DD *                                                       
/*                                                                     
//SYSTSIN   DD *                                                       
%XMITIP     'TEST'<TEST@TEST.JOB> -                     
   FROM     'TEST'<TEST@TEST.JOB>       -           
   FILEDD   EMAILFLE      -                                           
   FILENAME REPORT1.XLS -                         
   FORMAT   XLS           -                                           
   MSGDD    EMAILMSG      -                                           
   SUBJECT  'REPORTS'
//*
//T0000020 EXEC PGM=IKJEFT1B,COND=(0,NE)                               
//SYSEXEC   DD DSN=PRD001.MISC.CLIST,DISP=SHR                         
//SYSPRINT  DD SYSOUT=(,)                                             
//SYSTSPRT  DD SYSOUT=(,)                                             
//EMAILFLE  DD DSN=TEST.JUNK2(+0),                   
//          DISP=SHR                                                   
//EMAILMSG  DD *                                                       
/*                                                                     
//SYSTSIN   DD *                                                       
%XMITIP     'TEST'<TEST@TEST.JOB> -                     
   FROM     'TEST'<TEST@TEST.JOB>       -           
   FILEDD   EMAILFLE      -                                           
   FILENAME REPORT2.TXT -                         
   FORMAT   XLS           -                                           
   MSGDD    EMAILMSG      -                                           
   SUBJECT  'REPORTS'
//*
//
David
D9988
 
Posts: 34
Joined: Fri Nov 09, 2007 10:55 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Possible to email 2 files in one step?

Postby D9988 » Fri Oct 30, 2009 1:15 am

Got it to work :idea:

//T0000010 EXEC PGM=IKJEFT1B,COND=(0,NE)                               
//SYSEXEC   DD DSN=PRD001.MISC.CLIST,DISP=SHR                         
//SYSPRINT  DD SYSOUT=(,)                                             
//SYSTSPRT  DD SYSOUT=(,)                                             
//EMAILFLE  DD DSN=TEST.JUNK1(+0), DISP=SHR                           
//EMAILFL2  DD DSN=TEST.JUNK2(+0), DISP=SHR                   
//EMAILMSG  DD *                                                       
/*                                                                     
//SYSTSIN   DD *                                                       
%XMITIP     'TEST'<TEST@TEST.JOB> -                     
   FROM     'TEST'<TEST@TEST.JOB>       -           
   FILEDD   (EMAILFLE EMAILFL2)      -                                           
   FILENAME (REPORT1.XLS REPORT2.TXT) -                         
   FORMAT   XLS           -                                           
   MSGDD    EMAILMSG      -                                           
   SUBJECT  'REPORTS'                           
/*   
David
D9988
 
Posts: 34
Joined: Fri Nov 09, 2007 10:55 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Possible to email 2 files in one step?

Postby dick scherrer » Fri Oct 30, 2009 1:37 am

Good to hear it is working - thanks for letting us know :)

With the FILEDD as specified, i believe you can remove the FILENAME entry. This might be handy if the dsn(s) might be specified by a symbolic parameter. . .
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times


Return to JCL

 


  • Related topics
    Replies
    Views
    Last post