View previous topic :: View next topic
|
Author |
Message |
manoopatil
New User
Joined: 07 Dec 2003 Posts: 56 Location: Montreal
|
|
|
|
Hi,
I need to receive (unload) a XMIT file to a PDS on Mainframe. Right now I do it using the following command
Code: |
TSO RECEIVE INDATASET('TSTQ.SKELS') |
on prompt I enter following parameter
Code: |
DA('TSBQ.SKELS.PDS') UNIT(TSO) |
That gives me all the members unloaded to my PDS.
However I want to do this processing using a JCL because I need to unload multiple XMIT files to JCL.
Can someone suggest how to perform the above mentioned functionality thru the JCL.
Thank you
Manohar |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
What program will you be executing ? |
|
Back to top |
|
|
manoopatil
New User
Joined: 07 Dec 2003 Posts: 56 Location: Montreal
|
|
|
|
I can execute IEBCOPY or IKJEFT01
Thank you,
Manohar |
|
Back to top |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006 Posts: 1702 Location: Australia
|
|
|
|
Hi,
I'm not sure if this is what you are after, but this is a RECEIVE job that I use
Code: |
//ALLOCATE EXEC PGM=IEFBR14
//TO#FILE DD DSN=receiving-pds,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(175,25,250)),
// DCB=(RECFM=FB,LRECL=080)
//**********************************************************************
//RECEIVE EXEC PGM=IKJEFT01,
// REGION=5000K,
// DYNAMNBR=30
//FROMFILE DD DSN=input-dsname,
// DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
RECEIVE +
INDDNAME(FROMFILE)
DATASET('receiving-pds')
/* |
Gerry |
|
Back to top |
|
|
manoopatil
New User
Joined: 07 Dec 2003 Posts: 56 Location: Montreal
|
|
|
|
Hey Gerry, I was exactly after this one. Thank you for you help. |
|
Back to top |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006 Posts: 1702 Location: Australia
|
|
|
|
Hi,
I'm glad it helped.
Gerry |
|
Back to top |
|
|
|