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

Source Code

The source code for the version of the exit used by Batch application is in CA Gen CEHBSAMP library, in member TIRITIAX. 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  TIRTIAR-WORKAREA		PIC X.
01  GLOBDATA 			structure size 3645 bytes.