Routine: XMAFTP

Package	Total	Call Graph
VA Fileman	3	FILE^DICN ^DIE ^DIK

Package

Total

Call Graph

FILE^DICN ^DIE ^DIK

Package	Total	Caller Graph
MailMan	2	XM-FTP-GET XM-FTP-PUT

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
FTP	;Set up 4.2995 entry and XMnn.COM file
GET	;Entry for GET option
TT
SETXMF	;Set up XMSFTP array to use when doing tag FTP
PUT	;Entry for PUT option
EXIT
GO	;Come here from GET or PUT (see tags below)

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Sorry...this option only works for VAX DSM" Line Location: GO+1
Function Call: WRITE	Prompt: !!,"In process...it will take a little time to complete the transmission." Line Location: GO+17
Function Call: WRITE	Prompt: !!,"Process Aborted !!!",$C(7) Line Location: EXIT+1
Function Call: WRITE	Prompt: "$! FTP COM procedure for fetching file from server and sending it",! Line Location: FTP+4
Function Call: WRITE	Prompt: "$ set noon",! Line Location: FTP+5
Function Call: WRITE	Prompt: "$ assign/user nla0: sys$output",! Line Location: FTP+6
Function Call: WRITE	Prompt: "$ assign/user sys$input sys$command",! Line Location: FTP+7
Function Call: WRITE	Prompt: "$ set def "_XMSFTP(2),! Line Location: FTP+8
Function Call: WRITE	Prompt: "$ set def "_XMSFTP(10),! Line Location: FTP+9
Function Call: WRITE	Prompt: "$ FTP=""$TWG$TCP:[NETDIST.USER]FTP",! Line Location: FTP+10
Function Call: WRITE	Prompt: "$ FTP " Line Location: FTP+11
Function Call: WRITE	Prompt: XMSFTP(1),! Line Location: FTP+12
Function Call: WRITE	Prompt: XMSFTP(3),! Line Location: FTP+13
Function Call: WRITE	Prompt: %2,! Line Location: FTP+14
Function Call: WRITE	Prompt: %2,! Line Location: FTP+15
Function Call: WRITE	Prompt: "bin",! Line Location: FTP+16
Function Call: WRITE	Prompt: "cd "_XMSFTP(2),! Line Location: TT+1
Function Call: WRITE	Prompt: "cd "_XMSFTP(10),! Line Location: TT+4
Function Call: WRITE	Prompt: "quit",! Line Location: TT+6
Routine Call	DIE Line Location: GO+14 TT+7

FileNo	Call Tags
^XMBX(4.2995 - [#4.2995]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	GO+1
^%ZOSF("TRAP"	GO+3
^XMBX(4.2995 - [#4.2995]	SETXMF+1, FTP+2

Name	Field # of Occurrence
^(0	FTP+2*

Name	Field # of Occurrence
>> %1	SETXMF+1*, SETXMF+2, SETXMF+3, SETXMF+4, SETXMF+5
>> %2	FTP+14, FTP+15
>> DA	GO+8*, SETXMF+1
DD	GO+4~, GO+7!
DIC	GO+4~, GO+5*, GO+8
DIC("DR"	GO+6*
DIC(0	GO+5*
DIE	GO+4~, GO+8, TT+7
DIE("NO^"	GO+9*
DIK	GO+4~, EXIT*
DO	GO+4~, GO+7!
>> DR	GO+12, GO+13, TT+7
DTOUT	GO+4~, GO+15
DUOUT	GO+4~, GO+15
DUZ	GO+6
FILE	FTP+3*, TT+7, TT+8, TT+9!
U	SETXMF+2, SETXMF+3, SETXMF+4, SETXMF+5
>> X	GO+3, GO+5, GO+15, FTP+2*, FTP+3
XMAFTP	GO+4~*, GO+12, SETXMF+4, SETXMF+5, TT, TT+3
>> XMCHAN	EXIT+1
>> XMDUZ	GO+6
XMIO	FTP+1~*, TT+10
XMSFTP	GO+18!, FTP+2*
XMSFTP(1	SETXMF+4*, FTP+9, FTP+12
XMSFTP(10	SETXMF+4, SETXMF+5, FTP+9, TT+4
XMSFTP(2	SETXMF+4, SETXMF+5, FTP+8, TT+1, TT+2, TT+5
XMSFTP(3	SETXMF+5*, FTP+8, FTP+13
XMSFTP(4	SETXMF+2*, FTP+14
XMSFTP(5	SETXMF+3*, FTP+15
XMSFTP(9	SETXMF+4, SETXMF+5, TT+2, TT+5
>> Y	GO+8
Z	GO+4, GO+6, GET+1~, PUT+1~
>> ZTQUEUED	EXIT+1

Information