z/OS User Exits › z/OS Server User Exits—CICS › TIRNCRYX—Server Encryption Exit › Source Code

Source Code

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

03  DATA-BUFFER-PTR                   	POINTER.               
03  BUFFER-SIZE                       	PIC 9(09) COMP.        
03  ENCRYPTION-MAX-SIZE              	PIC 9(09) COMP.
03  TIRNCRYP-TRANCODE                  PIC X(08).
03  CLIENT-USERID                                PIC X(64).
03  NEXT-LOCATION-PTR                     POINTER.        
03  TIRNCRYP-RETURN-CODE          	PIC X(02).  
03  FAILURE-MSG                       	PIC X(80).