Routine: XML

Information

XML ;(WASH ISC)/THM/GJL-MailMan Physical link ;06/04/2002 08:26

Source file <XML.m>

Package	Total	Call Graph
MailMan	2	ERTRAN^XMC1 XMTSTAT^XMTDR
VA Fileman	1	^DIC

Package	Total	Caller Graph
MailMan	6	XMC1 XMC1B XMCB XMR XMRPOP XMTDO

Name	Comments	DBIA/ICR reference
C
GET	; Set up variables for communications protocol in file 3.4 ; In: ; XMCHAN - Name of the communications protocol ; Out: ; XMCHAN - IEN of the communications protocol ; XMPROT - Name of the communications protocol ; XMSEN - Xecute this variable to send a line ; XMREC - Xecute this variable to receive a line ; XMOPEN - Xecute this variable to open the channel ; XMCLOSE - Xecute this variable to close the channel ; XMOS - Operating System, used in ^XMLTCP	ICR #1283 Status: Active Usage: Supported
BUFLUSH	; Flush buffer
SRQ	; Exit from Send/Receive
NEWSTRAT	; Select new strategy, one or both machines may be slow
SEND	; Sends XMSG, returns ER=0 or 1, and XMLER=number of "soft" errors
ENQ	; ACK/NAK garbled - try to re-establish contact
SRINIT	; Initialize variables for Send/Receive
SL
RL
REC	; Receives XMRG, returns ER=0 or 1, and XMLER=number of "soft" errors
RL2
OPEN	;
SUM	; Calculate checksum, accounting also for the character's position
OP	;

Name	Line Occurrences
Function Call: WRITE	Prompt: XMLERR,$C(13) Line Location: SL+1
Function Call: READ	Timeout: XMLTIME Variable: XMLX Line Location: SL+2
Function Call: WRITE	Prompt: XMSG,$C(13) Line Location: SL+2
Function Call: WRITE	Prompt: XMLINE,U,XMSUM,$C(13) Line Location: SL+2
Function Call: READ	Timeout: XMLTIME Variable: XMLX Line Location: ENQ+2
Function Call: WRITE	Prompt: XMLENQ,$C(13) Line Location: ENQ+2
Function Call: WRITE	Prompt: XMLAN,$C(13) Line Location: RL+3
Function Call: WRITE	Prompt: +XMLY,U,XMLACK,$C(13) Line Location: RL+6
Function Call: WRITE	Prompt: XMLAN,$C(13) Line Location: RL2+0
Function Call: READ	Timeout: 0 Variable: % Line Location: BUFLUSH+2
Routine Call	DIC Line Location: GET+13

FileNo	Call Tags
^DIC(3.4 - [#3.4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EON"	C
^%ZOSF("OS"	GET+18
^%ZOSF("RM"	OP+2
^%ZOSF("TRMOFF"	BUFLUSH+3
^%ZOSF("TRMON"	BUFLUSH+2
^DIC(3.4 - [#3.4]	GET+17

Name	Field # of Occurrence
>> %	SEND+2, BUFLUSH+2, SUM+1*
DIC	GET+11~, GET+12*
DIC(0	GET+12*
>> ER	OPEN+3, OPEN+4, SEND+1, SL+1, ENQ+1, RL, RL+3, SRINIT+6, NEWSTRAT+1*
U	GET+16, SL+2, SL+3, ENQ+2, REC+1, RL+5, RL+6, RL2
X	GET+11~, GET+12, OP+2, SEND+3, RL+5, BUFLUSH+2*, SUM+1
>> XM	OPEN+7*
>> XMBFLUSH	BUFLUSH+1
>> XMC("BATCH"	OP+2
>> XMCHAN	OPEN+2, GET+12, GET+14, GET+16, GET+17
>> XMCLOSE	GET+17*, C+1
>> XMESC	OPEN+5*
>> XMFS	OPEN+6*
>> XMINST	SEND+4, REC+2
XMLACK	SL+2, ENQ+2, ENQ+3, RL+6, RL2, SRINIT+1*, SRQ+2!
>> XMLAN	REC+1, RL+3, RL2
XMLENQ	ENQ+2, RL+2, SRINIT+2*, SRQ+2!
>> XMLER	SEND+1, SL, RL, SRINIT+3, NEWSTRAT+2*, SRQ+1
XMLERR	SL+1, RL+2, SRINIT+2*, SRQ+2!
>> XMLINE	SL+2, SL+3, ENQ+2, ENQ+3, REC+1, RL+5, RL+6, RL2, SRINIT+1*
XMLMAXER	SL, ENQ+1, RL, SRINIT+4, NEWSTRAT+1, NEWSTRAT+3, SRQ+2!
XMLNAK	SL+3, ENQ+3, REC+1, RL2, SRINIT+1*, SRQ+2!
XMLTIME	SL+2, ENQ+2, RL+1, RL+4, SRINIT+5, NEWSTRAT+4, SRQ+2!
XMLX	SL+2, SL+3, ENQ+2, ENQ+3, SRQ+2!
XMLY	SL+3, ENQ+1, ENQ+3, RL+4, RL+5, RL+6, SRQ+2!
XMLZ	SL+3, ENQ+1, RL+2, RL+3, RL+5, RL+6*, RL2, RL2+1, SRQ+2!
>> XMOPEN	GET+17*, OP+1
>> XMOS	GET+18*, GET+19
>> XMOS("MSMVER"	GET+20, GET+21
>> XMPROT	GET+16*
>> XMQUIET	OP+2
>> XMREC	GET+17*
>> XMRG	REC+2, RL+1*, RL+2, RL+5
>> XMSEN	GET+17*
>> XMSG	SEND+1, SEND+2*, SEND+3, SEND+4, SL+2
>> XMSTIME	RL+1
>> XMSUM	SL+2, RL+5, SUM+1*
>> XMTLER	NEWSTRAT+2, SRQ+1
>> XMTRAN	GET+15
Y	OPEN+1~, GET+13, GET+15*, GET+16