//DELGARB JOB (9999,IPO,10,10), // 'CORNERSTONE', // CLASS=I, // MSGCLASS=X,NOTIFY=&SYSUID, // MSGLEVEL=(1,1),USER=, // TIME=1440 //* /*JCTRL*/ //* //* DELETE PRINT01.KCI01.B6600.LOCAL.CS000023.X111 FILE(VVDSDD) NVR - //* DELETE PRINT01.KCI01.B6600.LOCAL.CS000023.X111 FILE(VVDSDD) VVR - //* IF IDC3009I VSAM CATALOG RETURN CODE IS 90 REASON 42 - NVR //* LIB: CORNERST.DASD.LIB(DELVVR) //* DOC: THIS IS JOB WILL DELETE A VVR RECORD. //* //VVR EXEC PGM=IDCAMS,REGION=512K //SYSPRINT DD SYSOUT=* //VVDSDD DD DSN=SYS1.VVDS.VCNV054,DISP=SHR,UNIT=3390, // VOL=SER=CNV054,AMP=('AMORG') //SYSIN DD * DELETE KCI02.D0997Z.CIKAREL.DATA FILE(VVDSDD) VVR - CATALOG(CATALOG.MVSICFM.VBC2MCC) /*