| ■ クラスターがなくなっちゃったインデックスを削除するサンプル |  |
//STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //VOL DD UNIT=SYSDA,VOL=SER=MYVOL,DISP=SHR //SYSIN DD * DELETE MYDAT.TESTVSAMCL VVR FILE(VOL)
※完全にへんになっちゃったVSAMは使えないかもしれません(^^;
■ クラスターがなくなっちゃったインデックスを削除するサンプル
//STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //VOL DD UNIT=SYSDA,VOL=SER=MYVOL,DISP=SHR //SYSIN DD * DELETE MYDAT.TESTVSAMCL VVR FILE(VOL)
※完全にへんになっちゃったVSAMは使えないかもしれません(^^;