Routine: XMC1

Information

XMC1 ;ISC-SF/GMB-Script Interpreter ;07/23/2002 10:15

Source Information

Source file <XMC1.m>

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
MailMan	7	LOOK^XMC1A (CLOSE,OPEN)^XMC1B $$RTRAN^XMCU1 GET^XMCXT BUFLUSH^XML ENTER^XMS STAT^XMTDR
Kernel	4	^%ZIS $$NEWERR^%ZTER $$FMTE^XLFDT $$UP^XLFSTR
VA Fileman	4	$$EZBLD^DIALOG ^DIC FILE^DIE ^DIR

Caller Graph

Caller Graph Total: 26

Package	Total	Caller Graph
MailMan	26	XMC11 XMC1A XMC1B XMCB XMCTLK XMCX XMKPR XML XML4CRC XMLTCP XMLTCP2 XMLTCP3 XMR XMR0BCP XMR2 XMR3 XMRPCTS XMRPCTS0 XMRPCTSA XMRTCP XMS XMS1 XMS2 XMS3 XMSCRIPTRES XMTDR

Entry Points

Name	Comments	DBIA/ICR reference
DI	; Dial phone
DIAL(XMNUMS)	;
EN(XMINST,XMSITE,XMSCRN,XMROOT)	;
RESUME	; Resume script processing
ERTRAN(XMDIALOG,XM1,XM2,XM3)	;
INDIR(XMC1)	; GET INDIRECT REFERENCE
C	; Call a subroutine
E	; Set error message to be displayed.
D	; Dial numbers sucessively (Strip all punctuation not in XMSTRIP string)
F	; Flush buffer
H	; Hang up phone
M	; Send mail
L	; Look for string
O	; Open device, protocol, and host
DOTRAN(XMDIALOG,XM1,XM2,XM3)	;
S	; Send line
ENT	; ; Expects as input: ; XMINST Domain IEN ; XMSITE Domain name ; XMB("SCR IEN") Script IEN
T	;
W	; Wait a number of seconds
IN	;To \|1\| from \|2\| beginning \|3\|
X	; Execute a line of code
USESCR(XMINST,XMB)	; Function returns 1 if we should use the existing ; script, or 0 if we should build a TCP/IP script.
DIALTRY(XMNUM)	;
INT(X,XMCI)	; Interpret the script line ; X script line
TRAN	;
FLUSH	; Flush buffer

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: 0 Variable: XMLX Line Location: FLUSH+3
Function Call: WRITE	Prompt: XMC1,$C(13) Line Location: S+8
Function Call: WRITE	Prompt: !,XMAUDIT Line Location: TRAN+9
Function Call: WRITE	Prompt: !,$J(I,2),$S(I=XMCI:"->",1:" "),^(I,0) Line Location: RESUME+5
Routine Call	DIC Line Location: C+3
Routine Call	DIALOG Line Location: DI+3 DOTRAN+3 RESUME+7
Routine Call	DIE Line Location: O+11
Routine Call	DIR Line Location: DI+4 RESUME+9
Routine Call	%ZIS Line Location: RESUME+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^XMB(4.6 - [#4.6]	Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name	Field # of Occurrence
^(	RESUME+5

Local Variables

Legend:

>>	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

Customize PDF page

Package: MailMan

Routine: XMC1

Call Graph Total: 15

Caller Graph Total: 26