SNAX/HLS Application Programming Manual

Sample Customization Routines
Customization
104707 Tandem Computers Incorporated 7–31
USEREXIT^VRFY^
BIND^RSP
The following sample routine illustrates the use of the
SNAXHLS^USEREXIT^VRFY^BIND^RSP customization routine.
The user-exit routine rejects all BIND requests with a sense data of %h0821, if the PLU
application name does not match one of the possible values for this session (identified
by the profile name).
PROC SNAXHLS^USEREXIT^VRFY^BIND^RSP (wsdar,
sessid,
profile^name,
bind^rq,
bind^rq^len,
bind^rsp,
bind^rsp^len,
sense);
INT (32) wsadr;
INT sessid;
STRING .EXT profile^name;
STRING .EXT bind^rq (bind^template);
INT bind^rq^len,
STING .EXT bind^rsp (bind^template),
INT .EXT bind^rsp^len;
INT .EXT sense;
BEGIN
INT plu^name^len, bind^crypt^len;
STRING .plu^name [0:16]; !Primary LU name
STRING .EXT bind^rq^ptr := @bind^rq;
bind^crypt^len := bind^rq.cryptography^options.<12:15>;
plu^name^len := bind^rq^ptr [27+bind^crypt^len];
plu^name^len := bind^rq^ptr [28+bind^crypt^len] FOR
plu^name^len;
IF ((profile^name = [“_PSLUQ”]) AND
(plu^name = [“CICS1”] OR plu^name = [“CICS2] OR
plu^name = [“P4DEFNPO”])) THEN
sense := sense [1] := 0
ELSE
BEGIN
sense := %h0821;
sense [1] := 0;
END;
END;