z/OS User Exits › z/OS Blockmode User Exits—IMS › TIRSYSIX—System ID Exit › Source Code

Source Code

The source code for this exit is in CA Gen CEHBSAMP library in member TIRTSYSX. The sample exit provided is written in COBOL and uses standard OS Linkage.

The Linkage Parameter list used by TIRSYSIX is as follows:

LINKAGE SECTION.                  
01  RUNTIME-PARM1        PIC X.   
01  RUNTIME-PARM2        PIC X.   
01  LOCAL-SYSTEM-ID      PIC X(8)