Hi Pat,
FDREPORT can be used to select the desired entries and build an IDCAMS job
to delete the selected entries.
I believe your site has FDREPORT and would be able to run something similar
to this that produces a report and also produces an IDCAMS job punched to
the INTRDR.
//STEP01 EXEC PGM=FDREPORT,REGION=0M
//SYSPRINT DD SYSOUT=*
//ABRMAP DD SYSOUT=*
//SYSPUNCH DD SYSOUT=(A,INTRDR)
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
TITLE LINE='DELETE ALL GDG BASE ENTRIES THAT ARE EMPTY'
DEFAULT ENABLE=(GDGBASEONLY,ALLFILTER)
XSELECT GDGENTRY=0,XDSN=XYZ.**
REPORT FIELD=(GDGBASE,GDGFLAGS,GDGENTRY,GDGGENER,GDGLIMIT,
GDGRELGN,GDGVERSN,CRDATE,GDGLADAT,GDGLADAY)
PRINT DATATYPE=CATALOG
PUNCH FDRLIB=MASK
PRINT DATATYPE=CATALOG,RPTYPE=SELPCH
/*
//MASK DD DATA,DLM=$$
)PREFIX
//*JOBNAME JOB (ACCT INFO),'NAME',MSGLEVEL=(1,1),
// MSGCLASS=X,CLASS=M,TYPRUN=HOLD
//STEP01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
)ENDPREFIX
)DUPCHECK
DELETE <GDGBASE> GDG
)ENDUPCHECK
)SUFFIX
/*
$$
If you have questions, please feel free to contact us at Innovation support.
Joseph Butz
[email protected]
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Pat Monk
Sent: Thursday, January 07, 2010 4:09 PM
To: [email protected]
Subject: Remove Empty GDG Base
Is there a utility that will scan the catalogs and remove all (or selected)
empty GDG bases?
For example: remove all empty GDG bases for hi-level xyz.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
This email (and attachments, if any) is confidential and access by anyone
other than the addressee(s) is unauthorized. We would appreciate your
notifying the sender and [email protected] immediately if you are
not the intended recipient of this message.
This email (and attachments, if any) is confidential and access by anyone other
than the addressee(s) is unauthorized. We would appreciate your notifying the
sender and [email protected] immediately if you are not the intended
recipient of this message.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
