Analysis Control user exit (MVS SVC Dump registration)

The following describes the dump registration Analysis Control user exit.

Purpose

This exit can be used to examine and override current settings of the following options relevant to dump registration processing:
DataSets
Only the history file data set name is relevant to this exit. The current history file data set name is provided in the ENV.HFZHIST data area field. The user exit can choose to change this data set name, in which case the supplied data set name is used as the history file for the current fault. If the history file was pre-allocated, it is freed.
Exclude
The last matching Exclude criterion is provided in the CTL.EXCLUDE_CRITERION data area field. If the fault is excluded from analysis based on a matching Exclude criterion, then the CTL.EXCLUDE data area field is initialized to 'Y'. This field can be modified by the exit.
Include
The last matching Include criterion is provided in the CTL.INCLUDE_CRITERION data area field. A blank Include criterion signifies the implicit product default, which is to include everything.

When invoked

This exit is invoked after options processing has completed, and before the writing of the MVS™ SVC dump registration fault entry.

Parameters

Example

The following is an example of an Analysis Control dump registration user exit that is written in REXX.
Figure 1. Sample REXX Analysis Control dump registration user exit
/* REXX */
if ENV.VERSION <> 5 then
  say 'Note: ENV data area version change - field usage review required!'
if CTL.VERSION <> 2 then
  say 'Note: CTL data area version change - field usage review required!'
/* Exclude all MVSA jobs from analysis */
if ENV.SYSTEM_NAME = 'MVSA' then
  CTL.Exclude = 'Y'
/* Select a separate history file for DB2, IMS, and other jobs
   based on jobname */
if SUBSTR(ENV.JOB_NAME,1,3) = 'DB2' then
  ENV.HFZHIST = 'MY.DB2.HIST'
else if SUBSTR(ENV.JOB_NAME,1,3) = 'IMS' then
  ENV.HFZHIST = 'MY.IMS.HIST'
else
  ENV.HFZHIST = 'MY.OTHER.HIST'
exit 0
If the above sample exit existed as member ABC in data set X.Y.Z, then providing the following options in either the HFZCNF00 configuration member or an HFZOPTS user options file that is allocated to the HFZS subsystem, would cause it to be invoked:
DataSets(HFZEXEC(X.Y.Z))
DumpRegistrationExits(CONTROL(REXX(ABC)))

The DumpRegistrationExits option must be specified in the HFZCNFxx parmlib member, or via an HFZOPTS DD statement in the HFZS subsystem JCL. The DumpRegistrationExits option is ignored if specified via an HFZOPTS DD statement anywhere else, such as in a CICS® region or batch job.