Analysis Control user exit (MVS SVC Dump registration)
The following describes the dump registration Analysis Control user exit.
Purpose
- 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.IDIHIST 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
See Parameters.
Example
/* 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.IDIHIST = 'MY.DB2.HIST'
else if SUBSTR(ENV.JOB_NAME,1,3) = 'IMS' then
ENV.IDIHIST = 'MY.IMS.HIST'
else
ENV.IDIHIST = 'MY.OTHER.HIST'
exit 0
DataSets(IDIEXEC(X.Y.Z))
DumpRegistrationExits(CONTROL(REXX(ABC)))
The DumpRegistrationExits option must be specified in the IDICNFxx parmlib member, or via an IDIOPTS DD statement in the IDIS subsystem JCL. The DumpRegistrationExits option is ignored if specified via an IDIOPTS DD statement anywhere else, such as in a CICS® region or batch job.