Dfhwosm Func=Term Macro; Customizing The Sample Xrf Overseer Program - IBM SC34-6814-04 Customization Manual

DFHDXGHD DSECT
GHDDXADB DS CL4
GHDDXRSE DS CL8
GHDDXCTM DS CL4
GHDDXDTM DS CL4
GHDDXJNM DS CL8
GHDDXJID DS CL8
GHDDXASD DS H
GHDDXIRT DS X
DXRHTSBY EQU X'01'
DXRDBDC EQU X'02'
DXRDBCTL EQU X'04'
GHDDXTYP DS X
DXMCNNCT EQU X'01'
DXMDISC EQU X'02'
DXMDRAF EQU X'04'
DXMABEND EQU X'08'
DXMERROR EQU X'80'
DXGHDLEN EQU *-DFHDXGHD
ORG ,
Figure 70. DFHDXGHD copy book

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.
label DFHWOSM FUNC=TERM
[,TOKEN={token register|14}]
Input
Output

Customizing the sample XRF overseer program

The sample overseer program consists of four modules link-edited together. The
main module is DFH$AXRO; the other three modules are subroutines, described
below:
DFH$AGCB
DFH$ADSP
DFH$ARES
DBCTL SSID
IMS RSE name
IMS connect time
IMS disconnect time
JES Job name of old active IMS
JES Job ID of old active IMS
ASID of old active IMS
IMS region type
region type is hot standby
region type is IMS DB/DC
region type is DBCTL
GHD message type
Message type = DBCTL connection
Message type = DBCTL disconnect
Message type = DRA failure
Message type = DBCTL abend
Indicates severe error in DFHDBCT
length of CICS XRF/DBCTL GHD
The TOKEN value is the BUILD token.
Register 15
Contains the following completion codes:
0 Communication terminated successfully
Nonzero
Request failed.
sets up request parameter lists (RPLs), access method control blocks
(ACBs), and parameter lists.
displays status information.
performs restart in place.
Chapter 26. The extended recovery facility overseer program
703