一定期間使用していない表示装置記述(DSPVRT)を整理したい｜e-bellnet.com（IBM i （AS/400）ユーザーのための関連技術情報サイト）

メニューボタン

HOME サポートチーム便り IBM i 海外記事 IBM i コラム

IBM i 資料集

BELLNETコミュニティ

サポートチーム便り2024.07.24

一定期間使用していない表示装置記述(DSPVRT)を整理したい

Question

ディスプレイ・セッションを自動作成させているせいか、表示装置記述(DSPVRT)が多く存在しており、一定期間使用(接続)していない表示装置記述を削除したいと思っています。

調査するのに何か良い方法はありますでしょうか。

Answer

表示装置記述(*DEVD)などの情報は下記コマンドでDBを作成し確認する事が可能です。

コマンド例：
DSPOBJD OBJ(QSYS/*ALL) OBJTYPE(*DEVD) OUTPUT(*OUTFILE) OUTFILE(BELLDATA/DEVD)

作成したDB内をRUNQRY(条件指定)で確認すると、検索結果の「最終使用日付」を確認する事ができます。最終使用日付が使用(接続)した最後の日付になります。

しかし、日付形式が MMDDYY となっており見づらい状態です。

QSYS2.OBJECT_STATISTICSを使用し表示する事により、日付形式を見やすく表示する事ができます。

ACSの「SQLスクリプトの実行」にてSQLを実行します。

※SQL例：最終使用日から１２か月経過しているDSPVRTを検索する例です。

  SELECT OBJATTRIBUTE AS "Attrib",
         OBJNAME,
         DATE(OBJCREATED) AS "Created",
         DATE(LAST_USED_TIMESTAMP) AS "Last used",
         OBJTEXT
    FROM TABLE(QSYS2.OBJECT_STATISTICS('QSYS','DEVD')) 
   WHERE OBJATTRIBUTE = 'DSPVRT'
     AND DATE(LAST_USED_TIMESTAMP) < CURRENT_DATE - 12 MONTHS
ORDER BY LAST_USED_TIMESTAMP