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

Source Code

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

The Linkage Parameter list used by TIRIROUX is as follows:

01  RUNTIME-PARM1                  		PIC X.
01  RUNTIME-PARM2                  		PIC X.      
01  GLOBDATA     					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).