Routine: ZIS4DTM

Package	Total	Call Graph
Kernel	6	YN^%ZIS1 OXECUTE^%ZIS6 HFS^%ZISF FREEDEV^%ZOSV1 (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: READ	Timeout: 5 Variable: %X Line Location: CLOSE+3

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

Name	Field # of Occurrence
>> %	NOPEN+1, CLOSE+3, CL2, CL2+1, CL2+2*
%1	CLOSE+5!
>> %2	CLOSE+3*, CL2+1, CL2+2
>> %A	OPAR+1, OPAR+2, OPAR+3, O1+2
>> %A1	OPAR+5*
>> %E	OPN2
>> %IS	NOPEN, OPAR+5
>> %IS("HFSIO"	OPAR
>> %IS("IOPAR"	OPAR
%X	CLOSE+3*, CLOSE+5!
%Y	CLOSE+2*, CLOSE+5!
%Z1	CLOSE~, CLOSE+1*, CL2
>> %Z91	OPAR+1
>> %ZCR	CLOSE+2*
%ZDA	R+1*, R+4, R+5, DOC, OK!, N!, CLOSE, CL2
%ZFN	R+1, R+3, R+4, R+5, OK!, N!, NOSPL, CLOSE+2, CLOSE+4, CLOSE+5!
>> %ZISB	R+2
>> %ZISHG	NOPEN
>> %ZISHP	OPN2, NOPEN
>> %ZISIOS	DOC+1
>> %ZISLOC	OP1+1
>> %ZISLOCK	OP1+1, OP1+2, O1+1, O1+2
%ZISMODE	R+3, R+4, OK!, N!, CLOSE+2*, CLOSE+5!
>> %ZISOPAR	OPAR*, OPAR+1
>> %ZISTO	OPAR+3
>> %ZISUPAR	OPAR+5
>> %ZS	CLOSE+2
>> %ZTIME	OPAR+3
>> %ZTYPE	OPAR, OPAR+1, OPAR+2, OPAR+3
%ZY	R*, R+1, R+3, OK!, N!
%ZY(0	R+1
DUZ	SPOOL+2
DX	OPAR+5~*
DY	OPAR+5~*
IO	OPEN, OPEN+1, OP1+2, OPAR*, OPAR+3, OPAR+5, SPL, SPL+1, CLOSE, CLOSE+2 , CLOSE+4, REWMT~, REWSDP~, REWHFS~, REW1+1
IO("DOC"	R+1*, N!
IO("ERROR"	OPNERR*
IO("LASTERR"	OPNERR*
IO("Q"	R+2
IO("S"	OPRTPORT, OPAR+5
IO("SPOOL"	DOC*
IO(0	OPRTPORT, OPAR+5, CLOSE
IO(1	OPEN, OPEN+1, OPAR+5, SPL*, CLOSE!, CLOSE+4!
IOF	DOC*
>> IOP	OPN2, NOPEN+1, OPAR, OPAR+2, OPAR+4, SPOOL+1, SPOOL+2, NOSPL
IOPAR	REWMT~, REWSDP~, REWHFS~
>> POP	OPEN+1, NOPEN, NOPEN+2, OP1+2, OPNERR, OPAR+2, OPAR+4, O1+2, N
U	NOPEN+1*, R+1, R+5
X	OP1~, O1~, REW1*
>> XS	CL2, CL2+1, CL2+2
>> ZISDA	SPOOL+1
ZISPLAD	DOC+1*, CLOSE!
>> ZTQUEUED	OPAR+5

Name	Comments	DBIA/ICR reference
OP1
DOC
HFS
OPEN
REWHFS(IO,IOPAR)	;Rewind Host File
O1
SPL
NOPEN
NOSPL
OPNERR
OPN2
OPAR
OPRTPORT
REWERR	;Error encountered.
CLOSE
REW1
CL2
O	;D:$D(%ZISIOS) ZISLPC^%ZIS Q:'%ZISB ;No longer called in Kernel v8.
N
R
REWMT(IO,IOPAR)	;Rewind Magtape
REWSDP(IO,IOPAR)	;Rewind SDP
OK
SPOOL	;%ZDA=pointer to ^XMB(3.51, %ZFN=spool file name.