XMC1 ;ISC-SF/GMB-Script Interpreter ;07/23/2002 10:15
Source file <XMC1.m>
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 |
---|---|---|
ENT | ;
; Expects as input: ; XMINST Domain IEN ; XMSITE Domain name ; XMB("SCR IEN") Script IEN |
|
IN | ;To |1| from |2| beginning |3|
|
|
USESCR(XMINST,XMB) | ; Function returns 1 if we should use the existing
; script, or 0 if we should build a TCP/IP script. |
|
EN(XMINST,XMSITE,XMSCRN,XMROOT) | ;
|
|
INT(X,XMCI) | ; Interpret the script line
; X script line |
|
C | ; Call a subroutine
|
|
DI | ; Dial phone
|
|
D | ; Dial numbers sucessively (Strip all punctuation not in XMSTRIP string)
|
|
DIAL(XMNUMS) | ;
|
|
DIALTRY(XMNUM) | ;
|
|
E | ; Set error message to be displayed.
|
|
F | ; Flush buffer
|
|
H | ; Hang up phone
|
|
L | ; Look for string
|
|
M | ; Send mail
|
|
O | ; Open device, protocol, and host
|
|
FLUSH | ; Flush buffer
|
|
S | ; Send line
|
|
INDIR(XMC1) | ; GET INDIRECT REFERENCE
|
|
T | ;
|
|
W | ; Wait a number of seconds
|
|
X | ; Execute a line of code
|
|
ERTRAN(XMDIALOG,XM1,XM2,XM3) | ;
|
|
DOTRAN(XMDIALOG,XM1,XM2,XM3) | ;
|
|
TRAN | ;
|
|
RESUME | ; Resume script processing
|
Name | Field # of Occurrence |
---|---|
^%ZIS | RESUME+3 |
$$NEWERR^%ZTER | ENT+5, EN+1 |
$$EZBLD^DIALOG | DI+3, DOTRAN+3, RESUME+7 |
^DIC | C+3 |
FILE^DIE | O+11 |
^DIR | DI+4, RESUME+9 |
$$FMTE^XLFDT | IN+1 |
$$UP^XLFSTR | INT+4 |
LOOK^XMC1A | L+1 |
CLOSE^XMC1B | IN+20 |
OPEN^XMC1B | O+2 |
$$RTRAN^XMCU1 | S+7 |
GET^XMCXT | ENT+10 |
BUFLUSH^XML | F+2 |
ENTER^XMS | M+2 |
STAT^XMTDR | ENT+11 |
Name | Line Occurrences |
---|---|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^XMB(4.6 - [#4.6] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("TRAP" | ENT+6, EN+2 |
^DIC(3.4 - [#3.4] | IN+10 |
^DIC(4.2 - [#4.2] | ENT+13, ENT+16, USESCR+6, RESUME+5, RESUME+6 |
^TMP("XMC" | TRAN+6* |
^TMP("XMY" | ENT+7! |
^TMP("XMY0" | ENT+7! |
^XMB("NETNAME" | IN+1 |
^XMB(1 - [#4.3] | IN+7, USESCR+4 |
^XMB(4.6 - [#4.6] | IN+13 |
^XMBS(4.2999 - [#4.2999] | ENT+11 |
Name | Line Occurrences |
---|---|
$$USESCR | IN+3 |
@( | INT+8 |
C | IN+15 |
DIAL | D+1 |
DIALTRY | DIAL+3 |
DOTRAN | IN+1, IN+2, IN+9, IN+18, IN+19, C+1, C+7, C+11, DIALTRY+5, E+2 , F+1, H+1, M+1, M+3, O+1, O+3, O+4, O+6, S+5, S+6 , T+3, W+1, X+1, ERTRAN+1, RESUME+11 |
EN | IN+4, C+8 |
ERTRAN | ENT+14, INT+6, C+5, C+10, DIALTRY+6, DIALTRY+8, INDIR+3, X+5 |
FLUSH | O+5 |
IN | ENT+15, RESUME+14 |
INDIR | S+4 |
INT | EN+5 |
O | IN+12 |
TRAN | IN+17 |
Name | Field # of Occurrence |
---|---|
^( | RESUME+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DIC | C+2~, C+3* |
DIC(0 | C+3* |
DIR | DI+1~, RESUME+1~ |
DIR("A" | DI+3*, RESUME+7* |
DIR("B" | RESUME+8* |
DIR(0 | DI+2*, RESUME+6* |
>> DIRUT | DI+4, RESUME+9 |
DT | IN+1 |
>> ER | ENT+9*, IN+12, IN+17, IN+19, EN+5, INT+3*, INT+9*, C+9, DIAL+3, DIALTRY+4* , DIALTRY+8, M+3, O+2, O+3, S+1, S+4, X+3, X+5*, ERTRAN+2* |
>> ER("MSG" | IN+17, C+10, E+1*, E+2, M+3, ERTRAN+3* |
I | RESUME+1~, RESUME+4*, RESUME+5* |
IO | O+10, TRAN+11, RESUME+13 |
IO(0 | TRAN+8 |
>> IOT | TRAN+11 |
>> POP | RESUME+3 |
U | IN+2, IN+4, IN+8, IN+10, IN+13, USESCR+2, USESCR+5, C+6 |
X | ENT+6*, IN+6~, IN+10*, IN+11, IN+13*, IN+14, EN+2*, INT~, INT+4*, INT+5 , INT+6, INT+7, INT+8, C+1, C+2~, C+3*, C+5, DI+1~, O+1, RESUME+1~ |
>> XM | TRAN+7 |
XM1 | ERTRAN~, ERTRAN+1, DOTRAN~, DOTRAN+2 |
XM2 | ERTRAN~, ERTRAN+1, DOTRAN~, DOTRAN+2 |
XM3 | ERTRAN~, ERTRAN+1, DOTRAN~, DOTRAN+2 |
XMAUDIT | TRAN+1~, TRAN+3*, TRAN+6, TRAN+9 |
XMB | IN+3, USESCR~ |
XMB("SCR IEN" | , IN+4, USESCR+6, RESUME+5, RESUME+6 |
XMB("SCR REC" | , IN+2, IN+4, IN+8, USESCR+2 |
>> XMBFLUSH | FLUSH+1 |
>> XMC("AUDIT" | TRAN+6* |
>> XMC("DEVICE" | O+6 |
>> XMC("SHOW TRA | N" , ENT+9*, S+6 |
>> XMC("TALKMODE" | ENT+13, IN+16, T+1 |
XMC1 | IN+6~, IN+11*, IN+14*, INT+2~, INT+7*, C+3, DI+1~, DI+5*, D+1, E+1 , S+1, S+3, S+4, S+5, S+6, S+7*, S+8, INDIR~, INDIR+2, INDIR+4* , W+1, W+2, X+1, X+2, X+4 |
XMCI | EN+3~, EN+4*, EN+5*, INT~, INT+6, T+2*, RESUME+2*, RESUME+5, RESUME+8, RESUME+10* , RESUME+11, RESUME+12* |
>> XMDIAL | DIALTRY+6, DIALTRY+7 |
XMDIALOG | ERTRAN~, ERTRAN+1, DOTRAN~, DOTRAN+3 |
XMDIGIT | DIALTRY+1~, DIALTRY+3* |
XMER | C+2~, C+10 |
XMFDA | O+7~ |
XMFDA( | O+9*, O+10* |
XMFIELD | DIAL+2, DIAL+4! |
>> XMHANG | H+2, H+3 |
>> XMHOST | X+5 |
XMI | DIAL+1~, DIAL+3*, DIALTRY+1~, DIALTRY+3* |
XMIENS | O+7~, O+8*, O+9, O+10 |
XMINST | ENT+11, ENT+13, ENT+16, IN+3, IN+4, USESCR~, USESCR+6, EN~, C+8, O+8 , RESUME+5, RESUME+6 |
XMLER | ENT+8~, TRAN+10 |
XMLIN | ENT+8~ |
XMLX | FLUSH+2~, FLUSH+3* |
XMNETREC | IN+6~, IN+7*, IN+10, IN+13, USESCR+3~, USESCR+4*, USESCR+5 |
XMNSCR | C+2~, C+6* |
XMNSCRN | C+2~, C+6*, C+7, C+8 |
XMNUM | DIAL+1~, DIAL+3*, DIALTRY~, DIALTRY+3 |
XMNUMS | DIAL~, DIAL+3 |
>> XMOPEN | O+2 |
XMPARM | DOTRAN+1~, DOTRAN+3 |
XMPARM(1 | DOTRAN+2* |
XMPARM(2 | DOTRAN+2* |
XMPARM(3 | DOTRAN+2* |
XMPHONE | DIALTRY+1~, DIALTRY+2*, DIALTRY+3*, DIALTRY+5 |
>> XMPROT | O+6 |
XMREF | INDIR+1~, INDIR+2*, INDIR+3, INDIR+4 |
XMROOT | EN~, EN+5 |
XMSAVE | S+2~, S+3*, S+5 |
XMSCRN | IN+6~, IN+8*, EN~, C+11 |
XMSEP | DIAL+1~, DIAL+2*, DIAL+3 |
XMSITE | IN+1, IN+4, IN+10, EN~, C+8, O+4 |
XMSTRIP | DIAL+2, DIAL+4!, DIALTRY+3 |
XMTIME | TRAN+1~, TRAN+2*, TRAN+3 |
>> XMTRAN | IN+17, ERTRAN+3, DOTRAN+3*, TRAN+3 |
Y | C+2~, C+4, C+6, DI+1~, DI+5, DIALTRY+1~, DIALTRY+8, RESUME+1~, RESUME+10 |