SNAX/HLS Application Programming Manual

Sample Customization Routines
Customization
104707 Tandem Computers Incorporated 7–27
USEREXIT^ENABLE
Routine
?SOURCE hlsddt(UserExits)
!---------------------------------------------------------
PROC SnaxHLS^UserExit^Enable(InBlock, OutBlock, Allocator);
INT .EXT InBlock (SNAXHLS^UserExit^In^Block);
INT .EXT OutBLock (SNAXHLS^UserExit^Out^Block);
INT(32) PROC Allocator;
BEGIN
!
! Note that the OutBlock is guaranteed preset at call to
! xhave all defaulted values.
!
! For Solution 1, we enable SNAX^IN.
! For solution 2, we enable SNAX^OUT.
!
! Then set the bytesize parameter to confirm the data.
!
!---------------------------!
! For solution #1 only !
!---------------------------!
OutBlock.EnableMask := %H2000;
!---------------------------!
! For solution #2 only !
!---------------------------!
OutBlock.EnableMask := %H1000;
!---------------------------!
! For both solutions !
!---------------------------!
OutBlock.ByteSize := $LEN(SNAXHLS^UserExit^Out^Block);
END ! of proc SNAXHLS^UserExit^Enable !;