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/[email protected]/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) > /* > // Norbert Friemel ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
