SNAX/HLS Application Programming Manual

ManualsBrandsHP ManualsServerHP NonStop G-Series

Sample Customization Routines

Customization

104707 Tandem Computers Incorporated 7–29

USEREXIT^SNAX^IN

Routine

PROC SNAXHLS^USEREXIT^SNAX^IN (wsadr,

sessid,

snu,

vlen);

INT(32) wsadr;

INT sessid;

STRING .EXT snu;

INT .EXT vlen;

BEGIN

!---------------------------!

! For solution #1 only !

!---------------------------!

!

! To recognize a BIND command, we must test several

! flags, summarized as follows:

! rh = 011x xxxx, and request code = %H31

IF (snu[6] LAND %HE0) = %h60 AND snu[9] = %H31

THEN snu[14].

10:11

:= 2;

!---------------------------!

! For both solutions !

!---------------------------!

END;