Routine: XMRPCTS

Information

XMRPCTS ;(KC-VAMC)/XXX-Steal TWIX's from PCTS Host [RCVR] ;03/18/2002 09:10

Source file <XMRPCTS.m>

Package	Total	Call Graph
MailMan	3	TRAN^XMC1 ^XMRPCTS0 (INIT,REPLY,XM)^XMRPCTSA
Kernel	1	$$NEWERR^%ZTER

Package	Total	Caller Graph
MailMan	2	XMNET-TWIX-SEND XMRPCTS0

Name	Comments	DBIA/ICR reference
DSP(XMTRAN)
TT
ST
PCTS	;
MDTA
SH
EXIT
STRLF(X)	;Remove leading LineFeed(s) from String
CHKSUM(X)	;Verify the Checksum, We MUST agree.
CSUM(X)	;Calculate Checksum
MAK1

Name	Line Occurrences
Function Call: READ	Timeout: 5 Variable: X Line Location: ST+4
Function Call: READ	Timeout: 3 Variable: X Line Location: ST+5
Function Call: WRITE	Prompt: "MAK1",XMCR,XMLF,XMMN,XMCR,XMLF,XMET,XMCR Line Location: MAK1+0
Function Call: READ	Timeout: 5 Variable: X Line Location: MDTA+0
Function Call: READ	Timeout: 3 Variable: X Line Location: MDTA+1
Function Call: READ	Timeout: 5 Variable: X Line Location: SH+0
Function Call: READ	Timeout: 5 Variable: X Line Location: TT+0
Function Call: READ	Timeout: 5 Variable: X2 Line Location: TT+1
Function Call: READ	Timeout: 5 Variable: X Line Location: CHKSUM+3

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("LPC"	CSUM+1
^%ZOSF("TRAP"	ST+1
^%ZOSF("TRMOFF"	EXIT
^TMP($J	SH, TT+3, TT+4*

Name	Line Occurrences
$$CSUM	SH, TT+2, CHKSUM+1
$$DSP	PCTS+1, ST+3, ST+5, ST+6, ST+7, MAK1, MDTA+1, MDTA+2, SH, TT+3 , TT+4, TT+5, CHKSUM+7, EXIT+2
$$STRLF	TT+2
CHKSUM	TT+4
EXIT	ST+5, ST+6, ST+7, ST+9, MDTA+1, MDTA+2, MDTA+4, SH, TT+5
MAK1	ST+5
MDTA	MDTA+4
SH	MDTA+1
ST	ST+9, TT+4

Name	Field # of Occurrence
>> %	PCTS+1, ST+3, ST+5, ST+6, ST+7, MAK1, MDTA+1, MDTA+2, SH, TT+3 , TT+4, TT+5, CHKSUM+7, EXIT+2, EXIT+3*
I	ST+4, MDTA, TT, TT+3, TT+4, STRLF+1~
X	ST+1, ST+4, ST+5, ST+6, ST+7, MDTA, MDTA+1, MDTA+2, SH, TT* , TT+1, TT+2, TT+3, TT+4, CHKSUM~, STRLF~, STRLF+1, STRLF+2, CSUM~
X1	TT, TT+1, TT+2, TT+4!, TT+5!
>> X2	TT+1*
>> XMCNT(	EXIT+3*
>> XMCOUNT	PCTS+2, ST+9, MAK1+2, MDTA+4
XMCR	MAK1, SH, TT+2, EXIT+1!
XMDH	CHKSUM+2, EXIT+1!
XMET	ST+5, ST+7, MAK1, MDTA+1, MDTA+2, EXIT+1!
>> XMHDR	SH*
XMLF	ST+5, MAK1, MDTA+1, CHKSUM+1, EXIT+1!
XMLMN	EXIT+1!
XMLPC	SH, TT+2, CHKSUM+1, CHKSUM+2, CHKSUM+6*, CHKSUM+7, EXIT+1!
XMMN	ST+5, MAK1, MDTA+1, EXIT+1!
>> XMRPCTS(	EXIT+3
>> XMRPCTS("R"	PCTS+1*
XMSH	SH, EXIT+1!
>> XMSUB	MDTA+1*
XMTRAN	DSP~
Y	CSUM+1~