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
 
GDG generation creation not working.

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

New User


Joined: 28 Jun 2005
Posts: 35
Location: chennai

PostPosted: Thu Dec 20, 2007 9:29 pm    Post subject: GDG generation creation not working.
Reply with quote

This is the code I have and it say for the ALLOC as the dataset for the base and the new both are giving me as not cataloged or it cannot be accessed. Can someone help me out in this.

Code:
CNEWDSN = 'GDG base name to be created'
ADDRESS TSO "DEFINE GDG (NAME('"CNEWDSN"') LIM(10) SCR)"
ADDRESS TSO "ALLOC F(GDGBAS) DS ('"CNEWDSN"') SHR REUS"
CNEWDSN = CNEWDSN || '.' || G0001V00                   
ADDRESS TSO "ALLOC F(GDGVER) DS ('"CNEWDSN"') SHR REUS"
Back to top
View user's profile Send private message

ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Thu Dec 20, 2007 9:35 pm    Post subject:
Reply with quote

Will you be generous and share your TRACE results with us?

O.
Back to top
View user's profile Send private message
vasan_4u

New User


Joined: 28 Jun 2005
Posts: 35
Location: chennai

PostPosted: Thu Dec 20, 2007 9:38 pm    Post subject:
Reply with quote

This is the result its showing me.

Code:
IKJ56228I DATA SET LST.F.STAT.AGE.LETRS.DAY NOT IN CATALOG OR CATALOG CAN NOT B
E ACCESSED                                                                     
 IKJ56701I MISSING DATA SET NAME+                                               
 IKJ56701I MISSING NAME OF DATA SET TO BE ALLOCATED                             
 IKJ56228I DATA SET LST.F.STAT.AGE.LETRS.DAY.G0001V00 NOT IN CATALOG OR CATALOG
CAN NOT BE ACCESSED                                                             
 IKJ56701I MISSING DATA SET NAME+                                               
 IKJ56701I MISSING NAME OF DATA SET TO BE ALLOCATED                             
 GDG CREATED                                                                   
 LST.F.STAT.AGE.LETRS.DAY.G0001V00                                             
 LST.F.STAT.AGE.LETRS.DAY.G0001V00 NOT LISTED                                   
 LST.F.STAT.AGE.LETRS.DAY.G0001V00 NOT LISTED
Back to top
View user's profile Send private message
expat

Global Moderator


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

PostPosted: Thu Dec 20, 2007 9:42 pm    Post subject:
Reply with quote

Code:
CNEWDSN = 'GDG base name to be created'
ADDRESS TSO "DEFINE GDG (NAME('"CNEWDSN"') LIM(10) SCR)"
ADDRESS TSO "ALLOC F(GDGBAS) DS ('"CNEWDSN"') SHR REUS"
CNEWDSN = CNEWDSN || '.' || G0001V00                   
ADDRESS TSO "ALLOC F(GDGVER) DS ('"CNEWDSN"') SHR REUS"


Let's take a look here

I'm OK with you defining the GDG base, that's the DEFINE GDG bit

So why are you trying to allocate the GDG base as a file ?

How can you possibly expect to allocate G0001V00 as SHR when it has not been created ?
Back to top
View user's profile Send private message
superk

Moderator Team Head


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

PostPosted: Thu Dec 20, 2007 9:43 pm    Post subject: Reply to: GDG generation creation not working.
Reply with quote

... not to mention that that's NOT TRACE output. That looks like the output from a batch job stream.
Back to top
View user's profile Send private message
vasan_4u

New User


Joined: 28 Jun 2005
Posts: 35
Location: chennai

PostPosted: Thu Dec 20, 2007 9:46 pm    Post subject:
Reply with quote

Ok here come my question: Now as I have defined a GDG i need to create the next empty generation of the same how can i do that.

And one more thing here is i wanted to check if the base for the GDG is already present if it is then these steps have be skipped how can i acheive that
Code:
IF SYSDSN ("'"CNEWDSN"'") /='OK'
Then this check is not working for GDG.
Back to top
View user's profile Send private message
vasan_4u

New User


Joined: 28 Jun 2005
Posts: 35
Location: chennai

PostPosted: Thu Dec 20, 2007 9:49 pm    Post subject:
Reply with quote

Yes that not a Trace output I have a very lengthy Rexx code and to come to the step where this is present will take hour for me.

The above exception are when I directly excuted the Rexx.
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Thu Dec 20, 2007 10:04 pm    Post subject:
Reply with quote

Just remember that LISTDSI supports only absolute GDG names, not relative names.

O.
Back to top
View user's profile Send private message
expat

Global Moderator


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

PostPosted: Thu Dec 20, 2007 10:12 pm    Post subject:
Reply with quote

Quote:
Ok here come my question: Now as I have defined a GDG i need to create the next empty generation of the same how can i do that.


That's an easy one to answer - look back at the previous thread that you started on the topic of creating GDG's, link below, follow the link that superk gave you, then read the whole thread thoroughly and use the code of mine that is posted in that thread. Had you have read the previous replies properly you would not need to ask the same question again.

http://www.ibmmainframes.com/viewtopic.php?t=26930

Quote:
And one more thing here is i wanted to check if the base for the GDG is already present if it is then these steps have be skipped how can i acheive that


What utility would you use to list out the contents of a gdg base ?
Back to top
View user's profile Send private message
Douglas Wilder

Active User


Joined: 28 Nov 2006
Posts: 305
Location: Deerfield IL

PostPosted: Thu Dec 20, 2007 10:17 pm    Post subject:
Reply with quote

Remove this:
Code:
ADDRESS TSO "ALLOC F(GDGBAS) DS ('"CNEWDSN"') SHR REUS"

This needs to be changed:
Code:
CNEWDSN = CNEWDSN || '.' || G0001V00                   
ADDRESS TSO "ALLOC F(GDGVER) DS ('"CNEWDSN"') SHR REUS"

Do not use SHR use New, add tracks or Cyl, space, lrecl, ...
Mine looks like the following
Code:
ADDRESS "TSO" " ALLOCATE DDNAME(OUTFILE) NEW ",       
   || " DSNAME('" || DSN1 || ".G000" || C || "V00')" ,
   || " TRACKS" ,                                     
   || " SPACE(" || QTY || " " || QTY2 || ")" ,         
   || " LRECL(" || RECL || ")" ,                       
   || " BLOCK(" || BLKS || ")" ,                       
   || " RECFM(F B)"                                    "


I hope this helps you.
Back to top
View user's profile Send private message
vasan_4u

New User


Joined: 28 Jun 2005
Posts: 35
Location: chennai

PostPosted: Thu Dec 20, 2007 10:28 pm    Post subject:
Reply with quote

Thanks i dint follow the link which Superk gave me in the last question.

regarding this

Quote:
And one more thing here is i wanted to check if the base for the GDG is already present if it is then these steps have be skipped how can i acheive that


I used LISTDS .
Back to top
View user's profile Send private message
expat

Global Moderator


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

PostPosted: Thu Dec 20, 2007 10:35 pm    Post subject:
Reply with quote

Try IDCAMS - it works great for listing GDG bases and entries if they exist and issues a non zero RC if the GDG base does not exist.
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 LISTDSI () SMSINFO is not working upendrasri CLIST & REXX 4 Fri Nov 17, 2017 11:33 am
No new posts LIBDEF not working in called proc packerm CLIST & REXX 0 Fri Sep 15, 2017 7:22 pm
No new posts Working with hex values in Filemanage... Emile Straker IBM Tools 0 Tue Sep 12, 2017 1:42 am
No new posts ISREDIT MACRO NOT WORKING! :cry: kirank889 TSO/ISPF 3 Thu Aug 03, 2017 5:46 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