例 7.ヒストリー・ファイル項目のインポート

この例に示している IDIUTIL バッチ・ユーティリティー・ジョブは、システム名 CICS04 で発生したすべてのヒストリー・ファイル項目を MY.TEMP.HIST から MY.HIST にインポートします。この例ではシステム名をテストする必要があるため、IDIUTIL インポート・ユーザー出口が必要です。

MY.TEMP.HIST に次の障害が含まれていると仮定します。

Fault ID Job/Tran User     System   Abend Date       Time
  F00101 IDIVPCOB NWILKES  MVS2     S0C7  2001/10/18 08:57:08
  F00098 FRED     CICSUSER CICS02   AEIL  2001/10/15 14:33:30
  F00097 WILMA    CICSUSER CICS04   AEIL  2001/10/15 13:00:57
  F00096 BARNEY   CICSUSER CICS02   AEIL  2001/10/15 12:56:32
  F00095 BUSHBY2N NWILKES  MVS2     U4038 2001/10/14 10:41:29
  F00093 BETTY    CICSUSER CICS04   ASRA  2001/10/12 21:16:37
  F00092 DACBB045 NWILKES  MVS2     U4038 2001/10/10 10:38:22

MY.HIST に次の障害が含まれていると仮定します。

Fault ID Job/Tran User     System   Abend Date       Time
  F00030 BUSHBY2A BUSHBYD  MVS2     U4038 2001/09/18 13:02:02
  F00060 IMSLE4   NWILKES  MVS1     S0C9  2001/09/12 12:39:27
  F00059 IMSLE3   NWILKES  MVS2     U4036 2001/09/12 12:38:31

この場合、次の JCL を

//UTILJOB5 JOB  ...
//RUNUTIL  EXEC PGM=IDIUTIL
//IDIEXEC  DD  DISP=SHR,DSN=MY.REXX.EXECS
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
Exits(IMPORT(REXX(IMPXMP)))
IMPORT(MY.HIST,MY.TEMP.HIST)
/*

データ・セット MY.REXX.Exits のメンバー IMPXMP 内の IDIUTIL インポート・ユーザー出口とともに実行します。

/* REXX */
If ENV.SYSTEM_NAME ¬= 'CICS04' then UTL.PERFORM_ACTION = 'N'

この結果、MY.TEMP.HIST 内の障害項目は次のようになります。

Fault ID Job/Tran User     System   Abend Date       Time
  F00101 IDIVPCOB NWILKES  MVS2     S0C7  2001/10/18 08:57:08
  F00098 FRED     CICSUSER CICS02   AEIL  2001/10/15 14:33:30
  F00096 BARNEY   CICSUSER CICS02   AEIL  2001/10/15 12:56:32
  F00095 BUSHBY2N NWILKES  MVS2     U4038 2001/10/14 10:41:29
  F00092 DACBB045 NWILKES  MVS2     U4038 2001/10/10 10:38:22

MY.HIST 内の障害項目は次のようになります。

Fault ID Job/Tran User     System   Abend Date       Time
  F00030 BUSHBY2A BUSHBYD  MVS2     U4038 2001/09/18 13:02:02
  F00031 WILMA    CICSUSER CICS04   AEIL  2001/10/15 13:00:57
  F00032 BETTY    CICSUSER CICS04   ASRA  2001/10/12 21:16:37
  F00060 IMSLE4   NWILKES  MVS1     S0C9  2001/09/12 12:39:27
  F00059 IMSLE3   NWILKES  MVS2     U4036 2001/09/12 12:38:31

MY.HIST にインポートされた項目が、MY.TEMP.HIST から削除されたことに注意してください。

IDIUTIL バッチ・ユーティリティー・インポート機能の使用法を示す追加の例が、共用 DASD のない MVS システム全体でのヒストリー・ファイルの管理に示されています。