The sample program and copy book – IBM SC33-1683-02 User Manual

Page 628

Advertising
background image

The parameter list contains the following information:

DBUREQT

Request Type. The function code has one of the following values:

DBUCONN (X'01')

Connected

DBUDISC (X'02')

Disconnected.

DBUREAS

Reason for Disconnection. Contains flags:

DBUMENU (X'01')

Disconnected from menu

DBUDBCC (X'02')

Checkpoint Freeze input to DBCTL

DBUDRAF (X'03')

DRA Failure has taken place

DBUDBCF (X'04')

DBCTL Failure has taken place.

DBUSUFF

DRA startup table suffix.

DBUDBCTL

DBCTL identifier.

The sample program and copy book

The source-code of the supplied CICS–DBCTL interface status program,
DFHDBUEX, is provided, in assembler language only, in the
CICSTS13.CICS.SDFHSAMP library. A corresponding copy book, DFHDBUCA, that
maps the communication area, is in CICSTS13.CICS.SDFHMAC.

The sample program checks for the presence of the input parameters (passed in
the communication area). If these do not exist, control returns to the calling
program.

The type of request (CONNECTION|DISCONNECTION) is then determined, and a
branch is taken to the appropriate function routine (CONPROC|DISPROC).

DBUSHEAD

DS

OCL4

Standard Header

DBUREQT

DS

CL1

Function Code

DBUCOMP

DS

CL2

Component Code

Always "DB"

DBURESV

DS

CL1

Reserved

DBUREAS

DS

CL1

Reason for disconnection

DBUSUFF

DS

CL2

DRA startup table suffix

DBUDBCTL

DS

CL4

DBCTL identifier

Figure 49. The DFHDBUEX communication area

the CICS–DBCTL interface status program

596

CICS TS for OS/390: CICS Customization Guide

Advertising