How to delete selective versions from one GDG

subratarec · Posted: Wed Dec 02, 2009 10:57 pm

Hi,
I want a JCL code which can delete selective number of versions from one GDG.. Let me give you the details below

1. I need to delete around 150,000 versions of one GDG. Now the condition is all the GDG versions more than 45 days old should be deleted by the JCL.

For example: I have SUBRATA.FORMJ167.CF1#MSG GDG base. Now the versions created from this base looks like below

SUBRATA.FORMJ167.SUB#MSG.D010502.T140129 - Here in D010502,
d = date, 01 = 2001, 05 = May, 02 = 2nd day of the month.

Now I need to write a job which will check this 4th qualifier (D010502) of the versions and will delete till D091018 (d = date, 09 = 2009, 10 = Oct, 18 = 18th day of the month.

So in a very simple term I need a JCL which will check above condition and will delete certain number of versions.

I have JCL which use IEFBR14 utility to delete all the version (below)

//*------------------------------------------------------
//*--DELETE GDG BASE AND OLD GENERATION --------------
//*------------------------------------------------------
//DELET01 EXEC PGM=IEFBR14
//DD01 DD DSN=SUBRATA.LOCAL.ERR2001.G0001V00,
// DISP=(MOD,DELETE,DELETE),SPACE=(TRK,0)

But I am not getting how shall implement the above logic and get it done..

I will appreciate if anyone can give me Idea on how shall I go about it..

Thanks

enrico-sorichetti · Posted: Wed Dec 02, 2009 11:01 pm

SUBRATA.FORMJ167.SUB#MSG.D010502.T140129

the dataset name does not follow the rules of a gdg
so You are on Your own...

run a listcat, perform the proper date computations on the dxxxxxx part
and proceed accordingly

subratarec · Posted: Wed Dec 02, 2009 11:20 pm

Hi Enrico,

Thanks for the reply.. Let me try the way you have advised.. I will let you know if it works..

subratarec · Posted: Wed Dec 02, 2009 11:26 pm

Hi enrico.. by any chance.. do you have any sample JCL (the solution you have provided) which I can have a look and proceed the way you have advised me?

vasanthz · Posted: Wed Dec 02, 2009 11:36 pm

Hi,
Since your requirement is based on the GDG name as date rather than the actual creation date itself,
You can try using IDCAMS thing,

Using IDCAMS will reduce the number SYSIN cards to be generated in the program when compared to IEFBR14.

As Enrico said perform a Listcat find the oldest member to be deleted.

Generate the gdg names starting from the oldest member to be deleted using REXX & pass it as sysin card to the IDCAMS step.

example, generate

Robert Sample · Posted: Wed Dec 02, 2009 11:44 pm

1. Terminology note: go back to the manuals and read them until you understand the difference between a version of a GDG and a generation of a GDG. Both version and generation are valid, though very different, components of a GDG. There can only be one version for a generation cataloged at a time, but up to 255 generations.

2. You cannot have more than 255 versions of a GDG cataloged, so what you said here is utter garbage: