z/OS User Exits › z/OS Server User Exits—CICS › TIRPTOKX—Server-to-Server Security Token CA Generation Exit › Source Code

Source Code

The sample source for this exit can be found in CA Gen CEHBSAMP library, in member TIRPTOKX. 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).
01  RUNTIME-PARM2                  		PIC X(01).
01  GLOBDATA       					size 3645 bytes.
01  TEMP-BUFFER                    		PIC X(32768).
01  USE-SECR-FLAG                  		PIC S9(04) COMP.
01  TOKEN-SIZE                     		PIC S9(09) COMP.
01  FAIL-MESSAGE                   		PIC X(75).