Norbert, you are the man! A very nifty piece of code. Don't know why i missed your reply first time round.
I carried out the missing part of the solution when i got in this morning, (out of time last night) of recataloging the vvds entry in the re-created, missing catalog, then ran the del nscr for the vvds against said catalog. Diagnosis is now clean! Just deleted the catalog to keep it all tidy. regards, Dave *********************************************************************************************** On Thu, 18 Jul 2013 13:44:50 -0400, Rouse, Willie wrote: > I guess I don't understand: put a corresponding entry into the "dummy" bcs Recatalog the VVDS into the "dummy" bcs. I posted a complete job to the list on 5 July: http://www.mail-archive.com/ibm-main@listserv.ua.edu/msg15771.html >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) > /* > // ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN