XOBVLL ;MJK/ALB - VistALink Listen and Spawn Code ; 07/27/2002 13:00
Source file <XOBVLL.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 5 | ($$EC,LOGRSRC,SETNM,SHARELIC)^%ZOSV APPERROR^%ZTER ($$DT,$$NOW)^XLFDT $$CNV^XLFUTL KILL^XUSCLEAN |
| VistALink | 5 | ($$GETASTO,$$GETDELTA,$$GETRATE,ERROR)^XOBVLIB $$CACHE^XOBVRH ($$EN,RMERR)^XOBVRM ($$READ,FINAL,INIT)^XOBVSKT (START,UCX)^XOBVTCP |
| Foundations | 2 | ($$GETDUZ,KILL,SETVI)^XOBUZAP0 ($$GETDESC,$$GETREF)^XOBUZAP1 |
| VA FileMan | 1 | $$EZBLD^DIALOG |
| VistALink Security | 1 | CLEAN^XOBSCAV1 |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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
|
| Name | Field # of Occurrence |
|---|---|
| $$EC^%ZOSV | NXTCALL+48, SYSERR+3 |
| LOGRSRC^%ZOSV | SPAWN+21, SPAWN+47 |
| SETNM^%ZOSV | SPAWN+31 |
| SHARELIC^%ZOSV | SPAWN+18 |
| APPERROR^%ZTER | ERROR+19, ERROR+34 |
| $$EZBLD^DIALOG | NXTCALL+48, SYSERR+3 |
| $$DT^XLFDT | NXTCALL+8 |
| $$NOW^XLFDT | NXTCALL+54 |
| $$CNV^XLFUTL | SPAWN+31 |
| CLEAN^XOBSCAV1 | NXTCALL+42, ERROR+20 |
| $$GETDUZ^XOBUZAP0 | NXTCALL+11 |
| KILL^XOBUZAP0 | SPAWN+35, SPAWN+41 |
| SETVI^XOBUZAP0 | NXTCALL+15 |
| $$GETDESC^XOBUZAP1 | NXTCALL+15 |
| $$GETREF^XOBUZAP1 | SPAWN+34 |
| $$GETASTO^XOBVLIB | NXTCALL+27 |
| $$GETDELTA^XOBVLIB | NXTCALL+24 |
| $$GETRATE^XOBVLIB | NXTCALL+24 |
| ERROR^XOBVLIB | ERROR+25 |
| $$CACHE^XOBVRH | SPAWN+24 |
| $$EN^XOBVRM | NXTCALL+52 |
| RMERR^XOBVRM | SPAWN+25 |
| $$READ^XOBVSKT | NXTCALL+38 |
| FINAL^XOBVSKT | SPAWN+44 |
| INIT^XOBVSKT | SPAWN+28 |
| START^XOBVTCP | START+1 |
| UCX^XOBVTCP | UCX+2 |
| KILL^XUSCLEAN | KILL+2 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("XOBVLL" | NXTCALL+33 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIQUIET | NXTCALL+7~* |
| DT | NXTCALL+8* |
| DTIME | NXTCALL+8* |
| DUZ | NXTCALL+13, NXTCALL+42, ERROR+20 |
| IO | SPAWN+4 |
| IO("IP" | NXTCALL+14 |
| SOCKET | START~, START+1 |
| U | SPAWN+5*, SPAWN+25, NXTCALL+8* |
| X | SPAWN+1~, SPAWN+24*, SPAWN+25, NXTCALL+1~ |
| XOBCMREF | SPAWN+1~, SPAWN+34*, SPAWN+35, SPAWN+41, NXTCALL+11, NXTCALL+15, KILL+1~ |
| XOBDAT | ERROR+1~, ERROR+25 |
| XOBDAT("ERRORS" | ERROR+11*, ERROR+12*, ERROR+13*, ERROR+14*, ERROR+15* |
| XOBDAT("MESSA | GE TYPE" , ERROR+10* |
| XOBDATA | NXTCALL+1~, NXTCALL+38, NXTCALL+52 |
| XOBDUZ | NXTCALL+12~, NXTCALL+13*, NXTCALL+15 |
| XOBEC | ERROR~, ERROR+11, ERROR+19, ERROR+28 |
| XOBFIRST | NXTCALL+1~, NXTCALL+30*, NXTCALL+38 |
| XOBHDLR | SPAWN+1~, SPAWN+24, NXTCALL+18*, NXTCALL+38, NXTCALL+52, KILL+1~ |
| XOBIP | NXTCALL+12~, NXTCALL+14*, NXTCALL+15 |
| XOBLASTR | SPAWN+1~, SPAWN+8*, NXTCALL+54*, KILL+1~ |
| XOBMSG | ERROR~, ERROR+15, ERROR+18, ERROR+19, ERROR+34 |
| XOBNULL | NXTCALL+48, KILL+1~ |
| XOBOK | NXTCALL+1~, NXTCALL+38*, NXTCALL+41, NXTCALL+52*, KILL+1~ |
| XOBOS | KILL+1~ |
| XOBPORT | SPAWN+1~, SPAWN+4*, SPAWN+18, NXTCALL+37, NXTCALL+48, SYSERR+3, ERROR~, ERROR+24, KILL+1~ |
| XOBREAD | NXTCALL+1~, NXTCALL+21*, NXTCALL+38 |
| XOBRL | NXTCALL+1~ |
| XOBROOT | NXTCALL+1~, NXTCALL+33*, NXTCALL+34, NXTCALL+38, NXTCALL+52, NXTCALL+56 |
| XOBSTOP | SPAWN+1~, SPAWN+3*, SPAWN+38, NXTCALL+38, NXTCALL+41, NXTCALL+43*, NXTCALL+48*, KILL+1~ |
| XOBSYS | KILL+1~ |
| XOBSYS("DUZ" | NXTCALL+13 |
| XOBSYS("ENV" | NXTCALL+27 |
| XOBTO | NXTCALL+1~, NXTCALL+24*, NXTCALL+27*, NXTCALL+38 |
| Name | Field # of Occurrence |
|---|---|
| $T(SHARELIC^%ZOSV | SPAWN+18 |
