z/OS User Exits › z/OS Blockmode User Exits—TSO › TIRIURTX—Ultimate Retry Limit Exit › Source Code

Source Code

The source code for this exits is in CA Gen CEHBSAMP library in member TIRCURTX. The sample exit is written in COBOL and uses standard OS linkage.

The Linkage Parameter list used by TIRCURTX is as follows:

01  RUNTIME-PARM1                PIC X.            
01  RUNTIME-PARM2                PIC X.            
01  ULTIMATE-RETRY-LIMIT         PIC S9(9)   COMP. 
01 GLOBDATA                      size 3645 bytes