z/OS User Exits › z/OS Middleware User Exits—IMS TCP/IP Direct Connect Exits › TIRxxTD—TCP/IP Destination ID Exit › Source Code

Source Code

The source code for this exit is in CA Gen CEG9SAMP library, in member TIRxxTD where xx is 10, 11, 12, or 13. The sample exit provided is written in ASSEMBLER and uses standard OS Linkage.

On entry, register usage is as follows:

Register 1—parameter list, mapped to DSECT DESTAREA.

Register 13—address of save area.

Register 14—caller's return address.

Register 15—this exit entry address.

The parameter list used by TIRxxTD is passed in Register 1 as a list of addresses, the last one being indicated by the high-order bit being set on. Each address in the list addresses one argument as follows:

1. Exit Interface Block XIB
2. Client's IP Address
3. Client's Port
4. IMS transaction code
5. User ID as supplied by the Client
6. RACF Groupid
7. Datastore (IMS region) name
8. IMS LTERM
9. Return Code
10. Reason Code