The source code for this exit is in CA Gen CEHBSAMP library in member TIRCSYSX. The sample exit provided is written in COBOL and uses standard OS Linkage.
The Linkage Parameter list used by TIRSYSIX is as follows:
01 LOCAL-SYSTEM-ID PIC X(8).
01 GLOBDATA size 3645 bytes
This exit contains CICS API calls, which require it to be processed by the Translator. The Translator automatically includes data structures for DFHEIBLK and DFHCOMMAREA in the place of RUNTIME-PARM1 and RUNTIME-PARM2 thus RUNTIME-PARMx are not specified.
|
Copyright © 2015 CA Technologies.
All rights reserved.
|
|