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 to create a set of GDG's_Provide a Code Please

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
ramu_mohan21
Beginner


Joined: 29 Jun 2004
Posts: 106
Topics: 41
Location: Bangalore, INDIA
PostPosted: Thu Jul 01, 2004 7:18 am    Post subject: How to create a set of GDG's_Provide a Code Please Reply with quote
Hi Borad,
My requirement is to create Many number of GDG's. Instead of creating GDG by File-Aid(One by one), I want to create it throgh REXX (or) CList at a time. Is this possible to create many number of GDG's at a time?
If possible please provide a code.

Best Regards,
----------------------
Rammohan Pabba
Software Engineer
Bangalore.
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
PostPosted: Thu Jul 01, 2004 7:30 am    Post subject: Reply with quote
Ram_mohan21,

You can run a simple IEFBR14 step to create as many GDG's you want. Here is a sample Job.

Code:

//STEP0100  EXEC  PGM=IEFBR14                     
//*                                               
//FILE01   DD  DSN=YOUR.GDG.BASE(+1),         
//             DISP=(NEW,CATLG,DELETE),           
//             UNIT=SYSDA,                       
//             SPACE=(TRK,(1,1),RLSE),           
//             DCB=(LRECL=ZZZ,RECFM=FB,BLKSIZE=0) 
//*                                               
//FILE02   DD  DSN=YOUR.GDG.BASE(+2),         
//             DISP=(NEW,CATLG,DELETE),           
//             UNIT=SYSDA,                       
//             SPACE=(TRK,(1,1),RLSE),           
//             DCB=(LRECL=ZZZ,RECFM=FB,BLKSIZE=0) 
//*                                               
//FILE03   DD  DSN=YOUR.GDG.BASE(+3),         
//             DISP=(NEW,CATLG,DELETE),           
//             UNIT=SYSDA,                       
//             SPACE=(TRK,(1,1),RLSE),           
//             DCB=(LRECL=ZZZ,RECFM=FB,BLKSIZE=0) 
//*                                               

....

//FILE0n   DD  DSN=YOUR.GDG.BASE(+nn),         
//             DISP=(NEW,CATLG,DELETE),           
//             UNIT=SYSDA,                       
//             SPACE=(TRK,(1,1),RLSE),           
//             DCB=(LRECL=ZZZ,RECFM=FB,BLKSIZE=0) 
//*                                               


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Brian
Beginner


Joined: 12 Aug 2003
Posts: 95
Topics: 6
PostPosted: Thu Jul 01, 2004 8:45 am    Post subject: Reply with quote
Kolusu,

Great men do need a break and so do you Very Happy

The poster asked for creating GDG bases...
Wont this SYSIN card of IDCAMS help him

Code:

 DEFINE GDG(NAME(NAME1.GDG) LIMIT(10) SCRATCH NOEMPTY)
 DEFINE GDG(NAME(NAME2.GDG) LIMIT(10) SCRATCH NOEMPTY)
 DEFINE GDG(NAME(NAME3.GDG) LIMIT(10) SCRATCH NOEMPTY)
 DEFINE GDG(NAME(NAME4.GDG) LIMIT(10) SCRATCH NOEMPTY)



Cheers
Brian
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
PostPosted: Thu Jul 01, 2004 9:30 am    Post subject: Reply with quote
Brian,

Quote:

Great men do need a break and so do you


I don't think I fit the great part, but I do need a Break. I am looking forward for this weekend as it is a long weekend.

I assumed that he wanted to created versions, but now looking at it more closely, I think you are right on.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
ramu_mohan21
Beginner


Joined: 29 Jun 2004
Posts: 106
Topics: 41
Location: Bangalore, INDIA
PostPosted: Thu Jul 01, 2004 10:52 pm    Post subject: Thanks you for providing a solution Reply with quote
Hi Brian/Kolusu,
Sorry for not mentioning that I need to create GDG bases. Brian understood my question.

Thank you for providing the solution. Can you please help me how to keep this code in REXX? Because I am new to the REXX.

Best Regards,
--------------------------
Rammohan Pabba
Software Engineer
Bangalore.
Back to top
View user's profile Send private message Send e-mail
Cogito-Ergo-Sum
Advanced


Joined: 15 Dec 2002
Posts: 637
Topics: 43
Location: Bengaluru, INDIA
PostPosted: Fri Jul 02, 2004 9:55 am    Post subject: Reply with quote
Be careful with the name of GDG base. You need to enclose a fully-qualified dataset with single quotes. Else, the user-id will be prefixed.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.
Back to top
View user's profile Send private message
ramu_mohan21
Beginner


Joined: 29 Jun 2004
Posts: 106
Topics: 41
Location: Bangalore, INDIA
PostPosted: Mon Jul 05, 2004 2:19 am    Post subject: Reply with quote
Hi Board,
Thanks to Kolusu, Brian and Ravi for providing the solution.

To: Cogito-Ergo-Sum,
As you said I have taken care of keeping Single Quotes while writing the code.
Thank you for your suggesstion.

Best Regards,
---------------------------------
Rammohan Pabba
Software Engineer
Bangalore.
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF 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