View previous topic :: View next topic
|
Author |
Message |
prabs2006
Active User
Joined: 12 Jan 2006 Posts: 103
|
|
|
|
Hi all,
I have 10 GDG inputs. All these need to be backed up to another 10 GDG outputs in one single step. Is there any tool to do this?
Thanks & Regards
Prabhu |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
I'm not sure if this is what you're looking for, but you can use a DFSORT/ICETOOL job like the following to do what you asked for:
Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN01 DD DSN=... input gdg1
//IN02 DD DSN=... input gdg2
...
//IN10 DD DSN=... input gdg10
//OUT01 DD DSN=... output gdg1
//OUT02 DD DSN=... output gdg2
...
//OUT10 DD DSN=... output gdg10
//TOOLIN DD *
COPY FROM(IN01) TO(OUT01)
COPY FROM(IN02) TO(OUT02)
...
COPY FROM(IN10) TO(OUT10)
/*
|
|
|
Back to top |
|
|
Hanfur
Active User
Joined: 21 Jun 2006 Posts: 104
|
|
|
|
Same can be achieved using IDCAMS..
Code: |
//STEP01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=GFSUNA.INTF.MYGDG(0),DISP=SHR
//SYSUT2 DD DSN=GFSUNA.INTF.MYGDG(-1),DISP=SHR
....
//SYSOT1 DD DSN=GFSUNA.INTF.MYGDG2(0),DISP=OLD
//SYSOT2 DD DSN=GFSUNA.INTF.MYGDG2(-1),DISP=OLD
.....
//SYSIN DD *
REPRO INFILE(SYSUT1) OUTFILE(SYSOT1)
REPRO INFILE(SYSUT2) OUTFILE(SYSOT2)
....
/*
|
|
|
Back to top |
|
|
parikshit123
Active User
Joined: 01 Jul 2005 Posts: 269 Location: India
|
|
|
|
Hi,
What if I am not sure how many generation exits?
Is that still possible to take backup of all the existing GDG generations? |
|
Back to top |
|
|
Bharanidharan
New User
Joined: 20 Jun 2005 Posts: 86 Location: Chennai, India
|
|
|
|
Is your GDG limit not a constant, but is changed periodically? If your answer is no, the above solutions hold good, since you are going to refer them by (0), (-1) etc. If the limit changes regularly, how frequent is it?
Or is it that no. of versions varies due to your scheduling (situations may arise where your job would run after a GDG is created elsewhere, but should run with an empty version if file is not received/created in time, owing to business constraints) ? |
|
Back to top |
|
|
|