How to find the limit of GDGs

Mr.Niceguy · New User Joined: 16 Jun 2005 Posts: 63

Hi all,

I have nearly 20,000 GDG bases. Is there any way to list out the limit of all those GDGs in single stretch or by batch instead of finding limits one by one or manually?

expat · Posted: Fri Jan 25, 2008 5:10 pm

Here's one I prepared earlier .................

You will need to cut & paste to a notepad on your PC to get the formatting right, and then transfer to the mainframe into a PDS, and there you go.

JCL

Phrzby Phil · Posted: Fri Jan 25, 2008 7:09 pm

If the base names fit patterns, you can use the IDCAMS LISTCAT command wildcarded, then use SORT or any other program you wish to filter the lines you want:

LISTCAT GDG ENTRIES (HLQ.NODE2.NODE3.* ) ALL

You want these lines from each part of the report:

GDG BASE ------ HLQ.NODE2.NODE3.whatever
LIMIT-----------------10 SCRATCH NOEMPTY

Prabha · New User Joined: 05 Dec 2005 Posts: 79

I tried like this

//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT GDG ENTRIES(UKTEST.W.PRM6.Z18.G848.AU04.*) ALL
/*

But this is not showing limit of gdg..

The result i got is

******************************** Top of Data *********************
IDCAMS SYSTEM SERVICES

LISTCAT GDG ENTRIES(UKTEST.W.PRM6.Z18.G848.AU04.*) ALL
IDCAMS SYSTEM SERVICES
THE NUMBER OF ENTRIES PROCESSED WAS:
AIX -------------------0
ALIAS -----------------0
CLUSTER ---------------0
DATA ------------------0
GDG -------------------0
INDEX -----------------0
NONVSAM ---------------0
PAGESPACE -------------0
PATH ------------------0
SPACE -----------------0
USERCATALOG -----------0
TAPELIBRARY -----------0
TAPEVOLUME ------------0
TOTAL -----------------0
THE NUMBER OF PROTECTED ENTRIES SUPPRESSED WAS 0
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0

IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0

Phrzby Phil · Posted: Wed Jan 30, 2008 9:06 pm

Please show me a 3.4 screen with the GDG base you have used.

cbhavsar · New User Joined: 31 May 2018 Posts: 1 Location: USA

expat,

Thank you for sharing rexx code for GDGs limit for IBM z/OS 2.2

(1) first I ran in to line 37 and 86 issue where for not equal
you had as ^= which replaced with <>
so code changed from from ^= to <>Error running CSIGDGS, line 37: Invalid character in program
Error running CSIGDGS, line 86: Invalid character in program
(2) There after my batch job ending good but no output?
I tried below two/three approaches but no O/P
am I missing anything here ??

//STEP0020 EXEC PGM=IKJEFT01,PARM='CSIGDGS'
//SYSEXEC DD DSN=SYS2.STORMGMT.REXX,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//CATIN DD *
#CBHA.**
/*

//STEP0020 EXEC PGM=IKJEFT01,PARM='CSIGDGS'
//SYSEXEC DD DSN=SYS2.STORMGMT.REXX,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//CATIN DD DISP=MOD,DSN=PDM.MVSD.CATRPT
//SYSTSIN DD *
#CBHA.STOREDGE.HMIG@POL
/*

//STEP0020 EXEC PGM=IKJEFT01,PARM='CSIGDGS'
//SYSEXEC DD DSN=SYS2.STORMGMT.REXX,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//CATIN DD DISP=MOD,DSN=PDM.MVSD.CATRPT
//SYSTSIN DD *
#CBHA.STOREDGE.HMIG@POL
/*

Robert Sample · Posted: Sat Jun 02, 2018 4:17 am

cbhavsar, did you notice the date of the posts you replied to?

steve-myers · Posted: Sat Jun 02, 2018 5:37 am

The real question here is what do you want to do with this information. 20,000 lines of GDG base names and their corresponding limit is just about useless. In your shoes I'd want to know, perhaps

Which GDGs are active (perhaps based on the LAST ALTER date)
Which GDGs have no data sets associated with them.