z/OS User Exits › z/OS Server User Exits—CICS › TIRPROUX—Server-to-Server Routing Exit › Source Code

Source Code

The source code for this exit is in CA Gen CEHBSAMP library, in member TIRCROUX. The sample exit provided is written in COBOL and uses standard OS Linkage.

The Linkage Parameter list used by TIRCROUX is as follows:

01  GLOBDATA        					structure size  3645 bytes.
01  PSTEP-NAME                     		PIC X(32).
01  PSTEP-TRANCODE                 		PIC X(08).
01  PSTEP-LOADMOD                  		PIC X(08).
01  ROUTR-OUT-TRANCODE             		PIC X(08).
01  ROUTR-OUT-LOADMOD              		PIC X(08).
01  ROUTR-OUT-SVR-CONNECT-DATA 			PIC X(256).
01  ROUTR-OUT-ASYNCH-FLAG          		PIC X(01).
01  ROUTR-OUT-RET-CODE             		PIC X(02).
01  FAIL-MESSAGE                   		PIC X(75).

This exit contains CICS API calls that require it to be processed by the Translator. The Translator automatically includes data structures for DFHEIBLK and DFHCOMMAREA in the place of RUNTIME-PARM1 and RUNTIME-PARM2 thus RUNTIME-PARMx are not specified.