z/OS User Exits › z/OS Blockmode User Exits—TSO › TIRDLCTX—User Dialect Exit › Source Code

Source Code

The source code for this exit is in the CA Gen CEHBSAMP library member TIRDLCTX. 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  TIRDLCT-CMCB.                           
    03  TIRDLCT-USERID            		       PIC X(8). 
    03  TIRDLCT-TERMINAL-ID      		       PIC X(8). 
    03  TIRDLCT-SYSTEM-ID         		       PIC X(8). 
    03  TIRDLCT-RETURN-DIALECT          			PIC X(8).
01  GLOBDATA 					       size 3645 bytes.