The sample source for this exit can be found in CA Gen CEHBSAMP library, in member TIRALLOX. 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 GLOBDATA size 3645 bytes 01 SERVER-CONNECTION-DATA PIC X(256). 01 ASYNCH-FLAG PIC X(01). 01 PSTEP-TRANCODE PIC X(08). 01 PSTEP-LOADMOD PIC X(08). 01 ALLOCATE-PARTNER-NAME PIC X(08). 01 ALLOCATE-PROFILE-NAME PIC X(08). 01 WAIT-TRAN-TIMEOUT PIC S9(7) COMP-3. 01 MAIN-OR-AUX-STORAGE PIC X(01). 01 LOCAL-RMT-FLAG PIC X(01). 01 TIRALLOX-RETURN PIC X(02). 01 FAIL-MESSAGE PIC X(75).
|
Copyright © 2015 CA Technologies.
All rights reserved.
|
|