|
View previous topic :: View next topic
|
| Author |
Message |
rohit510
New User
Joined: 08 Jan 2008
Posts: 18
Location: delhi
|
|
|
|
HI,
Is there any utility available to find number of generations existing under a GDG Base.
Is there any other way around to find number of generations existing under a GDG Base. |
|
| Back to top |
|
 |
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
IDCAMS LISTCAT, i.e.
LISTCAT ENT('GDGBASE') ALL |
|
| Back to top |
|
|
rohit510
New User
Joined: 08 Jan 2008
Posts: 18
Location: delhi
|
|
|
|
Hi ,
Thanks for the quick reply
Shls this statement be passed in the SYSIN statement |
|
| Back to top |
|
|
rohit510
New User
Joined: 08 Jan 2008
Posts: 18
Location: delhi
|
|
|
|
| My requirement is to find the number of generations and store it in a variable.How can i do this? |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| Write IDCAMS SYSPRINT to a file and use a program to extract the required information. |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
Hi,
I've been using this EXEC, check if it works for your requirement:
| Code: |
PARSE UPPER ARG GDGBASE
/*trace i*/
gdg_limit = ""
x = OUTTRAP("LISTC.",99)
ADDRESS TSO "LISTC ENTRIES("gdgbase") GDG ALL"
listc_rc = rc
x = OUTTRAP("OFF")
IF listc_rc = 0 THEN
DO ctr = 1 TO listc.0
IF POS("LIMIT",listc.ctr) > 0 THEN
DO
limit_line = TRANSLATE(listc.ctr," ","-")
PARSE var limit_line literal gdg_limit remainder
LEAVE
END
END
IF DATATYPE(gdg_limit) = "NUM" THEN
SAY "Max Number of Generations allowed for" gdgbase "=" gdg_limit
ELSE
SAY gdgbase "is not a valid GDG Base"
EXIT(0) |
|
|
| Back to top |
|
|
|
|
