XOBVLL ;MJK/ALB - VistALink Listen and Spawn Code ; 07/27/2002 13:00
Source file <XOBVLL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
START(SOCKET) | ; -- start listener
|
|
UCX | ; -- VMS TCPIP (UCX) multi-thread entry point
; -- Called from VistALink .com files |
|
SPAWN | ; -- spawned process
|
|
NXTCALL | ; -- do next call
|
|
NXTCALLQ | ; -- exit
|
|
SYSERR | ; -- send system error message
; -- If we get an error in the error handler just Halt |
|
ERROR(XOBEC,XOBMSG,XOBPORT) | ; -- send error message
|
|
KILL | ; -- new VistALink variables and then do big KILL
|