Remove Empty GDG Base

[Pat Monk]

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 list...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

[Mark Zelden]

On Thu, 7 Jan 2010 15:08:47 -0600, Pat Monk <pat_...@US.CRAWCO.COM> wrote:

>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.
>

Not that I know of, but the Catalog Search Interface could be used.

The IGGCSIRX sample or CATSRCH on my web site could be a starting
point. You can modify it to only return GDGs and GDSs. From there either
some editing commands to keep what you are interested in, or more code
to do it programatically.

Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:mark....@zurichna.com
z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html

[R.S.]

Pat Monk pisze: > 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. It's quite easy to write some REXX script analyzing "LISTCAT LEVEL(hlq)" output. For GDG entries it can generate "DELETE entry GDG" command. Another quick&dirty method is to use ISPF. List all the entries you want (it is possible to list whole catalog structure) then SORT VOLSER, then delete all the entries with "??????". Or save the list for later use. Caution: First method will not delete non-empty GDG bases, but in both cases it is good idea to check the entry before delete. Radoslaw Skorupka Lodz, Poland BRE Bank SA ul. Senatorska 18 00-950 Warszawa www.brebank.pl d Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru S dowego, nr rejestru przedsi biorc w KRS 0000025237 NIP: 526-021-50-88 ug stanu na dzie 01.01.2009 r. kapita zak adowy BRE Banku SA (w ca ci wp acony) wynosi 118.763.528 z otych. W zwi zku z realizacj warunkowego podwy szenia kapita u zak adowego, na podstawie uchwa y XXI WZ z dnia 16 marca 2008r., oraz uchwa y XVI NWZ z dnia 27 pa dziernika 2008r., mo e ulec podwy szeniu do kwoty 123.763.528 z . Akcje w podwy szonym kapitale zak adowym BRE Banku SA b w ca ci op acone. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to list...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html

[Stephen Mednick]

I'm certain that there was a thread at the beginning of the month that
covered pretty much the same topic and a number of solutions were offered
up. Check the archives.

Are you licensed for Innovation Data Processing's ABR or FDREPORT products?
If so, then FDREPORT can do what you are after.

Stephen Mednick
Computer Supervisory Services
Sydney, Australia

Asia/Pacific representatives for
Innovation Data Processing, Inc.

[Joseph Butz]

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
JB...@fdrinnovation.com

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-...@bama.ua.edu] On Behalf
Of Pat Monk
Sent: Thursday, January 07, 2010 4:09 PM
To: IBM-...@bama.ua.edu
Subject: Remove Empty GDG Base

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 sup...@fdrinnovation.com 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 sup...@fdrinnovation.com immediately if you are not the intended recipient of this message.