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
 

 

IDCAMS to delete VSAM cluster

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

New User


Joined: 19 Dec 2006
Posts: 3
Location: chennai

PostPosted: Tue Jul 10, 2007 8:26 pm    Post subject: IDCAMS to delete VSAM cluster
Reply with quote

Hi,

i need to delete nearly 2500 vsam dataset's
the naming convention is like...

DATA.D17.P010.%%%%.CLUSTER
DATA.D17.P010.%%%%.DATA
DATA.D17.P010.%%%%.INDEX


i used IDCAMS to and my JCL goes like this

//STEP10 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *

DELETE DATA.D17.P010.* CLUSTER PURGE

IF MAXCC LE 08 THEN SET MAXCC = 0
/*


it's ending with RC = 12

but when i used

DELETE DATA.D17.P010.*.CLUSTER CLUSTER PURGE

it works fine why?
Any other way to solve this problem?
Back to top
View user's profile Send private message

William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Tue Jul 10, 2007 8:38 pm    Post subject:
Reply with quote

What problem, is it deleting all the DATA.D17.P010.*.CLUSTERs?
Back to top
View user's profile Send private message
kugan

New User


Joined: 19 Dec 2006
Posts: 3
Location: chennai

PostPosted: Tue Jul 10, 2007 10:11 pm    Post subject:
Reply with quote

yes, and why it is not working when i used
DELETE DATA.D17.P010.* CLUSTER PURGE
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Tue Jul 10, 2007 10:55 pm    Post subject:
Reply with quote

I'd guess that after deleting the first cluster and its associated data and index components the next thing in the list was that first cluster's data component, which is not a cluster and already gone........
Back to top
View user's profile Send private message
kugan

New User


Joined: 19 Dec 2006
Posts: 3
Location: chennai

PostPosted: Tue Jul 10, 2007 11:04 pm    Post subject:
Reply with quote

no,
what i asked is this?
In IDCAMS
when i use 'DATA.D17.P010.*' it is not working
but when i used 'DATA.D17.P010.* .CLUSTER' as my dataset name it works fine.
why?
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Tue Jul 10, 2007 11:53 pm    Post subject:
Reply with quote

kugan wrote:
no,
what i asked is this?
In IDCAMS
when i use 'DATA.D17.P010.*' it is not working
but when i used 'DATA.D17.P010.* .CLUSTER' as my dataset name it works fine.
why?

Because DATA.D17.P010.%%%%.DATA & DATA.D17.P010.%%%%.INDEX are not clusters?
Because DATA.D17.P010.%%%%.DATA & DATA.D17.P010.%%%%.INDEX do not exist after DATA.D17.P010.%%%%.CLUSTER was deleted?
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: Thu Jul 12, 2007 9:17 pm    Post subject:
Reply with quote

I think you will find that the * as a wildcard in IDCAMS will only cover one dataset component.

Try, ABC.*.*
Back to top
View user's profile Send private message
zos5415

New User


Joined: 29 Aug 2008
Posts: 18
Location: China

PostPosted: Tue Jun 16, 2009 3:24 pm    Post subject: It really work
Reply with quote

when i use the

Code:

//*                                           
//STEP10 EXEC PGM=IDCAMS                     
//SYSPRINT DD SYSOUT=*                       
//SYSIN DD *                                 
 DELETE TS.PAF2.CEB.*          CLUSTER PURGE 
 IF MAXCC LE 08 THEN SET MAXCC = 0           


it work fine.

Code:

IDCAMS  SYSTEM SERVICES                                           TIM
                                                                     
                                                                     
 DELETE TS.PAF2.CEB.*          CLUSTER PURGE                         
                                                                     
IDC0550I ENTRY (D) TS.PAF2.CEB.AMHS.DATA DELETED                     
                                                                     
IDC0550I ENTRY (I) TS.PAF2.CEB.AMHS.INDEX DELETED                   
                                                                     
IDC0550I ENTRY (C) TS.PAF2.CEB.AMHS DELETED                         
                                                                     
IDC0550I ENTRY (R) TS.PAF2.CEB.AMQF.A1.PATH DELETED                 
                                                                     
IDC0550I ENTRY (D) TS.PAF2.CEB.AMQF.A1.DATA DELETED                 
                                                                     
IDC0550I ENTRY (I) TS.PAF2.CEB.AMQF.A1.INDEX DELETED                 
                                                                     
IDC0550I ENTRY (G) TS.PAF2.CEB.AMQF.A1 DELETED                       
                                                                     
IDC0550I ENTRY (R) TS.PAF2.CEB.AMQF.A2.PATH DELETED                 
                                                                     
IDC0550I ENTRY (D) TS.PAF2.CEB.AMQF.A2.DATA DELETED                 
                                                                     
IDC0550I ENTRY (I) TS.PAF2.CEB.AMQF.A2.INDEX DELETED                 
                                                                     
IDC0550I ENTRY (G) TS.PAF2.CEB.AMQF.A2 DELETED                       
                                                                     
IDC0550I ENTRY (D) TS.PAF2.CEB.AMQF.DATA DELETED                     
                                                                     
IDC0550I ENTRY (I) TS.PAF2.CEB.AMQF.INDEX DELETED                   
                                                                     
IDC0550I ENTRY (C) TS.PAF2.CEB.AMQF DELETED                         
                                                                     
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0           
                                                                     
                                                                     
 IF MAXCC LE 08 THEN SET MAXCC = 0                                   
                                                                     
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 Fail to change physical VSAM filename... jacobdng CICS 6 Fri Jan 20, 2017 12:36 pm
No new posts how to recover an uncataloged VSAM da... archanamuthukrishnan All Other Mainframe Topics 3 Wed Jan 11, 2017 6:18 pm
No new posts Underlying DB2 VSAM LDS - SMF recording vasanthz All Other Mainframe Topics 6 Thu Jan 05, 2017 4:20 am
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 BWO option in VSAM blayek CICS 3 Sat Nov 05, 2016 10:47 am


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