CONTROL BLOCK NAME = DFHDXUEP
NAME OF MATCHING PLS CONTROL BLOCK = NONE
DESCRIPTIVE NAME = CICS/MVS XRF support of DBCTL
Licensed Materials - Property of IBM
Restricted Materials of IBM
5655-Y04
(C) Copyright IBM Corp. 1990
FUNCTION =
Defines the parameter list passed to the Global User Exits
XXDFA,XXDFB, and XXDTO.
This control block is built by programs DFHDBCT and DFHDBCR
when a user decision is required on whether to perform an XRF
takeover after a DBCTL failure, or a DBCTL takeover after a
CICS failure.
LIFETIME =
This control block is created in the lifo of DFHDBCT or
DFHDBCR to communicate with XXDFA,XXDFB or XXDTO the
control block is completely reinitialized every time one
of these exits is invoked.
STORAGE CLASS =
LIFO
LOCATION =
N/A
INNER CONTROL BLOCKS =
N/A
NOTES :
DEPENDENCIES = S/370
RESTRICTIONS =
None
MODULE TYPE = Control block definition
--------------------------------------------------------------------
EXTERNAL REFERENCES =
Identify referenced items defined outside this control
block. Such external references should be avoided.
DATA AREAS =
None
CONTROL BLOCKS =
None
GLOBAL VARIABLES (Macro pass) =
None
-----------00-------------------------------------------------------
Table 1.
Offset Hex |
Type |
Len |
Name (Dim) |
Description |
(0) |
STRUCTURE |
0 |
DFHDXUEP |
(0) |
CHARACTER |
4 |
UEPDXADB |
SSID of old active IMS |
(4) |
CHARACTER |
4 |
UEPDXBDB |
SSID of proposed alternate |
(8) |
CHARACTER |
8 |
UEPDXSAD |
CICS specific applid |
(10) |
CHARACTER |
8 |
UEPDXRSE |
IMS RSE name |
(18) |
CHARACTER |
4 |
UEPDXCTM |
IMS connect time |
(1C) |
CHARACTER |
4 |
UEPDXDTM |
IMS disconnect/abend time |
(20) |
CHARACTER |
8 |
UEPDXJNM |
Jes Jobname of old active IMS |
(28) |
CHARACTER |
8 |
UEPDXJID |
Jes Jobid of old active IMS |
(30) |
BITSTRING |
1 |
UEPDXIRT |
IMS region type |
(30) |
.... ...1 |
|
DXHOTSBY |
"X'01'" region type is hot standby |
(30) |
.... ..1. |
|
DXDBDC |
"X'02'" region type is IMS DB/DC |
(30) |
.... .1.. |
|
DXDBCTL |
"X'04'" region type is DBCTL |
(31) |
CHARACTER |
4 |
UEPDXSMF |
SMFID of active CEC |
(35) |
CHARACTER |
4 |
UEPDXJES |
Jes SSID of active CEC |
(3A) |
HALFWORD |
2 |
UEPDXASD |
ASID of old active IMS |
(3C) |
FULLWORD |
4 |
UEPDXRTC |
Return code from XXDFA (XXDFB only) |
(40) |
FULLWORD |
4 |
UEPDXATC (0) |
Action code from XXDFA (XXDFB only) |
(40) |
BITSTRING |
1 |
DXMVSID |
Active IMS had SSID in AXI RSE |
(41) |
BITSTRING |
1 |
DXAPPLID |
Active CICS has Applid in AXI RSE |
(42) |
BITSTRING |
1 |
DXEQJES |
Active CICS on same JES as IMS |
(43) |
BITSTRING |
1 |
DXALTFND |
Alternate IMS fnd in active CEC |
(44) |
BITSTRING |
1 |
DXCMDISS |
Restart issued in active CEC |
(45) |
BITSTRING |
1 |
UEPDXSND |
MVS System Indicator |
(45) |
1... .... |
|
DXXCFA |
"X'80'" ...XCF services available |
(46) |
CHARACTER |
8 |
UEPDXSPX |
XCF sysplex name for active |
(4E) |
CHARACTER |
8 |
UEPDXSNM |
MVS system name for active |
(56) |
CHARACTER |
4 |
UEPDXSTK |
MVS System token for active |