On Thu, 4 Jul 2013 11:36:21 -0400, Rouse, Willie wrote:
>I have run an IDCAMS diagnose on a volume to find non-existent catalog entries
>.
I tried DELETE VVR/NVR/TRUENAME to no avail. How can I get rid of the stranded
catalog references in the VVDS?
1. Create a new catalog with the old non-existent catalog name
2. Recatalog the VVDS
3. Delete (NOSCRATCH) the VVDS
4. Delete the catalog
//*
//S1 EXEC PGM=IDCAMS
//*
//SYSPRINT DD SYSOUT=*
//VVDS DD DIS=SHR,DSN=SYS1.VVDS.Vvol001,
// VOL=SER=vol001,UNIT=SYSDA
//SYSIN DD *
DIAG VVDS IFILE(VVDS)
DEF UCAT(NAME(old.catname) -
VOL(vol002) -
CYL(1 1) -
FSPC (0 0)) -
DATA(CISZ(4096)) -
INDEX(CISZ(4096))
DEF CL(NAME(SYS1.VVDS.Vvol001) -
VOL(vol001) -
NONINDEXED -
RECATALOG) -
CAT(old.catname)
DEL SYS1.VVDS.Vvol001 -
FILE(vol001) -
NOSCRATCH -
CAT(old.catname)
DEL old.catname UCAT
DIAG VVDS IFILE(VVDS)
/*
//
Norbert Friemel
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
