For what my memory is worth, I would suggest you begin by running a 'LISTVTOC' (using IEHLIST) and proceed from there. It *might* then allow you to reset the VVDS and whatever else, provided you specify whatever other parms for it (but probably not ones for IEHLIST.) E.g. //********************************************************************* //* JOB TO LIST ALL FILES ON A GIVEN VOLUME * //* * //* 21/12/95 CMP * //********************************************************************* //* //LISTVTOC EXEC PGM=IEHLIST //SYSPRINT DD DISP=(,CATLG), // DSN=<whatever>.VTOCLIST, // SPACE=(CYL,(10,1),RLSE), // DCB=(RECFM=FBA,LRECL=121,BLKSIZE=27951) //* //Uxxxxx DD UNIT=3390,VOL=SER=Uxxxxx,DISP=OLD //* //SYSIN DD * LISTVTOC FORMAT, X VOL=3390=Uxxxxx //* IDCAMS might be able to delete (and recreate, if required) the usercat in the mcat, on the volser. But I guess this is not quite what you want, or you would have done it already.
On 26/12/2021 04:42, Peter wrote: > Hello > > Could someone please help me with a sample JCL to reset the VVDS or replace > the catalog value in it. > > Regards > Peter > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > . > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
