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

Source Code

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

The Linkage Parameter list used by TIRIURTX 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.