Notification user exit (MVS SVC Dump registration)

The following describes the dump registration Notification user exit.

Purpose

This exit can be used to provide installation-specific notification about the recording of an SVC dump fault entry in a history file.

The name of the history file in which the fault was recorded is provided in the ENV.IDIHIST data area field, and the fault ID assigned to the recorded fault is available in the ENV.FAULT_ID data area field.

Fault Analyzer issues message IDI0003I to indicate the assigned fault ID and history file.

When invoked

This exit is invoked after Fault Analyzer has finished the registration of an MVS™ SVC dump fault entry in the history file.

Example

The following is an example of a dump registration Notification user exit that is written in REXX.
Figure 1. Sample REXX dump registration Notification user exit
/* REXX */
if ENV.VERSION <> 5 then
  say 'Note: ENV data area version change - field usage review required!'
if NFY.VERSION <> 2 then
  say 'Note: NFY data area version change - field usage review required!'
/* Issue SEND command via TSO batch job */
queue "//NOTIFY   JOB  MSGCLASS=Z"
queue "//TSOBATCH EXEC PGM=IKJEFT01"
queue "//SYSTSPRT DD   SYSOUT=*"
queue "//SYSTSIN  DD   *"
/* Split the TSO SEND command over three data records that must
   each be padded with blanks to 80 bytes */
rec = "SEND 'Fault ID" ENV.FAULT_ID "assigned in history file -"
queue left(rec,80)
rec = strip(ENV.IDIHIST)||"' -"
queue left(rec,80)
rec = "USER(FRED) LOGON"
queue left(rec,80)
queue '/*'
/* 'Submit' the stacked TSO batch job */
n = queued()
"IDIALLOC DD(DD1) SYSOUT PGM(INTRDR)"
if rc = 0 then do
  address mvs "EXECIO" n "DISKW DD1 (FINIS"
  "IDIFREE DD(DD1)"
end
exit 0

Note that, unlike the normal Notification user exit, no user ID is available in the ENV data area.

If the above sample exit existed as member ABC in data set X.Y.Z, then providing the following options in either the IDICNF00 configuration member or an IDIOPTS user options file that is allocated to the IDIS subsystem would cause it to be invoked:

DataSets(IDIEXEC(X.Y.Z))
DumpRegistrationExits(NOTIFY(REXX(ABC)))

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