The source code for this exit is in CA Gen CEHBSAMP library in member TIRCUSRX. The sample exit provided is written in COBOL and uses standard OS Linkage.
The Linkage Parameter list used by TIRUSRIX is as follows:
01 FILLER-PARM PIC X. 01 TIRUSRID-PARM.
05 IET-USER-ID PIC X(8). 05 IET-USER-ID2 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.
|
|