WSA - XRF CAVM surveillance status

    CONTROL BLOCK NAME = DFHWSADS
    NAME OF MATCHING PLS CONTROL BLOCK = DFHWSAPS
    DESCRIPTIVE NAME = CICS TS (XRF) - CAVM Surveillance Status
                                           Control Blocks
           Licensed Materials - Property of IBM
            Restricted Materials of IBM 
           5655-Y04
           (C) Copyright IBM Corp. 1985, 1990 
    FUNCTION =
           The various CAVM Surveillance Status Control Blocks exist
           to permit the 4 independent CAVM surveillance processes
           (2 status writers and 2 status readers) to communicate with
           other CAVM processes and with each other.
           Each XRF system contains a single set of these Surveillance
           Status Control Blocks.
    LIFETIME =
           The Surveillance Status Control Block, Public Status Area
           Descriptors and Public Status Areas in a given XRF system
           are all created at the same time during CAVM SIGNON by
           DFHWSSN2.
           The actual Status CIs are created by DFHWSSN3 as records
           filled with binary zeroes when it formats a new CAVM Control
           or Message Data Set. They are never destroyed except by
           deletion of the data set.
    STORAGE CLASS =
           Non-CICS storage. In MVS subpool 0 above the 16M line.
           The Status CIs themselves reside on DASD in the CAVM Control
           or Message Data Sets or in I/O buffers in MVS subpool 0
           above the 16M line.
    LOCATION =
           Field WCGSA in the CAVM Global Control Block (DFHWCGDS)
           contains a pointer to the Surveillance Status Control
           Block (DFHWSADS), which itself includes an array of Public
           Status Area Descriptors (WSADs) starting at WSAGWSAD.
    INNER CONTROL BLOCKS =
         See FUNCTION and LOCATION.
    NOTES :
       DEPENDENCIES = S/370
       RESTRICTIONS =
             Status Record must not become too large to fit in a 4K CI.
       MODULE TYPE = Control block definition
   --------------------------------------------------------------------
    EXTERNAL REFERENCES =
            None.
        DATA AREAS =
            None.
        CONTROL BLOCKS =
            None.
        GLOBAL VARIABLES (Macro pass) =
            None.
   --------------------------------------------------------------------
Table 1.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 0 DFHWSADS CAVM Surveillance Status Control Block
(0) CHARACTER 8 WSAGID Eye Catcher DFHWSAPS
(8) BITSTRING 1 WSAGWRQD Status Write Required Mask
(8) 1... ....   WSAGPSWR "X'80'" Status Write to Control File needed
(8) .1.. ....   WSAGSSWR "X'40'" Status Write to Message File needed
(9) BITSTRING 1 WSAGVRQD Status Verification Required Mask
(9) 1... ....   WSAGPSVR "X'80'" Control File status verify needed
(9) .1.. ....   WSAGSSVR "X'40'" Message File status verify needed
(A) BITSTRING 1 WSAGWSTK Status Writers Stuck Mask
(B) BITSTRING 1 WSAGRSTK Status Readers Stuck Mask
(C) HALFWORD 2 WSAGBN Maximum number of concurrent BACKUPs
(E) HALFWORD 2 WSAGINDX Index to this system's entry in the array of status descriptors (zero origin)
(10) HALFWORD 2 WSAG#BSU No. of BACKUPs whose Public Status is not yet available - WDSBBPSA is broadcast when this reaches zero
(12) BITSTRING 1 WSAGSRFL Flags for controlling Status Readers
(12) 1... ....   WSAGQBSR "X'80'" Quiesce Backup Status Readers
(13) BITSTRING 1 WSAGPRST Flags for recording the progress of a request to read the ACTIVE's latest status
(14) FULLWORD 4 (0) Ensure full word alignment
(14) BITSTRING 4 WSAGRES Internal ECB POSTed when request to read the ACTIVE's latest status has been completed
(18) BITSTRING 4 WSAGWEP Internal ECB POSTed to request a Status Write to the Control File
(1C) BITSTRING 4 WSAGWES Internal ECB POSTed to request a Status Write to the Message File
(20) BITSTRING 8 WSAGPWCM (0) Control File Write Complete Masks
(20) BITSTRING 4 WSAGWCP Mask defining event which will be broadcast when next Status Write to Control File completes successfully
(24) BITSTRING 4 WSAGWCEP Mask defining event which will be broadcast when next Status Write to Control File completes with error
(28) BITSTRING 8 WSAGSWCM (0) Message File Write Complete Masks
(28) BITSTRING 4 WSAGWCS Mask defining event which will be broadcast when next Status Write to Message File completes successfully
(2C) BITSTRING 4 WSAGWCES Mask defining event which will be broadcast when next Status Write to Message File completes with error
(30) FULLWORD 4 (0) Ensure full word alignment
(30) CHARACTER 8 WSAGPAIV Instance & version no. of previous ACTIVE job which has either signed off or is no longer executing according to JES (BACKUPs only)
(38) ADDRESS 4 WSAGP (0) Start of Array of Status Descriptors
(38) ADDRESS 4 WSAGWSAD (0) Start of Array of Status Descriptors
(38) ..11 1...   WSAGHDRL "*-DFHWSADS"
Table 2.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 0 WSAD CAVM Public Status Area Descriptor
(0) ADDRESS 4 WSADPB (0) Alternative Name
(0) ADDRESS 4 WSADPSA Address of Public Status Area
(4) HALFWORD 2 WSADTOTL Total length of Public Status
(6) HALFWORD 2 WSADSHRL Length of shared Status section
(8) HALFWORD 2 WSADIDVL Length of individual Status section
(A) HALFWORD 2 WSADPOFF Offset to my individual section in partner's Public Status
(C) ADDRESS 4 WSADSRCP Pointer to Communications Area for Status Reader and Writer Processes
(C) ...1 ....   WSADL "*-WSAD"
Table 3.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 0 WSAS Common Shared Section of Status
(0) FULLWORD 1 WSASST1 System Status 1
(0) .... ....   WSASSOFN "0" Signed off normally (must be zero)
(0) .... ...1   WSASSON "1" Signed on
(0) .... ..1.   WSASSOFA "2" Signed off abnormally
(1) FULLWORD 1 WSASST2 System Status 2
(1) .... ...1   WSASACT "1" System is ACTIVE
(1) .... ..1.   WSASINCP "2" System is incipient ACTIVE
(1) .... ..11   WSASBKUP "3" System is a BACKUP
(2) BITSTRING 1 WSASST3 System status 3
(2) 1... ....   WSASXCFA "X'80'" System has XCF services avail.
(3) BITSTRING 1   Reserved
(4) CHARACTER 8 WSASI#V# (0) Instance and Version number
(4) CHARACTER 8 WSASIVN (0) Alternative name for I & V
(4) FULLWORD 4 WSASINST System's Instance number
(8) FULLWORD 4 WSASVERN System's Version number (always 1 for BACKUPs)
(C) CHARACTER 16 WSASM (0) Message state data (meaningful only for ACTIVE system)
(C) FULLWORD 4 WSASMCID CIDF corresponding to AWC
(10) CHARACTER 8 WSASMAWC (0) ACTIVE Write Cursor
(10) FULLWORD 4 WSASMCNO Message cycle number
(14) FULLWORD 4 WSASMRBA RBA of end of last message
(18) FULLWORD 4 WSASMSQN Sequence no. of last message
(1C) CHARACTER 12 WSASMVSI MVS System Identification - SMF ID and time & date of IPL
(28) CHARACTER 8 WSASSPLX XCF Sysplex name
(30) CHARACTER 8 WSASSNAM MVS System name
(38) CHARACTER 4 WSASSTOK MVS Instance token
(3C) FULLWORD 4 WSASHBI 'Heart-beat' interval
(40) FULLWORD 4 WSASHBC 'Heart-beat' counter
(44) HALFWORD 2   Reserved
(46) HALFWORD 2 WSASIHLL Length of local 'Inquire Health' data
(48) CHARACTER 256 WSASIHLD Local 'Inquire Health' data
(148) HALFWORD 2   Reserved
(14A) HALFWORD 2 WSASIHGL Length of global 'Inquire Health' data
(14C) CHARACTER 128 WSASIHGD Global 'Inquire Health' data
(14C) 0 WSASL "*-WSAS"
Table 4.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 0 WSAR Specific Partner's Section of Status
(0) HALFWORD 2   Reserved
(2) HALFWORD 2 WSARQROF Offset to Message Management PUTREQ data (WSARQR)
(4) CHARACTER 16 WSARM (0) Message state data
(4) CHARACTER 8 WSARMBRC (0) BACKUP Read Cursor or Initial Read Cursor
(4) FULLWORD 4 WSARMCNO Message file cycle number
(8) FULLWORD 4 WSARMRBA RBA of end of last message read or of 1st message to be read
(C) FULLWORD 4 WSARINST Instance Number
(10) FULLWORD 4   Reserved
(10) ...1 .1..   WSARL "*-WSAR"
Table 5.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 0 WSARIV Invalidation Message from ACTIVE
(0) FULLWORD 4 WSARIVI# Instance number of BACKUP which is now invalid
(4) CHARACTER 12 WSARIVRC Invalidation reason code
(4) ...1 ....   WSARIVL "*-WSARIV"
Table 6.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 0 WSARTM TAKEOVER message from BACKUP
(0) HALFWORD 2   Reserved
(2) HALFWORD 2 WSARTMLN Length of message
(4) FULLWORD 4 WSARTMSI Instance number of BACKUP trying to take over
(8) CHARACTER 8 WSARTMIV (0)
(8) FULLWORD 4 WSARTMI# Instance number of ACTIVE to be taken over
(C) FULLWORD 4 WSARTMV# Version number of ACTIVE to be taken over
(10) CHARACTER 128 WSARTMSG Takeover message
(10) 1..1 ....   WSARTML "*-WSARTM"
Table 7.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 0 WSARQR Message Management PUTREQ & PUTRSP messages
(0) 1... ....   WSARQRL "128" Length of a Request or Response Message
(0) CHARACTER 128 WSARREQ Request message (PUTREQ)
(80) FULLWORD 4 (0) Ensure full word alignment
(80) CHARACTER 1 WSARRSP Response message (PUTRSP)
Table 8.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 0 WSASV1 Version 1 WSAS
(0) FULLWORD 1 WSV1ST1 System Status 1
(0) .... ....   WSV1SOFN "0" Signed off normally (must be 0)
(0) .... ...1   WSV1SON "1" Signed on
(0) .... ..1.   WSV1SOFA "2" Signed off abnormally
(1) FULLWORD 1 WSV1ST2 System Status 2
(1) .... ...1   WSV1ACT "1" System is ACTIVE
(1) .... ..1.   WSV1INCP "2" System is incipient ACTIVE
(1) .... ..11   WSV1BKUP "3" System is a BACKUP
(2) HALFWORD 2   Reserved
(4) CHARACTER 8 WSV1I#V# (0) Instance and Version number
(4) CHARACTER 8 WSV1IVN (0) Alternative name for I & V
(4) FULLWORD 4 WSV1INST System's Instance number
(8) FULLWORD 4 WSV1VERN System's Version number (always 1 for BACKUPs)
(C) CHARACTER 16 WSV1M (0) Message state data (meaningful only for ACTIVE system)
(C) FULLWORD 4 WSV1MCID CIDF corresponding to AWC
(10) CHARACTER 8 WSV1MAWC (0) ACTIVE Write Cursor
(10) FULLWORD 4 WSV1MCNO Message cycle number
(14) FULLWORD 4 WSV1MRBA RBA of end of last message
(18) FULLWORD 4 WSV1MSQN Sequence no. of last message
(1C) CHARACTER 12 WSV1MVSI MVS System Identification - SMF ID and time & date of IPL
(28) FULLWORD 4 WSV1HBI 'Heart-beat' interval
(2C) FULLWORD 4 WSV1HBC 'Heart-beat' counter
(30) HALFWORD 2   Reserved
(32) HALFWORD 2 WSV1IHLL Length of local 'Inquire Health' data
(34) CHARACTER 256 WSV1IHLD Local 'Inquire Health' data
(134) HALFWORD 2   Reserved
(136) HALFWORD 2 WSV1IHGL Length of global 'Inquire Health' data
(138) CHARACTER 128 WSV1IHGD Global 'Inquire Health' data
(138) 0 WSV1L "*-WSASV1"