IBM SC33-1683-02 - Manual (Page 654)

Reading DBCTL status information from the CAVM data sets
If you are using DBCTL and have active and alternate DBCTL subsystems, status
information about the subsystem connected to the active CICS is written to the
CAVM data sets. However, the supplied sample overseer program does not read
the DBCTL information from the CAVM data set. If you want the overseer to retrieve
this information and to display or use it, you must write your own overseer program.
The information in the CAVM data set about the connected DBCTL subsystem is
updated when the active CICS:
v Establishes a connection to a DBCTL subsystem
v Disconnects normally from a DBCTL subsystem
v Loses a connection to a DBCTL subsystem.
If more than one active CICS is connected to a single DBCTL subsystem, the
CAVM data set for each CICS contains information about the same DBCTL
subsystem. The overseer can recognize this situation because in every case the
DBCTL startup time stamp is the same.
Copy book DFHDXGHD contains the information shown in Figure 52.
DFHWOSM FUNC=TERM macro
The DFHWOSM FUNC=TERM macro terminates communication between the
overseer program and DFHWOS, and releases any associated storage. It must be
issued before the overseer program completes to ensure an orderly termination.
Input
The TOKEN value is the BUILD token.
DFHDXGHD DSECT
GHDDXADB DS CL4 DBCTL SSID
GHDDXRSE DS CL8 IMS RSE name
GHDDXCTM DS CL4 IMS connect time
GHDDXDTM DS CL4 IMS disconnect time
GHDDXJNM DS CL8 JES Job name of old active IMS
GHDDXJID DS CL8 JES Job ID of old active IMS
GHDDXASD DS H ASID of old active IMS
GHDDXIRT DS X IMS region type
DXRHTSBY EQU X'01' region type is hot standby
DXRDBDC EQU X'02' region type is IMS DB/DC
DXRDBCTL EQU X'04' region type is DBCTL
GHDDXTYP DS X GHD message type
DXMCNNCT EQU X'01' Message type = DBCTL connection
DXMDISC EQU X'02' Message type = DBCTL disconnect
DXMDRAF EQU X'04' Message type = DRA failure
DXMABEND EQU X'08' Message type = DBCTL abend
DXMERROR EQU X'80' Indicates severe error in DFHDBCT
DXGHDLEN EQU *-DFHDXGHD length of CICS XRF/DBCTL GHD
ORG ,
Figure 52. DFHDXGHD copy book
label DFHWOSM FUNC=TERM
[,TOKEN={token register|14}]
DFHWOSM macros
622 CICS TS for OS/390: CICS Customization Guide