IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

GDG Locking after reaching maximum limit


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
riteshsingh92

New User


Joined: 10 Nov 2009
Posts: 17
Location: India

PostPosted: Thu Feb 07, 2013 1:56 pm
Reply with quote

Can someone suggest me " If I want to lock the GDG means it will not create new generation after reaching its maximum limit for example 255.
Back to top
View user's profile Send private message
Pandora-Box

Global Moderator


Joined: 07 Sep 2006
Posts: 1592
Location: Andromeda Galaxy

PostPosted: Thu Feb 07, 2013 2:16 pm
Reply with quote

You mean to say no knew generation should not be created after reaching 255?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy

PostPosted: Thu Feb 07, 2013 3:28 pm
Reply with quote

wiser to review the requirement
what should happen when attempting to crate a new generation ???
Back to top
View user's profile Send private message
riteshsingh92

New User


Joined: 10 Nov 2009
Posts: 17
Location: India

PostPosted: Thu Feb 07, 2013 3:54 pm
Reply with quote

Yes Pandora no new generation should be created after reaching 255.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy

PostPosted: Thu Feb 07, 2013 3:58 pm
Reply with quote

and ... You forgot to reply to my question icon_cool.gif
Back to top
View user's profile Send private message
riteshsingh92

New User


Joined: 10 Nov 2009
Posts: 17
Location: India

PostPosted: Thu Feb 07, 2013 4:01 pm
Reply with quote

New generation will be created and the oldest generation will get uncatloged or deleted.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy

PostPosted: Thu Feb 07, 2013 4:06 pm
Reply with quote

Quote:
New generation will be created and the oldest generation will get uncatloged or deleted.

completely useless ....

thats the nbormal behavior of GDGs

for the original request
Quote:
If I want to lock the GDG means it will not create new generation after reaching its maximum limit for example 255.


Quote:
no new generation should be created after reaching 255.


use Your neurons please ...

jobs gets submitted, which contain <gdg thingy>(+1)

how will You handle the fact that at a certain point in time the count will arrive to the LIMIT ??? icon_evil.gif

How do You plan to change the jobs that create the generations ???

Do You realize that You are wasting the time of the people trying to help You
for Your wishy-washy way op posting the description of the requirement

topic will be vaporized very shortly
Back to top
View user's profile Send private message
riteshsingh92

New User


Joined: 10 Nov 2009
Posts: 17
Location: India

PostPosted: Thu Feb 07, 2013 4:23 pm
Reply with quote

you mean to say that is not possible??

I thought we can put the check in JCL for verify to check the file name generation e.g if file name = a.b.c.g255.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy

PostPosted: Thu Feb 07, 2013 4:28 pm
Reply with quote

Quote:
no new generation should be created after reaching 255.


Quote:
New generation will be created and the oldest generation will get uncatloged or deleted.



what exactly do You want from us ???

icon_evil.gif
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy

PostPosted: Thu Feb 07, 2013 4:29 pm
Reply with quote

I strongly sugget that You move here
ibmmainframeforum.com/index.php
Back to top
View user's profile Send private message
riteshsingh92

New User


Joined: 10 Nov 2009
Posts: 17
Location: India

PostPosted: Thu Feb 07, 2013 4:32 pm
Reply with quote

I am sorry if you not getting my question but my question is that I know that after reaching to 255 GDG will create new generation but my requirement is that I want my job to fail or no new generation will create after reaching GDG to 255. icon_confused.gif
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy

PostPosted: Thu Feb 07, 2013 4:36 pm
Reply with quote

it is not my fault if You do not read and understand the questions asked ...

I asked

Quote:
what should happen when attempting to crate a new generation ???


not
Quote:
what happens when attempting to crate a new generation ???

because I DO know what happens
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA

PostPosted: Thu Feb 07, 2013 5:38 pm
Reply with quote

Quote:
my requirement is that I want my job to fail or no new generation will create after reaching GDG to 255.
To do this, have your site security group change the access to read only once you've got the right number of generations (be it 3 or 255).
There is no way using JCL to do what you want -- only the security software in use at your site can prevent access.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy

PostPosted: Thu Feb 07, 2013 5:47 pm
Reply with quote

it would be nice to see the reactions at the first failure after the implementation

and anyway no automatic way of doing it !

seems a pretty silly requirement.

seems that the people who set the requirement simply forgot about all the implications

while I have seen a dsname change for some process at fixed times,
having it depending on an <irregular> interval is just to look for troubles

at fixed times ( every monday, the first of the month ..., ... ) the scheduler can take care of the automatic changes

on any other trigger ( proposed JCL error in this case ) the modifications will have to be manual and done on a rush

as I said badly thought requirement
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA

PostPosted: Thu Feb 07, 2013 6:27 pm
Reply with quote

I totally agree with Enrico -- the "requirement" is inane and should be reviewed by someone competent before implementation. For example, where did the 255 come from? Is it merely because the most generations that can be cataloged in a GDG base is 255? If the GDG adds a new generation added once a month, then it will take over 20 years to reach the 255 (unless, of course, there are reruns without fixing the GDG).

I think you've developed your solution to whatever you think the problem is, and now want to change the system to fit your solution.
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1787
Location: Bloomington, IL

PostPosted: Fri Feb 08, 2013 12:10 am
Reply with quote

Ritu:

Prior to the operational job step, run the following script in background TSO (use IKJEFT1B, not IKJEFT01):

Code:
/* Rexx */                                                             
/*********************************************************************/
/*                                                                   */
/* Written Heisei 25.02.07 by Akatsukami-sama                        */
/*                                                                   */
/*********************************************************************/
  trace o                                                             
  arg gdg .                                                           
  sig      = x2c("E69989A3A3859540C88589A2858940F2F54BF0F24BF0F740")   
  sig      = sig || x2c("82A840C19281A3A2A49281948960A2819481")       
  assox    = 0                                                         
  x = outtrap("LISTC.")                                               
  "LISTC ENTRIES('"gdg"') ALL"                                         
  x = outtrap("OFF")                                                   
                                                                       
  p = pos("GDG BASE",listc.1)                                         
                                                                       
  if (p=0) then exit 8 /* Not a GDG base */                           
                                                                       
  do i = 2 to listc.0                                                 
    if (list=1) then do                                               
      if (substr(listc.i,7,1)¬=' ') then leave i                       
                                                                       
      assox = assox + 1                                               
    end                                                               
                                                                       
    p = pos("LIMIT",listc.i)                                           
                                                                       
    if (p¬=0) then limit = substr(listc.i,p+23,3)                     
                                                                       
    q = pos("ASSOCIATIONS",listc.i)                                   
                                                                       
    if (q¬=0) then list = 1                                           
  end                                                                 
                                                                       
  if (assox=limit) then exit 20
  else exit 0                 

It will return zero if the GDG has fewer data sets than its limit, 8 if the DSN supplied as a parameter is not a GDG base, and 20 if the GDG contains the maximum number of data sets. Enclose the rest of the job in an IF-THEN-ELSE construct as appropriate.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India

PostPosted: Fri Feb 08, 2013 10:02 am
Reply with quote

Nice and interesting read for Friday Morning! icon_smile.gif
Back to top
View user's profile Send private message
Pete Wilson

Active Member


Joined: 31 Dec 2009
Posts: 590
Location: London

PostPosted: Fri Feb 08, 2013 2:55 pm
Reply with quote

If you never want anything to be able to write a new generation you can either get the RACF profile changed to so one has acess to create a new one.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts Expand ISPF field up to a limit - is ... TSO/ISPF 9
No new posts SORT ERROR PARAMETER VALUE EXCEEDS M... DFSORT/ICETOOL 12
No new posts Rexx to list generations of GDGs and ... CLIST & REXX 3
No new posts Any limit on usage of cursors ? DB2 1
No new posts Increase the Maximum Length of LRECL ... JCL & VSAM 5
Search our Forums:

Back to Top