View previous topic :: View next topic
|
Author |
Message |
riteshsingh92
New User
Joined: 10 Nov 2009 Posts: 17 Location: India
|
|
|
|
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 |
|
|
Pandora-Box
Global Moderator
Joined: 07 Sep 2006 Posts: 1592 Location: Andromeda Galaxy
|
|
|
|
You mean to say no knew generation should not be created after reaching 255? |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10886 Location: italy
|
|
|
|
wiser to review the requirement
what should happen when attempting to crate a new generation ??? |
|
Back to top |
|
|
riteshsingh92
New User
Joined: 10 Nov 2009 Posts: 17 Location: India
|
|
|
|
Yes Pandora no new generation should be created after reaching 255. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10886 Location: italy
|
|
|
|
and ... You forgot to reply to my question |
|
Back to top |
|
|
riteshsingh92
New User
Joined: 10 Nov 2009 Posts: 17 Location: India
|
|
|
|
New generation will be created and the oldest generation will get uncatloged or deleted. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10886 Location: italy
|
|
|
|
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 ???
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 |
|
|
riteshsingh92
New User
Joined: 10 Nov 2009 Posts: 17 Location: India
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10886 Location: italy
|
|
|
|
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 ???
|
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10886 Location: italy
|
|
Back to top |
|
|
riteshsingh92
New User
Joined: 10 Nov 2009 Posts: 17 Location: India
|
|
|
|
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. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10886 Location: italy
|
|
|
|
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 |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10886 Location: italy
|
|
|
|
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 |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
|
|
|
|
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 |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009 Posts: 1787 Location: Bloomington, IL
|
|
|
|
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 |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6248 Location: Mumbai, India
|
|
|
|
Nice and interesting read for Friday Morning! |
|
Back to top |
|
|
Pete Wilson
Active Member
Joined: 31 Dec 2009 Posts: 590 Location: London
|
|
|
|
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 |
|
|
|