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