z/OS User Exits › z/OS Server User Exits—CICS › TIRTIARX—DB2 Message Exit › Source Code

Source Code

The source code for the version of the exit used by CICS application is in CA Gen CEHBSAMP library, in member TIRCTIAX. The sample exit provided is written in COBOL and uses standard OS Linkage.

The Linkage Parameter list used by TIRTIARX is as follows:

01  RUNTIME-PARM1                 PIC X. 
01  RUNTIME-PARM2                 PIC X. 
01  TIRFAIL-SQLCA                 PIC X. 
01  TIRTIAR-ERRORS                PIC X. 
01  TIRTIAR-TEXT-LEN              PIC X. 
01  GLOBDATA                      size 3645 bytes.