z/OS User Exits › z/OS Middleware User Exits—CICS TCP/IP Direct Connect Exits › TIRSLTMX—CICS Sockets Server Listener TIMEOUT Exit › Source Code

Source Code

The source code for this exit is in the CA Gen CEG8SAMP library, in member TIRSLTMX. The sample exit provided is written in ASSEMBLER and is invoked by TISRVLIS using an EXEC CICS LINK API call.

Data used and returned by TIRSLTMX is passed in the COMMAREA as follows:

1. TISRVLIS EBCDIC transaction code
2. CICS APPLID
3. Listener ACCEPT TIMEOUT – Seconds
4. Listener ACCEPT TIMEOUT – Microseconds
5. Listener READ TIMEOUT – Seconds
6. Listener READ TIMEOUT – Microseconds
7. Listener ERROR TIMEOUT – Seconds, error processing
8. Listener ERROR TIMEOUT – Microseconds, error processing
9. Include IP ADDRESS FLAG – flag to add IP address to error message