Previous Topic: TIRCURTX—Ultimate Retry Limit ExitNext Topic: Purpose

z/OS User Exits › z/OS Blockmode User Exits—CICS › TIRCURTX—Ultimate Retry Limit Exit › Source Code

Source Code

The source code for this exit is in CA Gen CEHBSAMP library, in member TIRCURTX. The sample exit provided 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.