The source code for this exit is in CA Gen CEHBSAMP library in member TIRIUSRX. The sample exit provided is written in COBOL and uses standard OS Linkage.
The Linkage Parameter list used by TIRIUSRX is as follows:
01 IO-PCB.
03 IO-PCB-LTERM PIC X(8). 03 FILLER PIC X(2). 03 IO-PCB-STATUS PIC X(2). 03 IO-PCB-INPUT-PREF.
05 IO-PCB-DATE PIC S9(7) COMP SYNC. 05 IO-PCB-TIME PIC S9(7) COMP SYNC. 05 IO-PCB-MSG-SEQ PIC S9(7) COMP.
03 IO-PCB-MAPNAME PIC X(8). 03 IO-PCB-USER-ID.
05 IO-PCB-USER-ID-C1 PIC X. 05 FILLER PIC X(7).
01 ALT-IO-PCB PIC X. 01 FILLER-PARM PIC X. 01 TIRUSRID-PARM.
05 IET-USER-ID PIC X(8). 05 IET-USER-ID2 PIC X(8).
|
Copyright © 2015 CA Technologies.
All rights reserved.
|
|