copy the Mainframe PDS members into our PC.

garuabhash · New User Joined: 02 Nov 2005 Posts: 12 Location: Delhi

Hi,
Can any one tell me
How to copy all the members from one PDS into our PC in Text format. I need some JCL. So that I can do at once, I mean I need one shot JOB. In my PDS almost 305 members are there. Like that almost 100 PDS are there.

Please help me ASAP.

Thanks
Abhash

shreevamsi · Posted: Mon Jul 10, 2006 12:29 pm

Try this piece of Code:

//STEP01 EXEC PGM=FILEAID
//DDFROM DD DSN=xxxx.xxxx.xxxxx,DISP=SHR <<YOUR OLD PDS
//DDTOPDS DD DSN=xxxx.xxxx.xxxx, <<NEW PDS TO COPY
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// DCB=(xxxx.xxxx.xxxxx),
// SPACE=(58200,(14000,135,800),RLSE,,ROUND)
//SYSIN DD *
$$DD01 COPY MEMBERS=ALL
/*
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
This will copy all the members from one pds to another

~Vamsi

garuabhash · New User Joined: 02 Nov 2005 Posts: 12 Location: Delhi

Thanks Vamsi,
But your solution is going to solve my problem.
Actually I want from Mainframe to Our PC desktop or in any folder in .text format. Just you can say I need to do the FTP.

Regards
Abhash