Routine: ZIS4VXD

Package	Total	Call Graph
Kernel	5	YN^%ZIS1 OXECUTE^%ZIS6 HFS^%ZISF (CLOSE,FILE,NEWDOC)^ZISPL1 X10^ZISX

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7," Routing to device "_$P(^%ZIS(1,%E,0),"^",1)_$S($D(^(1)):" "_$P(^(1),"^",1)_" ",1:"") Line Location: OPN2+0
Function Call: WRITE	Prompt: *7," [BUSY]" Line Location: NOPEN+1
Function Call: WRITE	Prompt: " ... RETRY" Line Location: NOPEN+1
Function Call: WRITE	Prompt: !,?5,*7,"[File Not Found]" Line Location: OPAR+6
Function Call: READ	Timeout: 5 Variable: %X#255 Line Location: CLOSE+3
Function Call: WRITE	Prompt: *5 Line Location: REWMT+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	OPN2, LCKGBL+1, DOC+1
^%ZIS(2 - [#3.2]	LCKGBL+2
^%ZOSF("TRAP"	REWMT+1
^XMB(3.51 - [#3.51]	R+2, CL2
^XMBS(3.519 - [#3.519]	CL2, CL2+1, CL2+2*
^XTV(8989.3 - [#8989.3]	CLOSE+2
^XUTL("XQ"	DOC, DOC+1

Name	Field # of Occurrence
%	NOPEN+1, LCKGBL+1~, OPAR+3~, OPAR+4, ZIO~, ZIO+1, CLOSE+3, CL2, CL2+1, CL2+2
%(	OPAR+3*
%1	SPLEX!
>> %2	CLOSE+3*, CL2+1, CL2+2
>> %A	OPAR+2, OPAR+4, O1+2
>> %A1	OPAR+10*
>> %E	OPN2, LCKGBL+1
>> %IS	NOPEN, O
>> %IS("HFSIO"	OPAR
>> %IS("IOPAR"	OPAR
%X	CLOSE+3*, SPLEX!
%Y	CLOSE+1*, SPLEX!
%Z1	CLOSE~, CLOSE+2*, CLOSE+3, CL2
>> %ZCR	CLOSE+1*
%ZDA	R*, R+2, DOC, OK!, N!, CLOSE, CL2
%ZFN	R, R+1, R+2, DOC, OK!, N!, SPL2, SPL3+1, SPL4, CLOSE+1 , SPLEX!
>> %ZISB	R+1
>> %ZISHG	NOPEN
>> %ZISHP	OPN2, NOPEN
>> %ZISIOS	DOC+1
>> %ZISLOCK	OP1+1, OP1+2, O1+1, O1+2, ODECNET+2
>> %ZISOPAR	OPAR*, OPAR+2
>> %ZISTO	OPAR+2
>> %ZISUPAR	OPAR+10
>> %ZS	CLOSE+1
>> %ZTIME	OPAR+2
>> %ZTYPE	LCKGBL+1, OPAR, OPAR+1, OPAR+2, OPAR+6, OPAR+9
>> %ZY	R*, R+1
>> %ZY(0	R
>> DELETE	SPLEX
DUZ	SPOOL+2
IO	OPEN, OPEN+1, OP1+2, OPAR, OPAR+1, OPAR+3, OPAR+9, OPAR+10, O1+2, ODECNET+2 , ODECNET+4, R+2, DOC, CLOSE, REWMT~, REWMT+2
IO("DOC"	R*, N!
IO("ERROR"	OPNERR, OPAR+6, O1+3, ODECNET+3, REWERR+1
IO("IP"	ZIO+1*
IO("LASTERR"	OPNERR*
IO("Q"	R
IO("S"	LCKGBL+2
IO("SPOOL"	DOC*
IO("ZIO"	ZIO+1*
IO(0	LCKGBL+2, ODECNET+4*
IO(1	OPEN, OPEN+1, OP1+2, O1+2, SPL2, SPL3+1, CLOSE!, SPLEX!
IO2	REWSDP~, REWHFS~, REW1+1
IOF	DOC*
>> IOP	OPN2, NOPEN+1, LCKGBL+1, OPAR, OPAR+6, OPAR+7, SPOOL+1, SPOOL+2, SPL4
IOPAR	REWMT~, REWSDP~, REWHFS~
>> POP	OPEN+1, NOPEN, NOPEN+2, OP1+2, OPNERR, LCKGBL+1, OPAR+1, OPAR+5, O1+2, N
U	NOPEN+1*, R, R+2
>> X	REWMT+1*
>> XS	CL2, CL2+1, CL2+2
>> ZISDA	SPOOL+1
ZISPLAD	DOC+1*, CLOSE!
>> ZISPLQ	SPL3+1*
>> ZTQUEUED	SPL4

Name	Comments	DBIA/ICR reference
OP1
DOC
HFS
SPLEOF
LCKGBL	;Lock Global
OPEN
OPN2
O1
REW1	;N $ET S $ET="D REWERR^%ZIS4 Q 0"
NOPEN
OPNERR
REWSDP(IO2,IOPAR)	;Rewind SDP
ODECNET	;OPEN DECNET CHANNEL
OPAR
REWERR	;Error encountered
CLOSE
SPLEX
CL2
REWHFS(IO2,IOPAR)	;Rewind Host File.
O
N
SPL3
SPL2
SPL4
ZIO
REWMT(IO,IOPAR)	;Rewind Magtape
OK
SPOOL	;%ZDA=pointer to ^XMB(3.51, %ZFN=spool file name.
R