MVSFORUMS.com

Vinodch · Posted: Wed Aug 27, 2008 10:07 am Post subject: GDG Base More Than 30 Version

Is there any REXX Utility available on hand to list down the GDG base in a system which has more than 30 versions. Please help !
_________________
Thanks,
Vinod.

Nic Clouston · Posted: Wed Aug 27, 2008 2:19 pm Post subject:

Define 'version' Do you mean the dataset name ends V01 throught to V30?
or do you mean 30 generations (G001V00 - G0030V00) are kept?

Why rexx? There are catalog utilities around of which the best is probably IDCAMS.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

Vinodch · Posted: Wed Aug 27, 2008 3:06 pm Post subject:

I need the list of GDG name available in a system that has more than 30 versions.
_________________
Thanks,
Vinod.

expat · Posted: Thu Aug 28, 2008 7:45 am Post subject:

Santlou · Posted: Sun Aug 31, 2008 9:56 am Post subject:

Vinod,

This REXX will list the GDG Base Name that are defined with over a specific limit of entries. This rexx has two parameters: the Highlevel qualifier, and the limit.

To invoke the rexx to list all the gdg base names that start with "TEST" and are defined with a limit of 30 or more entries, you would enter this command:

GDGLIST TEST 30

Here is the REXX:

/*rexx*/
parse upper arg parms
HL = ""
LM = 9999
Call Get_Parms
Call Find_GDG
Signal Finish
Find_GDG:
x=msg(on)
x=outtrap(gdg.)
"listc lvl("hl") gdg all"
x=outtrap("OFF")
x=msg(off)

gdgrc = rc
if gdgrc /= 0 then do
say = "Error obtaining info on gdg lvl " hl
signal finish
end

do i = 1 to gdg.0

if index(gdg.i,"GDG BASE") > 0 then do
gb = word(gdg.i,4)
end
if index(gdg.i,"LIMIT") > 0 then do
gdg.i = translate(gdg.i," ","-")
tlm = word(gdg.i,2)
if tlm > LM then do
say "BASE="gb " LIMIT="tlm
end
end
end
return
Get_Parms:

parse var parms hl lm rst
return

Finish:
exit