Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
How to delete a set of GDG Bases with the same HLQs?

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

New User


Joined: 16 Nov 2005
Posts: 7
Location: Bangalore, India

PostPosted: Thu Nov 17, 2005 10:49 am    Post subject: How to delete a set of GDG Bases with the same HLQs?
Reply with quote

How to delete a set of GDG Bases with the same High-level Qualifiers?
I need the JCL to delete, say 100 GDG Bases , all of them having the same High-level Qualifiers. I dont want to hard-code the dataset names in the JCL. I need to delete them by just specifying their HLQs.

Can someone Please Help on this?
Back to top
View user's profile Send private message

dneufarth

Active User


Joined: 27 Apr 2005
Posts: 252
Location: Cincinnati OH USA

PostPosted: Thu Nov 17, 2005 8:35 pm    Post subject:
Reply with quote

Check into the DFDSS utility.

You can do backup to a dummy file and delete the datasets with it.

Dave
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Fri Nov 18, 2005 2:13 am    Post subject: Re: How to delete a set of GDG Bases with the same HLQs?
Reply with quote

See this previous post:

http://ibmmainframes.com/viewtopic.php?t=6069&highlight=
Back to top
View user's profile Send private message
Priyaraghu

New User


Joined: 16 Nov 2005
Posts: 7
Location: Bangalore, India

PostPosted: Fri Nov 18, 2005 9:48 am    Post subject: Re: How to delete a set of GDG Bases with the same HLQs?
Reply with quote

No i was not able to use that utility to delete GDG bases.
Can u give an example??
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Fri Nov 18, 2005 8:01 pm    Post subject: Re: How to delete a set of GDG Bases with the same HLQs?
Reply with quote

Something like this:

Code:

//STEP0001 EXEC PGM=IDCAMS                                   
//SYSPRINT DD   DSN=&&LISTCAT,UNIT=VIO,DISP=(NEW,PASS)       
//SYSIN    DD   *                                             
  LISTCAT LVL(GDGHLQ)                                         
/*                                                           
//*                                                   
//STEP0002 EXEC PGM=ICETOOL                           
//IN       DD   DSN=&&LISTCAT,DISP=(OLD,DELETE)       
//T1       DD   DSN=&&T1,UNIT=VIO,DISP=(NEW,PASS)     
//OUT      DD   DSN=&&DELETE,UNIT=VIO,DISP=(NEW,PASS) 
//DFSMSG   DD   SYSOUT=*                               
//TOOLMSG  DD   SYSOUT=*                               
//TOOLIN   DD   *                                     
  COPY FROM(IN) USING(CTL1)                             
  COPY FROM(T1) USING(CTL2)                             
/*                                                     
//CTL1CNTL DD   *                                     
  OUTFIL FNAMES=T1,INCLUDE=(6,8,CH,EQ,C'GDG BASE'),     
    OUTREC=(1:22,44,80:X),CONVERT                       
/*                                                     
//CTL2CNTL DD   *                               
  INREC IFTHEN=(WHEN=(2,1,CH,EQ,C' '),           
         OVERLAY=(2:C')')),                     
       IFTHEN=(WHEN=(3,1,CH,EQ,C' '),           
         OVERLAY=(3:C')')),                     
       IFTHEN=(WHEN=(4,1,CH,EQ,C' '),           
         OVERLAY=(4:C')')),                     
       IFTHEN=(WHEN=(5,1,CH,EQ,C' '),           
         OVERLAY=(5:C')')),                     
       IFTHEN=(WHEN=(6,1,CH,EQ,C' '),           
         OVERLAY=(6:C')')),                     
       IFTHEN=(WHEN=(7,1,CH,EQ,C' '),           
         OVERLAY=(7:C')')),                     
       IFTHEN=(WHEN=(8,1,CH,EQ,C' '),           
         OVERLAY=(8:C')')),                     
       IFTHEN=(WHEN=(9,1,CH,EQ,C' '),           
         OVERLAY=(9:C')')),                     
       IFTHEN=(WHEN=(10,1,CH,EQ,C' '),           
         OVERLAY=(10:C')')),                     
       IFTHEN=(WHEN=(11,1,CH,EQ,C' '),           
         OVERLAY=(11:C')')),                     
       IFTHEN=(WHEN=(12,1,CH,EQ,C' '),           
         OVERLAY=(12:C')')),                     
       IFTHEN=(WHEN=(13,1,CH,EQ,C' '),           
         OVERLAY=(13:C')')),                     
       IFTHEN=(WHEN=(14,1,CH,EQ,C' '),           
         OVERLAY=(14:C')')),                     
       IFTHEN=(WHEN=(15,1,CH,EQ,C' '),           
         OVERLAY=(15:C')')),                     
       IFTHEN=(WHEN=(16,1,CH,EQ,C' '),           
         OVERLAY=(16:C')')),                     
       IFTHEN=(WHEN=(17,1,CH,EQ,C' '),           
         OVERLAY=(17:C')')),                     
       IFTHEN=(WHEN=(18,1,CH,EQ,C' '),           
         OVERLAY=(18:C')')),                     
       IFTHEN=(WHEN=(19,1,CH,EQ,C' '),           
         OVERLAY=(19:C')')),                     
       IFTHEN=(WHEN=(20,1,CH,EQ,C' '),           
         OVERLAY=(20:C')')),                     
       IFTHEN=(WHEN=(21,1,CH,EQ,C' '),           
         OVERLAY=(21:C')')),                     
       IFTHEN=(WHEN=(22,1,CH,EQ,C' '),           
         OVERLAY=(22:C')')),                     
       IFTHEN=(WHEN=(23,1,CH,EQ,C' '),         
         OVERLAY=(23:C')')),                   
       IFTHEN=(WHEN=(24,1,CH,EQ,C' '),         
         OVERLAY=(24:C')')),                   
       IFTHEN=(WHEN=(25,1,CH,EQ,C' '),         
         OVERLAY=(25:C')')),                   
       IFTHEN=(WHEN=(26,1,CH,EQ,C' '),         
         OVERLAY=(26:C')')),                   
       IFTHEN=(WHEN=(27,1,CH,EQ,C' '),         
         OVERLAY=(27:C')')),                   
       IFTHEN=(WHEN=(28,1,CH,EQ,C' '),         
         OVERLAY=(28:C')')),                   
       IFTHEN=(WHEN=(29,1,CH,EQ,C' '),         
         OVERLAY=(29:C')')),                   
       IFTHEN=(WHEN=(30,1,CH,EQ,C' '),         
         OVERLAY=(30:C')')),                   
       IFTHEN=(WHEN=(31,1,CH,EQ,C' '),         
         OVERLAY=(31:C')')),                   
       IFTHEN=(WHEN=(32,1,CH,EQ,C' '),         
         OVERLAY=(32:C')')),                   
       IFTHEN=(WHEN=(33,1,CH,EQ,C' '),         
         OVERLAY=(33:C')')),                   
       IFTHEN=(WHEN=(34,1,CH,EQ,C' '),             
         OVERLAY=(34:C')')),                       
       IFTHEN=(WHEN=(35,1,CH,EQ,C' '),             
         OVERLAY=(35:C')')),                       
       IFTHEN=(WHEN=(36,1,CH,EQ,C' '),             
         OVERLAY=(36:C')')),                       
       IFTHEN=(WHEN=(37,1,CH,EQ,C' '),             
         OVERLAY=(37:C')')),                       
       IFTHEN=(WHEN=(38,1,CH,EQ,C' '),             
         OVERLAY=(38:C')')),                       
       IFTHEN=(WHEN=(39,1,CH,EQ,C' '),             
         OVERLAY=(39:C')')),                       
       IFTHEN=(WHEN=(40,1,CH,EQ,C' '),             
         OVERLAY=(40:C')')),                       
       IFTHEN=(WHEN=(41,1,CH,EQ,C' '),             
         OVERLAY=(41:C')')),                       
       IFTHEN=(WHEN=(42,1,CH,EQ,C' '),             
         OVERLAY=(42:C')')),                       
       IFTHEN=(WHEN=(42,1,CH,EQ,C' '),             
         OVERLAY=(43:C')')),                       
       IFTHEN=(WHEN=(44,1,CH,EQ,C' '),             
         OVERLAY=(44:C')')),                       
       IFTHEN=(WHEN=NONE),                                       
         OVERLAY=(45:C')'))                                     
  OUTFIL FNAMES=OUT,OUTREC=(1:C' DELETE (',1,45,80:X)             
/*                                                               
//*                                                             
//STEP0003 EXEC PGM=IDCAMS                                       
//SYSPRINT DD   SYSOUT=*                                         
//SYSIN    DD   DSN=&&DELETE,DISP=(OLD,PASS)                     
//*                                                             
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 Skip file from delete pema_yozer All Other Mainframe Topics 3 Tue Aug 29, 2017 3:19 pm
No new posts Delete IMS remote transaction when MO... Sam Singh IMS DB/DC 0 Wed Aug 23, 2017 9:12 pm
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

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us