■  カタログだけがなくなったデータセットを削除するには


カタログだけがなくなったデータセットを削除するには、下記のような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
/*
//

 


BEFORE PAGE

TOP PAGE