■ カタログだけがなくなったデータセットを削除するには
カタログだけがなくなったデータセットを削除するには、下記のようなJCLでリカタログしてから 削除するか、または、こんなJCLでも削除できます。
//MYJOB JOB MSGCLASS=X,CLASS=X //STEP1 EXEC PGM=IEFBR14 //SYSUT1 DD DSN=MYFILE.INFILE1,DISP=(OLD,CATLG), // UNIT=xxxxx,VOL=SER=DISK01 //SYSUT2 DD DSN=MYFILE.INFILE2,DISP=(OLD,CATLG), // UNIT=xxxxx,VOL=SER=DISK02 //SYSUT3 DD DSN=MYFILE.INFILE3,DISP=(OLD,CATLG), // UNIT=xxxxx,VOL=SER=DISK03 /* //STEP2 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE MYFILE.INFILE1 PURGE NONVSAM DELETE MYFILE.INFILE2 PURGE NONVSAM DELETE MYFILE.INFILE3 PURGE NONVSAM /* //