例 3.日付によるヒストリー・ファイル項目の削除

この例に示している IDIUTIL バッチ・ユーティリティー・ジョブは、ヒストリー・ファイル MY.HIST1 および MY.HIST2 内にある、2 週間より多く経過したすべてのヒストリー・ファイル項目を削除します。

//UTILJOB2 JOB  ...
//RUNUTIL  EXEC PGM=IDIUTIL
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
FILES(MY.HIST1,MY.HIST2)
DELETE(ABEND_DATE < TODAY-14)
/*