Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Creation of GDG using rexx

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
shchan

New User


Joined: 06 Jun 2007
Posts: 58
Location: Hyderabad

PostPosted: Thu Aug 09, 2007 6:59 pm    Post subject: Creation of GDG using rexx
Reply with quote

Hi,
Can anyone tell me how to create a GDG using rexx and how to find if a particular GDG or a ps or PDS already exists using rexx?
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Thu Aug 09, 2007 7:20 pm    Post subject:
Reply with quote

GDG creation - why not just code the GDG(+1) in the JCL and access it via the DDname.

To see if a dataset exist, either DSINFO or LISTDSI should work.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Aug 10, 2007 12:10 am    Post subject:
Reply with quote

Hello,

By this
Quote:
Can anyone tell me how to create a GDG using rexx
are you asking how to create a new generation or are you asking how to define a new gdg base?

The "create" of a new generation is answered above.

To define a new base, invoke IDCAMS from within your rexx code.
Back to top
View user's profile Send private message
shchan

New User


Joined: 06 Jun 2007
Posts: 58
Location: Hyderabad

PostPosted: Fri Aug 10, 2007 2:24 pm    Post subject:
Reply with quote

Hi
Apart from invoking IDCAMS from rexx do we have any other method?
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Aug 10, 2007 2:25 pm    Post subject:
Reply with quote

Or do you mean using REXX code to define a +1 generation ?
Back to top
View user's profile Send private message
shchan

New User


Joined: 06 Jun 2007
Posts: 58
Location: Hyderabad

PostPosted: Fri Aug 10, 2007 4:35 pm    Post subject:
Reply with quote

Thanx expat,
I do not mean defining a +1 generation but to create the base version.
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4649
Location: Raleigh, NC, USA

PostPosted: Fri Aug 10, 2007 5:23 pm    Post subject: Re: Creation of GDG using rexx
Reply with quote

Then yes, you have to use IDCAMS through the proper TSO command:

Code:

/* REXX */
ADDRESS TSO
"DEF GDG (NAME(GDG01) EMP NSCR LIM(255))"
Exit 0


or, as already mentioned, by invoking IDCAMS:

Code:

/* REXX */
ADDRESS TSO
"ALLOC DD(SYSPRINT) DA(*) REU"
"ALLOC DD(SYSIN) NEW REU RECFM(F B) LRECL(80)"
Queue "  DEF GDG (NAME(GDG01) EMP NSCR LIM(255))"
"EXECIO "Queued()" DISKW SYSIN (FINIS"
"CALL *(IDCAMS)"
Exit 0
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts REXX to get the all datasets name parasmalik20 CLIST & REXX 5 Tue Jul 18, 2017 9:10 pm
No new posts How system know which REXX to excute? jackzhang75 CLIST & REXX 14 Thu Jul 06, 2017 1:09 am
No new posts REXX - Dynamic file Creation d_sarlie CLIST & REXX 7 Tue Jun 27, 2017 7:30 pm
No new posts REXX WTO for console message bipinpeter CLIST & REXX 6 Tue Jun 27, 2017 3:56 pm
No new posts Convert CLIST to REXX cvnlynn CLIST & REXX 12 Tue Jun 27, 2017 2:06 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us