Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Delete GDG Base via ADRDSSU

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
drowelf
Warnings : 1

New User


Joined: 03 Mar 2006
Posts: 39
Location: Houston, Texas

PostPosted: Tue May 10, 2011 8:28 pm    Post subject: Delete GDG Base via ADRDSSU
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: 39
Location: Houston, Texas

PostPosted: Wed May 11, 2011 12:28 am    Post subject: Reply to: Delete GDG Base via ADRDSSU
Reply with quote

I searched the forum before posting, (using ADRDSSU) but did not see the other thread discussing this at http://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: 8593
Location: Back in jolly old England

PostPosted: Wed May 11, 2011 12:53 pm    Post subject:
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    Post subject:
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: 1755
Location: Bloomington, IL

PostPosted: Wed May 11, 2011 3:01 pm    Post subject:
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 User


Joined: 31 Dec 2009
Posts: 440
Location: London

PostPosted: Tue May 17, 2011 2:52 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts JCL to delete component in a package sundaram.naveen Compuware & Other Tools 14 Tue Nov 29, 2016 6:21 pm
No new posts How to delete second instance from Fl... Gunapala CN DFSORT/ICETOOL 6 Tue Oct 18, 2016 11:42 pm
No new posts Delete record or Reset RC code using ... mpawan Compuware & Other Tools 4 Tue Jul 26, 2016 3:52 pm
No new posts Delete VSAM File Records amitc23 CICS 6 Sun Apr 10, 2016 10:10 am
No new posts DB2 Stored Procedure - Dynamic SQL - ... GuyC DB2 2 Wed Feb 17, 2016 5:10 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us