CONTROL BLOCK NAME = DFHDBWMS
DESCRIPTIVE NAME = CICS XRF/DBCTL Last Message Sent
FUNCTION = Maps the XRF message for DBCTL
LIFETIME =
Storage obtained by GETMAIN
LOCATION = CSA->OPFL->DLP->DGB->DXPS->DBWMS
INNER CONTROL BLOCKS = None
NOTES :
DEPENDENCIES = S/370
RESTRICTIONS = None
MODULE TYPE = Control block definition
Contained in PL/AS Copy Book DFHDXMAC
Invoke by DXMSGPS NAME(qualifier)
the qualifier is used to allow multiple copies of
the message to be defined in the same program
(rather than use of ->)
--------------------------------------------------------------
EXTERNAL REFERENCES = None
DATA AREAS = Contains names and Ids of IMS job
GLOBAL VARIABLES (Macro pass) = None
Table 1.
Offset Hex |
Type |
Len |
Name (Dim) |
Description |
(0) |
STRUCTURE |
78 |
DFHDBWMS_DXMSG |
DECLARE THE DBCTL MESSAGE MAPPING
|
(0) |
CHARACTER |
4 |
DXMSG_WMSDBCID |
IMS ssid |
(4) |
CHARACTER |
8 |
DXMSG_WMSRSENM |
IMS RSE name |
(C) |
CHARACTER |
8 |
DXMSG_WMSJNAME |
IMS MVS jobname |
(14) |
CHARACTER |
8 |
DXMSG_WMSJOBID |
IMS Jes Jobid |
(1C) |
CHARACTER |
4 |
DXMSG_WMSSMFID |
MVS SMF id |
(20) |
CHARACTER |
1 |
DXMSG_WMSSIND |
MVS System Indicator |
(20) |
1... .... |
|
DXMSG_XCFA |
XCF services available |
(20) |
.111 1111 |
|
* |
Reserved |
(21) |
CHARACTER |
8 |
DXMSG_WMSSPLX |
XCF syslex name |
(29) |
CHARACTER |
8 |
DXMSG_WMSSNAM |
XCF system name |
(31) |
CHARACTER |
4 |
DXMSG_WMSSTOK |
MVS system intance token |
(35) |
CHARACTER |
4 |
DXMSG_WMSJESID |
SSID of active JES |
(3A) |
HALFWORD |
2 |
DXMSG_WMSASID |
IMS MVS asid |
(3C) |
CHARACTER |
1 |
DXMSG_WMSITYPE |
IMS region type |
(40) |
FULLWORD |
4 |
DXMSG_WMSUERC |
User Exit Return Code |
(44) |
BIT(32) |
4 |
DXMSG_WMSCTIME |
IMS connect time |
(48) |
BIT(32) |
4 |
DXMSG_WMSDTIME |
IMS disconnect time |
(4C) |
CHARACTER |
1 |
DXMSG_FLGS1 |
FLGS to show message type |
(4C) |
1... .... |
|
DXMSG_DBCF |
DBCTL failure |
(4C) |
.1.. .... |
|
DXMSG_DRAF |
DRA failure |
(4C) |
..1. .... |
|
DXMSG_CON |
Connection complete |
(4C) |
...1 .... |
|
DXMSG_CATCH |
Catchup message |
(4C) |
.... 1... |
|
DXMSG_DISC |
Disconnection complete |
(4C) |
.... .1.. |
|
DXMSG_ERROR |
Error in control tran / exit |
(4C) |
.... ..11 |
|
* |
Filler for remainder of byte |
(4D) |
CHARACTER |
1 |
DXMSG_FLGS2 |
FLGS to show active environment |
(4D) |
1... .... |
|
DXMSG_MVSID |
MVSid in active AXI |
(4D) |
.1.. .... |
|
DXMSG_APPLID |
Active applid in AXI |
(4D) |
..1. .... |
|
DXMSG_JES |
Active CICS & IMS on same JES |
(4D) |
...1 .... |
|
DXMSG_ALT |
Alternate found on active CEC |
(4D) |
.... 1... |
|
DXMSG_CMD |
CMD issued OK on active CEC |
(4D) |
.... .111 |
|
* |
Filler for remainder of byte |
Table 2.
Len |
Type |
Value |
Name |
Description |
1 |
DECIMAL |
0 |
DBCTL_DISC |
DBCTL is not connected |
1 |
DECIMAL |
4 |
DBCTL_CONN |
DBCTL is connected |
1 |
DECIMAL |
8 |
DBCTL_MCONN |
DBCTL is morally connected |