【備忘録】
VOLイニシャライズなどしてカタログも一緒に消してしまったような場合に、宙ぶらりんなゾンビのような状態で残ってしまったVVDSやVSAMデータセットをVTOCから直接消す方法。
カタログされてないがDASD上には残ってしまった状態。VSAMなのでBR14やISPFでは消せないが、使えないデータセットなのできれいに掃除したい時のサンプル。
VVDSの場合
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
// JOB (ACCT),NAME,NOTIFY=&SYSUID //*===================================================================* //*------- DELETE NON-CATALOGUED VVDS ON VOLUME //*------- (SCRATCHD VVDS DSCB FROM VTOC) //IDCAMS EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //VOL1 DD DISP=OLD,UNIT=SYSDA,VOL=SER=VPWRKA //VOL2 DD DISP=OLD,UNIT=SYSDA,VOL=SER=VPWRKB //VOL3 DD DISP=OLD,UNIT=SYSDA,VOL=SER=VPWRKC //VOL4 DD DISP=OLD,UNIT=SYSDA,VOL=SER=VPWRKD //SYSIN DD * DELETE SYS1.VVDS.VVPWRKA FILE(VOL1) RECOVERY DELETE SYS1.VVDS.VVPWRKB FILE(VOL2) RECOVERY DELETE SYS1.VVDS.VVPWRKC FILE(VOL3) RECOVERY DELETE SYS1.VVDS.VVPWRKD FILE(VOL4) RECOVERY // // |
VVSAMデータセットの場合
|
1 2 3 4 5 6 7 8 9 10 11 12 |
// JOB (ACCT),NAME,NOTIFY=&SYSUID //*===================================================================* //*------- DELETE NON-CATALOGUED VSAM ON VOLUME //*------- (SCRATCHD VSAM DSCB FROM VTOC) //IDCAMS EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //VOL1 DD DISP=OLD,UNIT=SYSDA,VOL=SER=VPWRKA //SYSIN DD * DELETE ZUSER1.VSAM.DATASET1.INDEX FILE(VOL1) VVR DELETE ZUSER1.VSAM.DATASET1.DATA FILE(VOL1) VVR // // |