SNAX/HLS Application Programming Manual

Sample Customization Routines

Customization

7–30 104707 Tandem Computers Incorporated

USEREXIT^SNAX^OUT

Routine

PROC SNAXHLS^USEREXIT^SNAX^OUT (wsadr,

sessid,

snu,

vlen);

INT(32) wsadr;

INT sessid;

STRING .EXT snu;

INT .EXT vlen;

BEGIN

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

! For solution #2 only !

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

! The RUs that we change from exception to definite

! responses are isolated below:

! The isolation insists that the bit configuration

! in the RH be as

! 000x xxx1 (RRI=0,CTGY=0,ECI=1)

IF (snu[6] LAND %HE1) = %H01 THEN snu[7].

:= 0;

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

! For both solutions !

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

END;