CONTROL BLOCK NAME = DFHXRSPS
DESCRIPTIVE NAME = CICS TS (XRF) Static Storage Definition
Licensed Materials - Property of IBM
Restricted Materials of IBM
5655-Y04
(C) Copyright IBM Corp. 1985, 1990
FUNCTION =
DFHXRSPS defines the XRF static storage area managed
by CICS and referred to as XRP static storage.
XRP static storage contains
1. the communications area for DFHXRB and DFHXRSP
2. ECBs used to control the progress of alternate
CICS before, during and after takeover
3. system status data for active CICS
4. system status data for alternate CICS
5. system health data
System status data for active CICS is maintained by
alternate CICS and contains
1. status data - e.g. signed on / off
2. action flags - e.g. heartbeat overdue
2. action modifier flags - e.g. message sent
System status data for alternate CICS is maintained
by active CICS and and is very similar in content to
system status data for active CICS.
The structure XRS# provides the common definition
for system status data.
The structure DFHXRHPS, contained in DFHXRHPS,
provides the definition for system health data.
LIFETIME =
There is only one instance of the control block. It
is allocated by DFHXRA in response to a DFHXR
CTYPE=INITIALIZE call in DFHSIC1.
STORAGE CLASS =
The control block is allocated by DFHSIC1.
LOCATION =
The control block is addressed from SSAXRP in the
static storage address list.
INNER CONTROL BLOCKS =
XRP static storage contains inner control blocks.
These are
1. system status data for active CICS
2. system status data for alternate CICS
3. system health data
NOTES :
DEPENDENCIES =
S/370
RESTRICTIONS =
There are no restrictions.
MODULE TYPE =
Control block definition.
------------------------------------------------------------------
EXTERNAL REFERENCES =
None.
DATA AREAS =
None.
CONTROL BLOCKS =
None.
GLOBAL VARIABLES (Macro pass) =
None.
DFHXRP - Static Storage Definition
Table 1.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
176 |
DFHXRSPS |
... general values ...
|
| (0) |
CHARACTER |
12 |
XRSGV |
General Values |
| (0) |
ADDRESS |
4 |
XRSSXRSA |
Status area anchor |
| (4) |
CHARACTER |
4 |
* |
Reserved |
| (8) |
CHARACTER |
1 |
XRSXRF |
- function |
| (9) |
CHARACTER |
1 |
XRSXRSNS |
- signon |
| (A) |
CHARACTER |
2 |
* |
Reserved |
... pointers ...
|
| (C) |
CHARACTER |
16 |
XRSAX |
Pointers |
| (C) |
ADDRESS |
4 |
XRSAXRS0 |
- A(status data - act) |
| (10) |
ADDRESS |
4 |
XRSAXRS1 |
- A(status data - alt 1) |
| (14) |
ADDRESS |
4 |
XRSAXRS2 |
- A(status data - alt 2) |
| (18) |
ADDRESS |
4 |
XRSAXRHD |
- A(health data) |
... DFHXRB / DFHXRSP communication area ...
|
| (1C) |
CHARACTER |
4 |
XRSW |
DFHXRB / DFHXRSP comm area |
| (1C) |
ADDRESS |
4 |
XRSWECHN |
- work element queue |
... Event Control Blocks ...
|
| (20) |
CHARACTER |
16 |
XRSTI |
Takeover Initiated |
| (20) |
CHARACTER |
4 |
XRSTIPFX |
- eye catcher |
| (24) |
CHARACTER |
4 |
XRSTIECB |
- TI ECB (CICS posted) |
| (24) |
1... .... |
|
* |
Reserved |
| (24) |
.1.. .... |
|
XRSTIWT |
- wait/post bit |
| (24) |
BIT(22) POS(3) |
3 |
* |
Reserved |
| (27) |
BIT(8) |
1 |
XRSTIRC |
- return code |
| (28) |
CHARACTER |
8 |
XRSTITOD |
- time TI ECB posted |
| (30) |
CHARACTER |
16 |
XRSIA |
Incipient Active |
| (30) |
CHARACTER |
4 |
XRSIAPFX |
- eye catcher |
| (34) |
CHARACTER |
4 |
XRSIAECB |
- IA ECB (CICS posted) |
| (34) |
1... .... |
|
* |
Reserved |
| (34) |
.1.. .... |
|
XRSIAWT |
- wait/post bit |
| (34) |
BIT(22) POS(3) |
3 |
* |
Reserved |
| (37) |
BIT(8) |
1 |
XRSIARC |
- return code |
| (38) |
CHARACTER |
8 |
XRSIATOD |
- time IA ECB posted |
| (40) |
CHARACTER |
16 |
XRSTC |
Takeover Completed |
| (40) |
CHARACTER |
4 |
XRSTCPFX |
- eye catcher |
| (44) |
CHARACTER |
4 |
XRSTCECB |
- TC ECB (CICS posted) |
| (44) |
1... .... |
|
* |
Reserved |
| (44) |
.1.. .... |
|
XRSTCWT |
- wait/post bit |
| (44) |
BIT(22) POS(3) |
3 |
* |
Reserved |
| (47) |
BIT(8) |
1 |
XRSTCRC |
- return code |
| (48) |
CHARACTER |
8 |
XRSTCTOD |
- time TC ECB posted |
| (50) |
CHARACTER |
16 |
XRSRA |
RSD Available |
| (50) |
CHARACTER |
4 |
XRSRAPFX |
- eye catcher |
| (54) |
CHARACTER |
4 |
XRSRAECB |
- RA ECB (CICS posted) |
| (54) |
1... .... |
|
* |
Reserved |
| (54) |
.1.. .... |
|
XRSRAWT |
- wait/post bit |
| (54) |
BIT(22) POS(3) |
3 |
* |
Reserved |
| (57) |
BIT(8) |
1 |
XRSRARC |
- return code |
| (58) |
CHARACTER |
8 |
XRSRATOD |
- time RA ECB posted |
| (60) |
CHARACTER |
16 |
XRSSS |
Synchronized wrt Signoff |
| (60) |
CHARACTER |
4 |
XRSSSPFX |
- eye catcher |
| (64) |
CHARACTER |
4 |
XRSSSECB |
- SS ECB (CICS posted) |
| (64) |
1... .... |
|
* |
Reserved |
| (64) |
.1.. .... |
|
XRSSSWT |
- wait/post bit |
| (64) |
BIT(22) POS(3) |
3 |
* |
Reserved |
| (67) |
BIT(8) |
1 |
XRSSSRC |
- return code |
| (68) |
CHARACTER |
8 |
XRSSSTOD |
- time SS ECB posted |
| (70) |
CHARACTER |
16 |
XRSST |
Synchronized wrt Termination |
| (70) |
CHARACTER |
4 |
XRSSTPFX |
- eye catcher |
| (74) |
CHARACTER |
4 |
XRSSTECB |
- ST ECB (CICS posted) |
| (74) |
1... .... |
|
* |
Reserved |
| (74) |
.1.. .... |
|
XRSSTWT |
- wait/post bit |
| (74) |
BIT(22) POS(3) |
3 |
* |
Reserved |
| (77) |
BIT(8) |
1 |
XRSSTRC |
- return code |
| (78) |
CHARACTER |
8 |
XRSSTTOD |
- time ST ECB posted |
| (80) |
CHARACTER |
16 |
XRSQS |
Quiesce Surveillance |
| (80) |
CHARACTER |
4 |
XRSQSPFX |
- eye catcher |
| (84) |
CHARACTER |
4 |
XRSQSECB |
- QS ECB (CICS posted) |
| (84) |
1... .... |
|
* |
Reserved |
| (84) |
.1.. .... |
|
XRSQSWT |
- wait/post bit |
| (84) |
BIT(22) POS(3) |
3 |
* |
Reserved |
| (87) |
BIT(8) |
1 |
XRSQSRC |
- return code |
| (88) |
CHARACTER |
8 |
XRSQSTOD |
- time QS ECB posted |
| (90) |
CHARACTER |
16 |
XRSSD |
Shut Down |
| (90) |
CHARACTER |
4 |
XRSSDPFX |
- eye catcher |
| (94) |
CHARACTER |
4 |
XRSSDECB |
- SD ECB (CICS posted) |
| (94) |
1... .... |
|
* |
Reserved |
| (94) |
.1.. .... |
|
XRSSDWT |
- wait/post bit |
| (94) |
BIT(22) POS(3) |
3 |
* |
Reserved |
| (97) |
BIT(8) |
1 |
XRSSDRC |
- return code |
| (98) |
CHARACTER |
8 |
XRSSDTOD |
- time SD ECB posted |
... system health data ...
|
| (A0) |
CHARACTER |
16 |
XRSH |
| (A0) |
CHARACTER |
8 |
XRSHGAPL |
Generic applid |
| (A8) |
CHARACTER |
8 |
XRSHSAPL |
Specific applid |
| (B0) |
CHARACTER |
0 |
DFHXRSND |
Anchor area addressed by XRSSXRSA in static area
Note: XRSA MUST end on a word boundary such that the XRS#
status areas that follow are also word alligned.
Table 2.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
84 |
XRSA |
| (0) |
CHARACTER |
8 |
XRSAPFX |
- eye catcher |
| (8) |
FULLWORD |
4 |
XRSALN |
Total area length |
| (C) |
ADDRESS |
4 |
* (4294967300:456237280) |
QQQQ space for XRSAXRS0.. |
| (1C) |
FULLWORD |
4 |
XRSAGMAX |
Global data area size |
| (20) |
CHARACTER |
8 |
XRSAF |
Free health elements |
| (20) |
ADDRESS |
4 |
XRSAFREE |
First free hwe |
| (24) |
FULLWORD |
4 |
XRSAFIDN |
Guard for CDS |
| (28) |
ADDRESS |
4 |
XRSASHRD |
Transferred hwe |
| (2C) |
ADDRESS |
4 |
XRSACAVM |
CAVM's hwe |
| (30) |
ADDRESS |
4 |
XRSAPTA |
Program name table adr |
| (34) |
CHARACTER |
4 |
XRSAMVID |
MVS SMF id. |
| (38) |
CHARACTER |
4 |
XRSAJSID |
JES subsystem id. |
| (3C) |
CHARACTER |
8 |
XRSASPLX |
XCF Sysplex name |
| (44) |
CHARACTER |
8 |
XRSASNAM |
MVS System name |
| (4C) |
CHARACTER |
4 |
XRSASTOK |
MVS System instance |
| (50) |
CHARACTER |
4 |
* |
Status bytes |
| (50) |
BIT(8) |
1 |
XRSASIND |
MVS System status |
| (50) |
1... .... |
|
XRSAXCFA |
|
| (50) |
.111 1111 |
|
* |
Reserved |
| (51) |
CHARACTER |
3 |
* |
Reserved |
| (54) |
CHARACTER |
0 |
* |
force word allignment |
DFHXRP - System Status Definition
Table 3.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
76 |
XRS# |
Data for ... |
| (0) |
CHARACTER |
8 |
XRS#PFX |
- eye catcher |
| (8) |
FULLWORD |
4 |
XRS#DI |
- delay interval |
| (C) |
CHARACTER |
12 |
* |
- status (wrt CAVM TCB) |
| (C) |
FULLWORD |
4 |
XRS#INS1 |
- instance number |
| (10) |
FULLWORD |
4 |
XRS#VER1 |
- version number |
| (14) |
CHARACTER |
4 |
* |
- flags |
| (14) |
1... .... |
|
XRS#SON1 |
- signed on |
| (14) |
.1.. .... |
|
XRS#HBO1 |
- heartbeat overdue |
| (14) |
BIT(30) POS(3) |
4 |
* |
Reserved |
| (18) |
CHARACTER |
20 |
* |
- status (wrt CICS TCB) |
| (18) |
FULLWORD |
4 |
XRS#INS2 |
- instance number |
| (1C) |
FULLWORD |
4 |
XRS#VER2 |
- version number |
| (20) |
CHARACTER |
8 |
XRS#APL2 |
- specific applid |
| (28) |
CHARACTER |
4 |
* |
- flags |
| (28) |
1... .... |
|
XRS#SON2 |
- signed on |
| (28) |
BIT(31) POS(2) |
4 |
* |
Reserved |
| (2C) |
FULLWORD |
4 |
XRS#NSON |
- sign on count |
| (30) |
CHARACTER |
8 |
* |
- Write to Operator |
| (30) |
CHARACTER |
4 |
XRS#ECB |
- WTOR ECB (OS posted) |
| (30) |
1... .... |
|
XRS#WAIT |
- wait bit |
| (30) |
.1.. .... |
|
XRS#POST |
- post bit |
| (30) |
BIT(30) POS(3) |
4 |
* |
Reserved |
| (34) |
FULLWORD |
4 |
XRS#MID |
- identification number |
| (38) |
CHARACTER |
3 |
XRS#AFL |
- action flags |
| (38) |
1... .... |
|
XRS#HBRS |
- heartbeat resumed |
| (38) |
.1.. .... |
|
XRS#HBOD |
- heartbeat overdue |
| (38) |
..1. .... |
|
XRS#RQTP |
- request takeover - process WTOR request |
| (38) |
...1 .... |
|
XRS#RQTG |
- request takeover - preocess WTOR reply |
| (38) |
.... 1... |
|
XRS#INTK |
- initiate takeover |
| (38) |
.... .1.. |
|
XRS#PSN |
- sign on |
| (38) |
.... ..1. |
|
XRS#PSFN |
- sign off normal |
| (38) |
.... ...1 |
|
XRS#PSFA |
- sign off abnormal |
| (39) |
1... .... |
|
XRS#ATCX |
- attach CXCU |
| (39) |
BIT(15) POS(2) |
2 |
* |
Reserved |
| (3B) |
CHARACTER |
1 |
XRS#MFL |
- action modifier flags |
| (3B) |
1... .... |
|
XRS#SONP |
- sign on - pending |
| (3B) |
.1.. .... |
|
XRS#SOFI |
- sign off - implicit |
| (3B) |
..1. .... |
|
XRS#ATER |
- attach CXCU failed |
| (3B) |
...1 .... |
|
XRS#6X16 |
- heartbeat overdue |
| (3B) |
...1 .... |
|
XRS#6416 |
- message DFH6416 |
| (3B) |
...1 .... |
|
XRS#6516 |
- message DFH6516 |
| (3B) |
.... 1... |
|
XRS#6X18 |
- request takeover |
| (3B) |
.... 1... |
|
XRS#6418 |
- message DFH6418 |
| (3B) |
.... 1... |
|
XRS#6518 |
- message DFH6518 |
| (3B) |
.... .1.. |
|
XRS#DUMP |
- request dump |
| (3B) |
.... ..11 |
|
* |
Reserved |
| (3C) |
CHARACTER |
16 |
* |
- TOD clock difference |
| (3C) |
CHARACTER |
8 |
* |
- wrt CAVM TCB |
| (3C) |
FULLWORD |
4 |
XRS#LBD1 |
- lower bound |
| (40) |
FULLWORD |
4 |
XRS#UBD1 |
- upper bound |
| (44) |
CHARACTER |
8 |
* |
- wrt CICS TCB |
| (44) |
FULLWORD |
4 |
XRS#LBD2 |
- lower bound |
| (48) |
FULLWORD |
4 |
XRS#UBD2 |
- upper bound |
Table 4.
| Len |
Type |
Value |
Name |
Description |
| 1 |
CHARACTER |
N |
XRSXRNO |
- not signed on |
| 1 |
CHARACTER |
A |
XRSXRACT |
- signed on as active |
| 1 |
CHARACTER |
B |
XRSXRALT |
- signed on as alternate |
| 1 |
CHARACTER |
A |
XRSTAKEA |
- TAKEOVER=AUTOMATIC |
| 1 |
CHARACTER |
M |
XRSTAKEM |
- TAKEOVER=MANUAL |
| 1 |
CHARACTER |
C |
XRSTAKEC |
- TAKEOVER=COMMAND |
| 1 |
CHARACTER |
Y |
XRSSURON |
- SURVEILLANCE=ON |
| 1 |
CHARACTER |
N |
XRSSUROF |
- SURVEILLANCE=OFF |
| 0 |
BIT |
1 |
XRS#ON |
- action required |
| 0 |
BIT |
0 |
XRS#OFF |
- action completed |