Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Bacup 10 GDG to another 10 GDG outputs in one single step

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
prabs2006

Active User


Joined: 12 Jan 2006
Posts: 103

PostPosted: Wed Jul 12, 2006 12:10 pm    Post subject: Bacup 10 GDG to another 10 GDG outputs in one single step
Reply with quote

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
View user's profile Send private message

Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Wed Jul 12, 2006 8:18 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Hanfur

Active User


Joined: 21 Jun 2006
Posts: 104

PostPosted: Thu Jul 13, 2006 11:06 am    Post subject: Hi
Reply with quote

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
View user's profile Send private message
parikshit123

Active User


Joined: 01 Jul 2005
Posts: 269
Location: India

PostPosted: Thu Jul 13, 2006 3:22 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Bharanidharan

New User


Joined: 20 Jun 2005
Posts: 86
Location: Chennai, India

PostPosted: Fri Jul 14, 2006 3:33 pm    Post subject: Re: Bkp 10 GDG to another 10 GDG outputs in one single step
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts it is possible output a SET value fro... Martylin JCL & VSAM 5 Fri Sep 22, 2017 7:08 am
No new posts More than 1 Include criteria for sing... Roy Ware SYNCSORT 6 Wed Sep 13, 2017 11:45 pm
No new posts Multiple VSAM files single output fil... Mohan Kothakota DFSORT/ICETOOL 11 Wed Aug 09, 2017 7:57 pm
No new posts Read two inputs and write into output... murali.andaluri DFSORT/ICETOOL 6 Wed Jul 26, 2017 7:35 pm
No new posts Restart=Step not working ALAK SAHA JCL & VSAM 6 Fri Jun 30, 2017 6:28 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us