z/OS User Exits › z/OS Server User Exits—CICS › TIRSECRX—Security Interface Exit › Source Code

Source Code

The sample source for this exit can be found in CA Gen CEHBSAMP library, in member TIRSECRX. 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  TIRSECR-CMCB.                           

03  TIRSECR-USERID            		PIC X(8). 
03  TIRSECR-TRANCODE          		PIC X(8). 
03  TIRSECR-TERMINAL-ID      		PIC X(8). 
03  TIRSECR-SYSTEM-ID         		PIC X(8). 
03  TIRSECR-LOAD-MODULE       		PIC X(8). 
03  TIRSECR-PSTEP-NAME                	PIC X(32).
03  TIRSECR-DIALECT           		PIC X(32).
03  TIRSECR-RETURN-CODE       		PIC XX.   
03  TIRSECR-FAILURE-MSG       		PIC X(80).

01 GLOBDATA 					size 3645 bytes.