MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

how can we copy all versions of one gdg to another gdg

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
jajularamesh
Beginner


Joined: 14 Apr 2006
Posts: 87
Topics: 33
PostPosted: Thu May 31, 2007 2:55 am    Post subject: how can we copy all versions of one gdg to another gdg Reply with quote
i have requirement to copy

Each of the version of one gdg to to another gdg

suppose input gdg has say 10 versions we have to copy it to output GDG
that should also have 10 versions

i have searched for this but i got complicated jcls any simple method to do this

Regards,
Venkata Apparao Jajula
Back to top
View user's profile Send private message
shekar123
Advanced


Joined: 22 Jul 2005
Posts: 528
Topics: 90
Location: Bangalore India
PostPosted: Thu May 31, 2007 4:19 am    Post subject: Reply with quote
jajularamesh,

Try this code if u want to copy the entire generations contents to one GDG dataset.

For individual copy try copying 1 gdg version to another gdg version.
Code:

Suppose you input GDG datasets have contents like below:

 BROWSE    SHEKAR.TEST.GDG.G0001V00                   Line 00000000 Col 001 080
 Command ===>                                                  Scroll ===> CSR 
********************************* Top of Data **********************************
A                                                                       00000100

 BROWSE    SHEKAR.TEST.GDG.G0002V00                   Line 00000000 Col 001 080
 Command ===>                                                  Scroll ===> CSR 
********************************* Top of Data **********************************
B                                                                       00000100


 BROWSE    SHEKAR.TEST.GDG.G0003V00                   Line 00000000 Col 001 080
 Command ===>                                                  Scroll ===> CSR 
********************************* Top of Data **********************************
C                                                                       00000100



//STEP010  EXEC PGM=SORT                                           
//SORTIN   DD DSN=SHEKAR.TEST.GDG,DISP=SHR                             
//SORTOUT  DD DSN=SHEKAR.TESTING.GDG(+1),                               
//            DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(1,1)),               
//            DCB=(LRECL=80,RECFM=FB,BLKSIZE=800),                     
//            UNIT=SYSDA                                               
//SYSPRINT DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//SYSIN    DD D*
  SORT FIELDS=COPY
/*                                                                     
//                                                                     

OUTPUT

 BROWSE    SHEKAR.TESTING.GDG.G0001V00                Line 00000000 Col 001 080
 Command ===>                                                  Scroll ===> CSR 
********************************* Top of Data **********************************
C                                                                       00000100
B                                                                       00000100
A                                                                       00000100

Other way:

//STEP010  EXEC PGM=IEBGENER                                           
//SYSUT1   DD DSN=SHEKAR.TEST.GDG,DISP=SHR                             
//SYSUT2   DD DSN=SHEKAR.TESTING.GDG(+1),                               
//            DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(1,1)),               
//            DCB=(LRECL=80,RECFM=FB,BLKSIZE=800),                     
//            UNIT=SYSDA                                               
//SYSPRINT DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//SYSIN    DD DUMMY                                                     
//

 BROWSE    SHEKAR.TESTING.GDG.G0002V00                Line 00000000 Col 001 080
 Command ===>                                                  Scroll ===> CSR 
********************************* Top of Data **********************************
C                                                                       00000100
B                                                                       00000100
A                                                                       00000100

Hope this helps.
_________________
Shekar
Grow Technically
Back to top
View user's profile Send private message
expat
Intermediate


Joined: 01 Mar 2007
Posts: 475
Topics: 9
Location: Welsh Wales
PostPosted: Thu May 31, 2007 4:20 am    Post subject: Reply with quote
DFdss also known as ADRDSSU will allow you wildcard copies and do all 10 in one job.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ADR5U104/CCONTENTS?DT=19950919163903
Back to top
View user's profile Send private message
jajularamesh
Beginner


Joined: 14 Apr 2006
Posts: 87
Topics: 33
PostPosted: Thu May 31, 2007 5:16 am    Post subject: Reply with quote
Shekar,

Actully my requirement is to copy 1 gdg version to another gdg version.

However thanks a lot,Please let me know how this can be achieved

Regards,
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group