XWBM2MT ;OIFO-Oakland/REM - M2M Broker Example ;05/16/2002 14:09
Source file <XWBM2MT.m>
Package | Total | Call Graph |
---|---|---|
RPC Broker | 2 | ($$CALLRPC,$$CLOSE,$$CONNECT,$$PARAM,$$SETCONTX,PRE)^XWBM2MC $$CHARCHK^XWBUTL |
Kernel | 1 | HOME^%ZIS |
VA Fileman | 1 | ^DIR |
Name | Comments | DBIA/ICR reference |
---|---|---|
REFRP(RET,PARAM) | ;Remote procedure for value passed by reference
|
|
OPEN(PORT,IP,AV) | ;Opens connection to server.
|
|
LARRYRP(XWBY,XWBARR,XWBSTR) | ;Remote procedure for local array
|
|
WP | ;Example of WP
|
|
CLEAN | ;
|
|
CLOSE | ;Close the connection.
|
|
CLNTMP | ;Kills the TMP("XWB*"
|
|
EN2 | ;Entry point that hard sets IP,PORT,AV,CONTEXT,RPC.
|
|
ECHOSTR | ;Example of Echo String
|
|
EXIT | ||
LARRSTR | ;Example of passing Array (mult) and String.
|
|
EN3(VAL) | ;Just runs RPC; need to OPEN, SETCONTX then CLOSE. Or just call after
; connection has been done. **ONLY WORKS FOR TESTING IN DEV,XWB** |
|
EN1(CONTX,RPCN,PORT,IP,AV) | ;
|
|
USERIP | ;Get IP,Port,AV from user for connection.
|
|
EN(CONTX,RPCN) | ;Entry point to hard code IP,PORT,AV
|
|
CLEARP | ;Clear the PARAMS array
|
|
REF | ;Example of passing a value by reference
|
|
LARRY | ;Example of passing Array (mult).
|
|
SETPARAM(INDEX,TYPE,VALUE) | ;Set a Params entry
|
Name | Field # of Occurrence |
---|---|
HOME^%ZIS | EN1+12, EN1+15, EN1+16, EN1+21, EN1+23 |
^DIR | ECHOSTR+4, REF+4, USERIP+4, USERIP+7, USERIP+10, USERIP+13, USERIP+17 |
$$CALLRPC^XWBM2MC | EN1+23, EN3+8 |
$$CLOSE^XWBM2MC | CLOSE+1 |
$$CONNECT^XWBM2MC | OPEN+3 |
$$PARAM^XWBM2MC | EN3+6 |
$$SETCONTX^XWBM2MC | EN1+16 |
PRE^XWBM2MC | CLEARP+2 |
$$CHARCHK^XWBUTL | ECHOSTR+5, REF+5 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
RPC Name | Call Tags |
---|---|
XWB M2M EXAMPLE LARRY | LARRYRP |
XWB M2M EXAMPLE REF | REFRP |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("XWBM2M" | CLNTMP+1!, CLNTMP+2! |
^TMP("XWBM2ME" | CLNTMP+2! |
^TMP("XWBM2ML" | CLNTMP+2! |
^TMP("XWBM2MRL" | CLNTMP+1! |
^TMP("XWBM2MRPC" | CLNTMP+1! |
^TMP("XWBM2MTEST" | EN3+3*, EN3+4*, EN3+5, EN3+9! |
^TMP("XWBM2MVLC" | CLNTMP+1! |
Name | Line Occurrences |
---|---|
CLEAN | ECHOSTR+11, WP+7, LARRY+11, LARRSTR+13, REF+11, CLOSE+3 |
CLEARP | EN1+19, ECHOSTR+6, WP+3, LARRY+3, LARRSTR+3, REF+6 |
CLOSE | EXIT |
EN | ECHOSTR+8, WP+4, LARRY+8, LARRSTR+10, REF+8 |
EN1 | EN+2, EN2+7, ECHOSTR+10, WP+6, LARRY+10, LARRSTR+12, REF+10 |
EXIT | EN1+16 |
OPEN | EN1+14 |
SETPARAM | EN1+20, ECHOSTR+7, REF+7 |
USERIP | ECHOSTR+9, WP+5, LARRY+9, LARRSTR+11, REF+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AV | EN+1*, EN+2, EN1~, EN1+14, EN2+2~, EN2+5*, EN2+7, OPEN~, OPEN+3 |
CONTX | EN~, EN+2, EN1~, EN1+13, EN1+16, EN2+2~, EN2+6*, EN2+7 |
DIR | ECHOSTR+3!, REF+3!, USERIP+3!, USERIP+6!, USERIP+9!, USERIP+12!, USERIP+16! |
DIR("?" | USERIP+9* |
DIR("A" | ECHOSTR+3*, REF+3*, USERIP+3*, USERIP+6*, USERIP+9*, USERIP+12*, USERIP+16* |
DIR("B" | ECHOSTR+3*, REF+3*, USERIP+3*, USERIP+6*, USERIP+12* |
DIR(0 | ECHOSTR+3*, REF+3*, USERIP+3*, USERIP+6*, USERIP+9*, USERIP+12*, USERIP+16* |
>> DIRUT | ECHOSTR+4, REF+4, USERIP+4, USERIP+7, USERIP+10, USERIP+13, USERIP+17 |
DUZ | EN1+11 |
I | EN1+1~, EN1+24* |
INDEX | SETPARAM~, SETPARAM+1, SETPARAM+2 |
IO | EN1+12, EN1+15, EN1+16, EN1+21, EN1+23 |
IP | EN+1*, EN+2, EN1~, EN1+14, EN2+2~, EN2+5*, EN2+7, OPEN~, OPEN+3 |
PARAM | REFRP~, REFRP+1 |
PORT | EN+1*, EN+2, EN1~, EN1+14, EN2+2~, EN2+5*, EN2+7, OPEN~, OPEN+3 |
REQ | EN1+10!, CLEAN+1! |
REQ( | EN1+24 |
RES | EN3+2~, EN3+7*, EN3+8 |
RET | REFRP~ |
RET(0 | REFRP+1* |
RMFLAG | EN1+18, EN1+26!, EN2+2~, EN2+3* |
ROOT | EN3+2~, EN3+5*, EN3+6 |
RPC | EN1+10!, EN3+2~, EN3+7*, EN3+8 |
RPCN | EN~, EN+2, EN1~, EN1+22, EN1+23, EN2+2~, EN2+6*, EN2+7 |
STATE | EN1+10! |
STR | EN3+2~ |
TYPE | SETPARAM~, SETPARAM+1 |
U | EN1+11* |
VAL | EN3~, EN3+4 |
VALUE | SETPARAM~, SETPARAM+2 |
X | CLOSE+1*, CLOSE+4! |
XWBARR | LARRYRP~ |
XWBARR( | LARRYRP+5, LARRYRP+7 |
XWBAV | ECHOSTR+1~, ECHOSTR+2*, ECHOSTR+10, WP+1~, WP+2*, WP+6, LARRY+1~, LARRY+2*, LARRY+10, LARRSTR+1~ , LARRSTR+2*, LARRSTR+12, REF+1~, REF+2*, REF+10, USERIP+11* |
XWBCONTX | USERIP+14*, CLEAN+1! |
>> XWBDBUG | CLEARP+1 |
XWBFLAG | ECHOSTR+8!, WP+4!, LARRY+8!, LARRSTR+10!, REF+8! |
XWBIP | ECHOSTR+1~, ECHOSTR+2*, ECHOSTR+10, WP+1~, WP+2*, WP+6, LARRY+1~, LARRY+2*, LARRY+10, LARRSTR+1~ , LARRSTR+2*, LARRSTR+12, REF+1~, REF+2*, REF+10, USERIP+5* |
XWBLINE | LARRYRP+1~, LARRYRP+3*, LARRYRP+4*, LARRYRP+6*, LARRYRP+7 |
XWBOPEN | EN1+27, CLOSE+4! |
XWBPARMS | CLEARP+1! |
XWBPARMS("PARAMS" | LARRY+4*, LARRY+5*, LARRY+6*, LARRY+7*, LARRSTR+4*, LARRSTR+5*, LARRSTR+6*, LARRSTR+7*, LARRSTR+8*, LARRSTR+9* , SETPARAM+1*, SETPARAM+2* |
XWBPORT | ECHOSTR+1~, ECHOSTR+2*, ECHOSTR+10, WP+1~, WP+2*, WP+6, LARRY+1~, LARRY+2*, LARRY+10, LARRSTR+1~ , LARRSTR+2*, LARRSTR+12, REF+1~, REF+2*, REF+10, USERIP+8* |
>> XWBQUIT | ECHOSTR+9, WP+5, LARRY+9, LARRSTR+11, REF+9, USERIP+2*, USERIP+4*, USERIP+7*, USERIP+10*, USERIP+13* , USERIP+17* |
XWBREF | REF+1~, REF+5*, REF+7 |
>> XWBREPFL | USERIP+15 |
>> XWBREPS | USERIP+18* |
>> XWBSTATE("M2M" | EN1+15, OPEN+3*, CLOSE+2* |
XWBSTR | ECHOSTR+1~, ECHOSTR+5*, ECHOSTR+7, WP+1~, LARRYRP~, LARRYRP+4, REF+1~ |
XWBX | LARRYRP+1~, LARRYRP+5*, LARRYRP+7 |
XWBY | LARRYRP~ |
XWBY( | LARRYRP+7* |
XWBY(1 | LARRYRP+4* |
Y | ECHOSTR+1~, ECHOSTR+5, REF+1~, REF+5, USERIP+1~, USERIP+5, USERIP+8, USERIP+11, USERIP+14, USERIP+18 |