Using Exit Programs › CA Datacom/DB Access Exit (DCCTXPR)

CA Datacom/DB Access Exit (DCCTXPR)

Control is passed from CA Datacom CICS Services to an exit module (DCCTXPR) before and after CA Datacom CICS Services accesses CA Datacom/DB. (This exit is intended for use by "monitor-type" applications; most exit-related code should be placed in the standard DCCTFPR exit.)

CA provides a source copy in the Source Library created during the installation of this product. Add your code between the label D10000 and the BR 14 instruction. To determine if you are receiving control before or after CA Datacom/DB access, examine the contents of register 0.

User-Written Exit Criteria

The module containing your exit program must be named DCCTXPR. The exit module must adhere to the following guidelines:

• Entry point is the CSECT load name.
• Upon entry, the following registers are available.

Verify that these exits are RENT.

Register 0

The low-order (that is to say, rightmost) byte indicates whether the exit has occurred before or after calling CA Datacom/DB, as follows:

• 'F1'— Exit prior to calling CA Datacom/DB
• 'F2'— Exit after return from CA Datacom/DB

Register 1

Zero in the high-order bit indicates that the DBNTRY entry point is in use. Otherwise, the CA Datacom entry point is in use. The remainder of this register contains the address of the PARMLIST (contents described following) passed to CA Datacom/DB:

• A (Request Area)
• A (Work Area)
• An (Element List)
• A (Request Qualification Area)

Note: For address of UID area, subtract 4 from register 1.

Registers 2—8

Zeros.

Register 9

Address of the URT CA Datacom CICS Services used with CA Datacom/DB access.

Register 10

Zeros.

Register 11

Address of Register Save Area (18 fullwords).

Register 13

EIS (80-byte Work Area available for DCCTXPR use).

Register 14

Return Address.

Register 15

Start of USER Module.

• Upon entry, save registers in area addressed by register 11 (R11).
• Upon exit, restore registers from Register Save Area.
• User may issue any CICS command.

Note: Threadsafe CICS commands should be considered as advantageous when considering making changes or adding code.