Previous Topic: TIRSLEXT—CICS Sockets Server Listener ExitNext Topic: Purpose

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

Source Code

The source code for this exit is in CA Gen CEG8SAMP library, in member TIRSLEXT. 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 TIRSLEXT is passed in the COMMAREA as follows:

  1. ASCII transaction code
  2. EBCDIC transaction code
  3. ASCII userid
  4. EBCDIC userid
  5. ASCII client code page
  6. EBCDIC client code page
  7. EBCDIC password
  8. Enhanced Security Flag
  9. Enhanced Type Flag
  10. Check Flag
  11. Security Flag
  12. Client Port
  13. Client IP Address
  14. CICS System Id
  15. Listener GIVESOCKET/TAKESOCKET TIMEOUT - Seconds
  16. Listener GIVESOCKET/TAKESOCKET TIMEOUT – Microseconds
  17. Server Termid
  18. EXRC

The parameters are listed in the Arguments section.