WNF - XRF CAVM notify exit

      CONTROL BLOCK NAME = DFHWNFPS
      DESCRIPTIVE NAME = CICS TS (XRF) - CAVM NOTIFY Exit
                                             Parameter Block
           Licensed Materials - Property of IBM
            Restricted Materials of IBM 
           5655-Y04
           (C) Copyright IBM Corp. 1985, 1990 
      FUNCTION =
           CAVM uses the NOTIFY Exit Parameter Block to describe an
           event it has detected which needs to be brought to the
           attention of the user of CAVM.
      LIFETIME =
           The duration of the call to the NOTIFY exit.
      STORAGE CLASS =
           Non-CICS storage. Usually in the automatic storage
           (managed by the CAVM LIFO mechanism) of the NOTIFY exit's
           caller.
      LOCATION =
           On entry to the NOTIFY exit, R1 contains the address of its
           parameter block.
      INNER CONTROL BLOCKS =
           None.
      NOTES :
       DEPENDENCIES = S/370
       MODULE TYPE = Control block definition
     ------------------------------------------------------------------
      EXTERNAL REFERENCES =
        DATA AREAS =
            None.
        CONTROL BLOCKS =
            None.
        GLOBAL VARIABLES (Macro pass) =
            None.
     ------------------------------------------------------------------
Table 1.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 24 DFHWNFPS
(0) FULLWORD 4 WNFRSV1 Reserved - must be zero
(4) UNSIGNED 1 WNFEVENT Event code
(5) BIT(8) 1 WNFEVNTM Event modifier bits
(5) 1... ....   WNFMDCEC Event was in different CEC
(5) .1.. ....   WNFMICPA Event refers to an incipient ACTIVE
(5) ..1. ....   WNFMSYSD If on, event refers to a sign-off due to MVS failure
(5) ...1 1111   * Reserved
(6) BIT(8) 1 WNFXBITS Existence bits for other fields
(6) 1... ....   WNFIX Index exists
(6) .1.. ....   WNFD1X DATA1 exists
(6) ..1. ....   WNFD2X DATA2 exists
(6) ...1 ....   WNFDAX Additional DATA exists
(6) .... 1111   * Reserved
(7) UNSIGNED 1 WNFINDEX Index identifying BACKUP slot - zero for ACTIVE
(8) FULLWORD 4 WNFDATA1 First data word
(8) FULLWORD 4 WNFINST# Instance no. for signon, signoff etc
(8) FULLWORD 4 WNFHBLAT No. of seconds 'heart-beat' is late
(8) FULLWORD 4 WNFABCC ABEND code (WNFEFAIL)
(C) FULLWORD 4 WNFDATA2 Second data word
(C) FULLWORD 4 WNFVERN# Version no. for signon, signoff etc
(C) CHARACTER 4 WNFQNAME New queue name (WNFENEWQ)
(10) ADDRESS 4 WNFDATAA Address of additional data
(14) FULLWORD 4 WNFDATAL Length of additional data
(18) CHARACTER 0 WNFEND

Constants

Table 2.
Len Type Value Name Description 
     Event codes for WNFEVENT
1 DECIMAL 1 WNFESON Signon
1 DECIMAL 2 WNFESOFN Signoff normal
1 DECIMAL 3 WNFESOFA Signoff abnormal
1 DECIMAL 7 WNFECKDC The TOD clock difference has changed
1 DECIMAL 8 WNFEIHRC The 'Inquire Health' response has changed
1 DECIMAL 9 WNFEHBOD Heart-beat is overdue
1 DECIMAL 10 WNFEHBRS Heart-beat has restarted
1 DECIMAL 15 WNFERQTK This system wants to take over from you.
1 DECIMAL 16 WNFEICPA You are now the incipient active but your TOD clock might be behind
1 DECIMAL 17 WNFECKAS Your TOD clock is now ahead of active's at signoff
1 DECIMAL 18 WNFEACTV You are now the active in all respects except that your TOD clock might still be behind
1 DECIMAL 19 WNFECKAT Your TOD clock is now ahead of active's at job termination
1 DECIMAL 20 WNFEPRMT Another BACKUP pre-empted you after your TAKEOVER request had been accepted
1 DECIMAL 21 WNFETKFL Takeover failed because of an error detected after the request had been accepted
1 DECIMAL 24 WNFEFAIL CAVM has failed
1 DECIMAL 25 WNFEINVL Active has invalidated you
1 DECIMAL 32 WNFENEWQ Message arrival has caused a new message queue to be created
1 DECIMAL 33 WNFEREQM Request message arrived
1 DECIMAL 34 WNFERSPM Response message received
1 DECIMAL 35 WNFERSPX Expected responder to a PUTREQ has gone away
1 DECIMAL 36 WNFENEWA A message has arrived from a new ACTIVE instance