The sample source for this exit can be found in CA Gen CEHBSAMP library, in member TIRELOGX. The sample exit provided is written in COBOL and uses standard OS Linkage.
The Linkage Parameter list used by this exit is as follows:
01 RUNTIME-PARM1 PIC X. 01 RUNTIME-PARM2 PIC X. 01 ELOG-EXIT-PARM-LIST. 03 ELOG-FAIL-TYPE PIC X. 03 ELOG-SQLCA.
05 ELOG-SQLCA-ADR PIC S9(9) COMP. 05 ELOG-SQLCA-PTR REDEFINES ELOG-SQLCA-ADR POINTER.
03 ELOG-GLOBDATA.
05 ELOG-GLOBDATA-ADR PIC S9(9) COMP. 05 ELOG-GLOBDATA-PTR REDEFINES ELOG-GLOBDATA-ADR POINTER.
03 ELOG-ERROR.
05 ELOG-NUMBER-OF-LINES PIC S9(9) COMP. 05 ELOG-ERROR-TEXT PIC X(80) OCCURS 31.
03 ELOG-ERROR-TOKEN.
05 ELOG-ERROR-TOKEN-ADR PIC X(4).
05 ELOG-ERROR-TOKEN-PTR REDEFINES ELOG-ERROR-TOKEN-ADR POINTER.
|
Copyright © 2015 CA Technologies.
All rights reserved.
|
|