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

Source Code

The DB2 Message Exit is used by all applications targeting DB2 database on z/OS. The source code for this exit’s TSO application is in CA Gen CEHBSAMP library, in member TIRITIAX. The sample exit provided is written in COBOL and uses standard OS Linkage.

LINKAGE SECTION

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 				size 3645 bytes.