Previous Topic: TIRSECVX—Server Client Security Validation ExitNext Topic: Purpose

z/OS User Exits › z/OS Server User Exits—CICS › TIRSECVX—Server Client Security Validation Exit › Source Code

Source Code

The sample source for this exit can be found in CA Gen CEHBSAMP library, in member TIRSECV. 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 ENHANCED-SECURITY-FLAG 				PIC X.
01 TIRSECV-CMCB.
03 CLIENT-USERID 					PIC X(64).
03 CLIENT-PASSWORD 					PIC X(64).
03 SECURITY-TOKEN-LEN 				PIC 9(09) COMP.
03 SECURITY-TOKEN-PTR POINTER.
03 TIRSECV-TRANCODE 					PIC X(08).
03 TIRSECV-RETURN-CODE 				PIC X(02).
03 TIRSECV-FAILURE-MSG 				PIC X(80).