IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to copy n number of PDS to another pds at a time


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
pmn2cdac

New User


Joined: 23 Dec 2007
Posts: 27
Location: Bangalore

PostPosted: Wed May 14, 2008 10:23 am
Reply with quote

I am having different 74 pds,,,,and I want to copy it to another pds .
Can anybody please suggest the tips to resolve the same.

Thanks,
Praveen
Back to top
View user's profile Send private message
yogeshwar_ade

Active User


Joined: 31 Aug 2006
Posts: 103
Location: INDIA

PostPosted: Wed May 14, 2008 10:27 am
Reply with quote

pmn2cdac wrote:
I am having different 74 pds,,,,and I want to copy it to another pds .


PDS to another PDS??? Or wants to copy PDS Member to another PDS?
Back to top
View user's profile Send private message
pmn2cdac

New User


Joined: 23 Dec 2007
Posts: 27
Location: Bangalore

PostPosted: Wed May 14, 2008 10:28 am
Reply with quote

For ex:

sspmn.ss2154 to sspmn.ss2155
sspmn.ss2196 to sspmn.ss2197

like this i am having 74 pds...and i want to copy at once all these.

Thanks,
Praveen
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Wed May 14, 2008 10:35 am
Reply with quote

Hi,
try using IEBCOPY or ISPF 3.3.


Gerry
Back to top
View user's profile Send private message
pmn2cdac

New User


Joined: 23 Dec 2007
Posts: 27
Location: Bangalore

PostPosted: Wed May 14, 2008 10:44 am
Reply with quote

it will be tedious job to copy 74 pds to another pds one by one by iebcopy utility.

my requirment is that it should happen at once.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Wed May 14, 2008 10:54 am
Reply with quote

Hi,
you can copy all members with one statement.


Code:
 COPY OUTDD=OUT,INDD=IN



Gerry
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Wed May 14, 2008 11:26 am
Reply with quote

pmn2cdac wrote:
it will be tedious job to copy 74 pds to another pds one by one by iebcopy utility.

my requirment is that it should happen at once.

Well, once you figure out how to do it in a non tedious fashion, please let us know.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Wed May 14, 2008 12:41 pm
Reply with quote

Quote:
it will be tedious job to copy 74 pds to another pds one by one by iebcopy utility.


if somebody should be annoyed, that one should be IEBCOPY himself icon_cool.gif
think also of all the poor zOS componenents moving bytes around,
always the same bits.... that' s tedious
Back to top
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Wed May 14, 2008 7:40 pm
Reply with quote

Hi Praveen,

I found this in the IBM JCL Guide on this site. Go to the COBOL Forum's thread about "changing a particular character" for other info. Need more help - ask.
Code:
       //COPY     JOB  ...
       //JOBSTEP  EXEC PGM=IEBCOPY
       //SYSPRINT DD  SYSOUT=A
       //INOUTA   DD  DSNAME=DATASETA,UNIT=disk,VOL=SER=111113,
       //             DISP=OLD
       //INB      DD  DSNAME=DATASETB,UNIT=disk,VOL=SER=111115,
       //             DISP=(OLD,KEEP)
       //INC      DD  DSNAME=DATASETC,UNIT=disk,VOL=SER=111114,
       //             DISP=(OLD,KEEP)
       //IND      DD  DSNAME=DATASETD,UNIT=disk,VOL=SER=111116,
       //             DISP=OLD
       //INE      DD  DSNAME=DATASETE,UNIT=disk,VOL=SER=111117,
       //             DISP=OLD
       //OUTX     DD  DSNAME=DATASETX,UNIT=disk,VOL=SER=111112,
       //             DISP=(NEW,KEEP),SPACE=(TRK,(3,1,2))
       //SYSUT3   DD  UNIT=SYSDA,SPACE=(TRK,(1))
       //SYSIN    DD  *
       COPERST1 COPY  O=OUTX,I=INOUTA
                COPY  OUTDD=INOUTA,INDD=INOUTA
                      INDD=INB
                COPY  OUTDD=INOUTA
                      INDD=IND
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts Pulling a fixed number of records fro... DB2 2
No new posts Substring number between 2 characters... DFSORT/ICETOOL 2
No new posts VB to VB copy - Full length reached SYNCSORT 8
No new posts Generate random number from range of ... COBOL Programming 3
No new posts To get the the current time DFSORT/ICETOOL 13
Search our Forums:

Back to Top