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
 

 

GDG Locking after reaching maximum limit

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
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    Post subject: GDG Locking after reaching maximum limit
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

Moderator


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

PostPosted: Thu Feb 07, 2013 2:16 pm    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Thu Feb 07, 2013 3:28 pm    Post subject: Reply to: GDG Locking
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    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Thu Feb 07, 2013 3:58 pm    Post subject: Reply to: GDG Locking
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    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Thu Feb 07, 2013 4:06 pm    Post subject: Reply to: GDG Locking
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    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Thu Feb 07, 2013 4:28 pm    Post subject: Reply to: GDG Locking
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Thu Feb 07, 2013 4:29 pm    Post subject: Reply to: GDG Locking
Reply with quote

I strongly sugget that You move here
http://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    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Thu Feb 07, 2013 4:36 pm    Post subject: Reply to: GDG Locking
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: 7913
Location: Bellevue, IA

PostPosted: Thu Feb 07, 2013 5:38 pm    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Thu Feb 07, 2013 5:47 pm    Post subject: Reply to: GDG Locking
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: 7913
Location: Bellevue, IA

PostPosted: Thu Feb 07, 2013 6:27 pm    Post subject:
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: 1738
Location: Bloomington, IL

PostPosted: Fri Feb 08, 2013 12:10 am    Post subject:
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

Senior Member


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

PostPosted: Fri Feb 08, 2013 10:02 am    Post subject:
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 User


Joined: 31 Dec 2009
Posts: 437
Location: London

PostPosted: Fri Feb 08, 2013 2:55 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Limit duplicate records in the SORT pshongal SYNCSORT 6 Mon Nov 21, 2016 12:54 pm
No new posts What is the maximum number of sort wo... Pravina M SYNCSORT 2 Mon Mar 14, 2016 4:51 pm
No new posts Commit limit for Delete query through... mf_karthik DB2 10 Thu Dec 17, 2015 12:56 am
No new posts DB2 10.1 Share level locking and Sele... Mary Lewis DB2 1 Wed Apr 15, 2015 9:51 pm
No new posts Array overflow on Internal table - An... scdinesh COBOL Programming 13 Thu May 22, 2014 2:55 am


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