MVSFORUMS.com

gore

How to delete data & index components of a KSDS when the base entry of cluster does not exist? It is indeed the case in my shop.
_________________
Gore

satjag · Beginner Joined: 19 Dec 2002 Posts: 19 Topics: 2

Hello Gaurav,

Do you have File Aid in your shop ?If so, you may try deleting the data/index components through it.
_________________
Regards,
satjag

gore · Posted: Fri Apr 04, 2003 7:36 am Post subject:

yes
_________________
Gore

satjag · Beginner Joined: 19 Dec 2002 Posts: 19 Topics: 2

Were you able to delete using fileaid ?
_________________
Regards,
satjag

gore · Posted: Fri Apr 04, 2003 7:42 am Post subject:

File-aid worked fine.

Is there some other way as well?
_________________
Gore

kolusu · Posted: Fri Apr 04, 2003 8:22 am Post subject:

gore,

You can use IDCAMS

Kolusu

gore · Posted: Fri Apr 04, 2003 8:36 am Post subject:

Dear Kolusu,

I tried using IDCAMS to deleteby giving the data component's name,but that didn't work.Can you send me the jcl. Remember I do not have the base cluster.
_________________
Gore

Manas Biswal · Posted: Sun Apr 06, 2003 11:28 pm Post subject:

How did you manage to delete the base cluster without deleting the data and index components...

gore · Posted: Mon Apr 07, 2003 7:41 am Post subject:

i didn't do that it was just like that when i saw it, i have know idea how it happened.
_________________
Gore

raj051076 · Beginner Joined: 05 Dec 2002 Posts: 64 Topics: 21

Hi Gaurav I am not sure whether you have the condition called orphan datasets...where an entry is still in the VVR...In that case you will have to delete the VVR..The IDCAMS control card for that is

DELETE VSAM.DATA PURGE VVR.

I think I am missing one thing here, the reference of the VVDS which contains the VVR...Please check that and find out..
_________________
Rajib

warp5 · Posted: Tue Apr 08, 2003 12:48 am Post subject:

You can also define the cluster again and then having a complete vsam dataset delete it. You need to know where it was cataloged, on which volume it exists, etc.

//RECAT EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER( -
NAME(LMNPU1.TMON30.CBFILE) -
RECATALOG -
VOLUMES(MVSS1P)) -
CATALOG(UCAT.LMP.VMVSS1P)

gore · Posted: Tue Apr 08, 2003 7:40 am Post subject:

Thanks to all for all the constructive suggestions. Rajib's solution worked fine.
_________________
Gore