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" |