IBM Mainframe Forum

by **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:

Select all

//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'
//*
//

by **D9988** » Fri Oct 30, 2009 1:15 am

Got it to work :idea:

Select all

//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'
/*

by **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. . .

IBM Mainframe Forum

Possible to email 2 files in one step?

Possible to email 2 files in one step?

Re: Possible to email 2 files in one step?

Re: Possible to email 2 files in one step?