MVSFORUMS.com

Angela · Beginner Joined: 28 Nov 2003 Posts: 3 Topics: 1

VSAM delete without cluster - I am trying to delete the data and index portion of a VSAM KSDS dataset. The cluster has already been deleted therefore there is no connection. I have used NVR and VVR in IDCAMS delete and I am unable to delete them. Does anyone have any ideas?

RobertL · Posted: Fri Nov 28, 2003 11:53 am Post subject:

Hi Angela,
try this...

//DELET12 JOB ...
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
DELETE -
KSDS.DATA
TRUENAME -
CATALOG(USERCAT4)
DELETE -
KSDS.INDEX
TRUENAME -
CATALOG(USERCAT4)
/*

Regards,
Robert

Angela · Beginner Joined: 28 Nov 2003 Posts: 3 Topics: 1

How do I know what the catalog is? In your example you have (USERCAT4). Do I use 'USERCAT4' or will the listcat summary tell me what the catalog is?

Angela · Beginner Joined: 28 Nov 2003 Posts: 3 Topics: 1

I attempted my delete with this code and I am unsuccessful. I receive the following message:
IDC3012I ENTRY PRDE.WEIDC.LEJSSVFL.D0000803 NOT FOUND
IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEG-42
IDC0551I ** ENTRY PRDE.WEIDC.LEJSSVFL.D0000803 NOT DELETED
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8

IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 8

warp5 · Posted: Tue Dec 02, 2003 1:55 am Post subject:

One way to do this is to recatalog the cluster entry so that you can then delete the cluster:
//ALTER EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER( -
NAME(LMNPU1.TMON30.CBFILE) -
RECATALOG -
VOLUMES(MVSS1P)) -
CATALOG(UCAT.LMP.VMVSS1P)

RobertL · Posted: Tue Dec 02, 2003 6:26 pm Post subject:

Hello Angela,
USERCAT4 is just an example. You should use the name of the catalog where the data and index components are cataloged.
Regards,
Robert