Page 1 of 1

Possible to email 2 files in one step?

PostPosted: Fri Oct 30, 2009 12:03 am
by D9988
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'
//*
//

Re: Possible to email 2 files in one step?

PostPosted: Fri Oct 30, 2009 1:15 am
by D9988
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'                           
/*   

Re: Possible to email 2 files in one step?

PostPosted: Fri Oct 30, 2009 1:37 am
by dick scherrer
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. . .