z/OS User Exits › z/OS Middleware User Exits—IMS TCP/IP Direct Connect Exits › TIRxxTSC—TCP/IP Security Exit › Source Code

Source Code

The source code for this exit is in CA Gen CEG9SAMP library, in member TIRxxTSC 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 SECAREA.

Register 13 - address of save area.

Register 14 - caller's return address.

Register 15 - this exit entry address.

The parameter list used by TIRxxTSC 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. OTMA Security Flag
2. Client's IP Address
3. Client's Port
4. IMS transaction code
5. Client Code Page
6. Data Type
7. Exit Interface Block XIB
8. Length of user data
9. CFB Userid
10. CFB Password
11. RACF Groupid
12. Return Code
13. Reason Code