View previous topic :: View next topic
Author
Message
drowelf Warnings : 1 New User Joined: 03 Mar 2006Posts: 47 Location: Simpsonville, SC
We are looking to archive and remove a complete set of datasets which match a particular mask say XXX.YYY.ZZZ. I've gotten ADRDSSU to collect and delete all the datasets that match this mask, except for the associated GDG Bases. The GDG generations files are collected and deleted, but no the bases.
Here is the command that is feed to ADRDSSU
DUMP DS(INCLUDE(XXX.YYY.ZZZ.**)) -
OUTDDNAME(BACKUP) -
COMPRESS -
ALLDATA(*) -
ALLE -
DELETE -
WAIT(10,10)
I read about DELETECATALOGENTRY modifier, but not sure if that is best way to go here.
Is there a way to make it delete the GDG Bases too? Or some quick way that I can delete all the GDG Bases after this backup runs?
Thanks
Back to top
drowelf Warnings : 1 New User Joined: 03 Mar 2006Posts: 47 Location: Simpsonville, SC
I searched the forum before posting, (using ADRDSSU) but did not see the other thread discussing this at www.ibmmainframes.com/viewtopic.php?t=54012&sid=4f6b4665ae3a762c2741a5d22bbcebe0
I take it from that one, that there is no way to use a mask to delete a GDG Base using just a partial mask. The common set up datasets only have the first 3 qualifier the same. The 4th and subsequent are all pretty much unique. Deletion by hand is not an option as
1) These are production systems being archived.
2) There are several hundred GDG Bases.
TIA
Back to top
expat Global Moderator Joined: 14 Mar 2007Posts: 8797 Location: Welsh Wales
Correct, DFdss WILL NOT delete a GDG base
Back to top
Dsingh29 Active User Joined: 16 Dec 2008Posts: 132 Location: IBM
use IDCAMS to delete multiple GDG base by giving multiple delete statement for each gdg
Back to top
Akatsukami Global Moderator Joined: 03 Oct 2009Posts: 1788 Location: Bloomington, IL
Dsingh29 wrote:
use IDCAMS to delete multiple GDG base by giving multiple delete statement for each gdg
I don't think that that's the case.
Back to top
Pete Wilson Active Member Joined: 31 Dec 2009Posts: 582 Location: London
Under ZoS1.12 (and maybe ZoS1.11 with PTF's) it is possible to use the MASK parameter to do generic deletes in IDCAMS.
Otherwise do
LISTCAT LEVEL(part.of base.name) GDG NAME
to get a list of the bases and edit for the deletes
Or use FDREPORT to punch your delete cards out if they have FDR:
e.g.
Code:
//GDGPUNCH EXEC PGM=FDREPORT
//SYSOUT DD SYSOUT=0
//SYSUDUMP DD SYSOUT=0
//SYSPRINT DD SYSOUT=0
//SYSPUNCH DD DSN=YOUR.PUNCH.FILE,DISP=(,CATLG),
// SPACE=(TRK,(5,5),RLSE)
//ABRMAP DD DSN=&&LIST,DISP=(,PASS),
// SPACE=(TRK,(15,15),RLSE)
//ABRSUM DD SYSOUT=0
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR
//SYSUT3 DD DSN=&&TEMP1,UNIT=SYSDA,
// DISP=(,PASS),SPACE=(CYL,(25,25))
//SYSIN DD *
REPORT FIELD=(GDGBASE,GDGLIMIT,GDGFLAGS)
XS XDSN=GDG.BASE.MASK1.**
XS XDSN=GDG.BASE.MASK2.**
SORT FIELD=(GDGBASE)
PUNCH FDRLIB=MASK
PRINT DATATYPE=CATALOG,RPTYPE=SELPCH,
ENABLE=(FASTPATH,GDGBASEONLY,ALLFILTER)
//MASK DD *
DEL <GDGBASE> GDG
Edited: Please use BBcode when You post some code/error, that's rather readable, Thanks... Anuj
Back to top
Please enable JavaScript!