IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Delete GDG Base via ADRDSSU


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
drowelf
Warnings : 1

New User


Joined: 03 Mar 2006
Posts: 47
Location: Simpsonville, SC

PostPosted: Tue May 10, 2011 8:28 pm
Reply with quote

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
View user's profile Send private message
drowelf
Warnings : 1

New User


Joined: 03 Mar 2006
Posts: 47
Location: Simpsonville, SC

PostPosted: Wed May 11, 2011 12:28 am
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Wed May 11, 2011 12:53 pm
Reply with quote

Correct, DFdss WILL NOT delete a GDG base
Back to top
View user's profile Send private message
Dsingh29

Active User


Joined: 16 Dec 2008
Posts: 132
Location: IBM

PostPosted: Wed May 11, 2011 1:37 pm
Reply with quote

use IDCAMS to delete multiple GDG base by giving multiple delete statement for each gdg
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL

PostPosted: Wed May 11, 2011 3:01 pm
Reply with quote

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
View user's profile Send private message
Pete Wilson

Active Member


Joined: 31 Dec 2009
Posts: 582
Location: London

PostPosted: Tue May 17, 2011 2:52 pm
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts DELETE SPUFI DB2 1
No new posts DSNTIAUL driven delete IBM Tools 0
No new posts How to delete a user's alias from the... JCL & VSAM 11
No new posts Delete file row if blanks in the firs... DFSORT/ICETOOL 5
No new posts volume mass delete RMM JCL & VSAM 2
Search our Forums:

Back to Top