Previous Topic: The TSSPGM01 ExitNext Topic: Sample Program Definitions

Programmable Interfaces › CA Top Secret CICS Exits › The TSSPGM02 Exit

The TSSPGM02 Exit

The TSSPGM02 exit is enabled by defining the PROGRAM=TSSPGM02 to your CICS environment. CA Top Secret CICS invokes the exit by issuing:

EXEC 	CICS LINK
     	PROGRAM
     	COMMAREA
    	LENGTH
	RESP

TSSPGM02 is invoked for password prompts that CA Top Secret CICS does not support. The exit program must be written in Command‑Level Assembler. The COMM area layout is:

WPARMLST DSECT                 PARAMETER LIST.
WMGAREA  DS    0XL79           MESSAGE AREA
WMSGLN   DS    H               MESSAGE LENGTH.
WPFLAG2  DS    X               FLAGS                       
WPPHRASE EQU   X'80'           PASSWORD PHRASE ACTIVE     
         DS    X               RESERVED. 
WMESSAGE DS    CL75            MESSAGE AREA.
WPFLAG   DS    0XL1            EXIT REQUEST FLAG
WPSEND   EQU   X'FF'           PSEUDO-CONVERSIONAL SEND
WPRECV   EQU   X'FE'           PSEUDO-CONVERSIONAL RECEIVE
WPPWAREA DS    0XL8            PASSWORD AREA.
WPSWD    DS    CL8             PASSWORD.
WPSWDPHR DS    CL100           PASSWORD PHRASE             
WPLSTLN  EQU   *-WPARMLST      PARAMETER LIST LENGTH

Note: If running CICS/ESA, this exit must run AMODE(31).

WMGAREA

Contains the password prompt message.

WPPWAREA

The field that the TSSPGM02 Exit program places the user's password in for reverification.

WPSWDPHR

The field that the TSSPGM02 Exit program places the user's password phrase in for reverification.

Note: If using password phrases, add the password phrase to the WPSWDPHR field, not the WPSWD field.

Passwords

If you are using the TSSPGM02 Password Prompt Exit, be aware that this interface has been modified to support use in pseudo‑conversational mode. Installations that use this exit program will need to modify their code. A new flag has been added in the incoming COMMAREA to indicate to the program whether it should issue a SEND or RECEIVE or a conversational prompt. A sample exit program (TSSPGM02) resides in CAI.AAKOSRC0. A sample CICS map and the JCL to assemble and link it reside in CAI.SAMPJCL (TSSMAP2 and TSSJCLX2).

If you use mixed case passwords, and you set PCLOCK=YES in your CICS facility, alter the password input field TSSPW in map TSSMAP2 to CASE=MIXED in the DFHMDF macro.