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.HFZHIST data area field, and the fault ID assigned to the recorded fault is available in the ENV.FAULT_ID data area field.

Z Abend Investigator issues message HFZ0003I to indicate the assigned fault ID and history file.

When invoked

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

Parameters

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.HFZHIST)||"' -"
queue left(rec,80)
rec = "USER(FRED) LOGON"
queue left(rec,80)
queue '/*'
/* 'Submit' the stacked TSO batch job */
n = queued()
"HFZALLOC DD(DD1) SYSOUT PGM(INTRDR)"
if rc = 0 then do
  address mvs "EXECIO" n "DISKW DD1 (FINIS"
  "HFZFREE 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 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(NOTIFY(REXX(ABC)))

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