z/OS User Exits › z/OS Server User Exits—CICS › TIRDCRYX—Server Decryption Exit › Source Code

Source Code

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

03  DATA-BUFFER-PTR                   	POINTER.              
03  BUFFER-SIZE                       	PIC 9(09) COMP.       
03  DECRYPTION-MAX-SIZE              	PIC 9(09) COMP.       
03  TIRDCRYP-RETURN-CODE          		PIC X(02).           
03  FAILURE-MSG                       	PIC X(80).