z/OS User Exits › z/OS Blockmode User Exits—IMS › TIRIRTRX—Default Retry Limit Exit › Source Code

Source Code

This exit is used by IMS and IEFAE blockmode applications only. The source code for this exit is in CA Gen CEHBSAMP library, in member TIRIRTRX. The sample exit provided is written in COBOL and uses standard OS Linkage.

The Linkage Parameter list used by TIRIRTRX is as follows:

01  RUNTIME-PARM1                               PIC X
01  RUNTIME-PARM2                               PIC X.
01  RETRY-TIMES                                 PIC S9(4) COMP.
01  GLOBDATA                                    size 3645 bytes.