Example 7. Importing history file entries

This example shows an IDIUTIL batch utility job to import all history file entries from MY.TEMP.HIST to MY.HIST that occurred on system name CICS04. Because of the need to test for system name in this example, an IDIUTIL Import user exit is required.

Assuming that MY.TEMP.HIST contains the faults:
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
and MY.HIST contains the faults:
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
then running the 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)
/*
with the IDIUTIL Import user exit in member IMPXMP of data set MY.REXX.Exits:
/* REXX */
If ENV.SYSTEM_NAME ¬= 'CICS04' then UTL.PERFORM_ACTION = 'N'
results in these fault entries in 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
and these fault entries in 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

Note that the entries that were imported into MY.HIST have been deleted from MY.TEMP.HIST.

An extra example showing the use of the IDIUTIL batch utility import function is shown in Managing history files across MVS systems without shared DASD.