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
|
