■サービス名：SYSTOOLS.DELETE_OLD_SPOOLED_FILES
■カテゴリ：スプール・サービス
■サポート：IBM i 7.3 SF99703 Level 18以降
■参照URL（IBM i 7.5）：https://www.ibm.com/docs/ja/i/7.5?topic=services-delete-old-spooled-files-procedure

読んで字のごとく、古いスプールファイルを検索して削除するプロシージャーサンプル。
スプールの存在日数、OUTQ、ライブラリー、ユーザーで対象をフィルターできます。

＜使用例＞
■OUTQ QPRINTについて50日以上前のスプールのリストを表示する。
・PREVIEW YESを指定すると検索のみで削除しない
・OUTQ名を指定しないと全OUTQが対象となる

CALL SYSTOOLS.DELETE_OLD_SPOOLED_FILES(DELETE_OLDER_THAN => CURRENT DATE - 50 DAYS,
     P_OUTPUT_QUEUE_NAME => 'QPRINT', 
     PREVIEW => 'YES');

実行すると、該当するスプールをリスト表示します。

■PREVIEWを'NO'に変更すると合致するスプールを削除する。

CALL SYSTOOLS.DELETE_OLD_SPOOLED_FILES(DELETE_OLDER_THAN => CURRENT DATE - 50 DAYS, 
     P_OUTPUT_QUEUE_NAME => 'QPRINT', 
     PREVIEW => 'NO');

実行すると、ステートメントは正常実行された、というメッセージが表示されます。

■パラメーター（）内は属性（モード, タイプ, 長さ, CCSID, ロケーター, デフォルト値）

DELETE_OLDER_THAN (INPUT, TIMESTAMP, 6, , , (CURRENT_TIMESTAMP - 3 MONTHS))
P_OUTPUT_QUEUE_LIBRARY_NAME (INPUT, VARCHAR, 10, , ,'*ALL')
P_OUTPUT_QUEUE_NAME (INPUT, VARCHAR, 10, , ,'*ALL' ) 
P_USER_NAME (INPUT, VARCHAR, 10, , ,'*ALL' ) 
PREVIEW (INPUT, VARCHAR, 3, , ,'NO' )

■参考URL : https://www.ibm.com/support/pages/systoolsdeleteoldspooledfiles

■disclaimer
・当ドキュメントは個人の見解を基に記述しています。所属する団体・企業の公式なドキュメントではありません。
・当ドキュメント内のサンプルなど個人の見解に基づく記述について、IBM S/Wサポート(SMWA等）へのご質問等はしないでください。当記事への質問としていただけますと幸いです。