IDIUTIL Import user exit

The following describes the IDIUTIL Import user exit.

Purpose

You can use the IDIUTIL Import user exit to:

Control the import of a fault entry during history file management by using the IDIUTIL batch utility with the IMPORT control statement. This control is provided by setting the UTL.PERFORM_ACTION data area field to 'Y' to import the entry or to 'N' not to import it. By default, the field UTL.PERFORM_ACTION is always set to 'Y' before invoking the exit. See Parameters for references to the UTL data area.
When an entry has been successfully imported into the target history file, it is deleted from the source history file.
Provide the name of the associated dump data set to be created from an exported fault entry in UTL.IMPORT_DUMP_DSN. This name overrides any default name obtained from the RFRDSN, XDUMPDSN, or SDUMPDSN option in the IDIOPTLM configuration-options module. For details, see Customize Fault Analyzer by using an IDIOPTLM configuration-options module.

When invoked

This exit is invoked once for each fault entry in a history file whenever the IDIUTIL batch utility is executed using the IMPORT control statement.

Parameters

How parameters are passed to the exit depends on the exit type, REXX or load module.

Fault Analyzer initializes the parameter lists using current values for the particular fault and processing options in effect before invoking the IDIUTIL Import user exit.

REXX

Two stems are available to the exit:

ENV.
Contains defined symbols for all fields in the ENV data area (see ENV - Common exit environment information).
UTL.
Contains defined symbols for all fields in the UTL data area (see UTL - IDIUTIL Batch Utility user exit parameter list).

The defined variable names are identical to the field names. For example, to access the field VERSION in the ENV data area, use the REXX variable ENV.VERSION.

Load module

At entry to this exit, R1 contains the 31-bit address of a parameter list comprising two fullwords:

31-bit ENV address in word 1.
Address of an ENV data area (see ENV - Common exit environment information).
31-bit UTL address in word 2.
Address of a UTL data area (see UTL - IDIUTIL Batch Utility user exit parameter list).

Note: The high-order bit is on to indicate that this parameter is the last parameter passed.

Example

IDIROBEX is an example of an IDIUTIL user exit that is written in REXX.

This exit is included in the IDI.SIDISAM1 data set member IDISROBT. See Sample TSO receive REXX exec (IDIROBOT) part 1 for details.

Figure 1. Sample REXX IDIUTIL user exit

/* REXX */
/* Dump data set names provided by this exit override the equivalent */
/* option setting in IDIOPTLM.                                       */
/* The relationship is as follows:                                   */
/* ENV.ASSOCIATED_DUMP_TYPE     IDIOPTLM option                      */
/* ---------------------------- ---------------                      */
/* 'S' SDUMP (SVC dump)         SDUMPDSN                             */
/* 'T' TDUMP (transaction dump) RFRDSN                               */
/* 'X' XDUMP (extended dump)    XDUMPDSN                             */
/* To disable the allocation of an associated dump data set, set     */
/* UTL.IMPORT_DUMP_DSN to 'NULLFILE'.                                */
if ENV.VERSION <> 5 then                                               
say 'Note: ENV data area version change - field usage review required!'
if UTL.VERSION <> 2 then                                               
say 'Note: UTL data area version change - field usage review required!'
ddsnhlq = 'IDIDUMP'                            /* <--- verify/change */
UTL.PERFORM_ACTION = 'Y'           /* Import current entry (default) */
if ENV.ASSOCIATED_DUMP_DSN <> "" then do                               
  t_parm = ENV.ASSOCIATED_DUMP_TYPE                         /* S/T/X */
  UTL.IMPORT_DUMP_DSN =,
    ddsnhlq"."t_parm"DUMP.&SYSNAME..D&YYMMDD..T&HHMMSS..S&SEQ."
end
exit 0

If the above sample exit existed as member ABC in data set X.Y.Z, then providing the following statements in your IDIUTIL batch utility history file management job would cause the exit to be invoked.

DD statement:

//IDIEXEC DD DISP=SHR,DSN=X.Y.Z

IDIUTIL batch utility control statement:

Exits(IMPORT(REXX(ABC)))