Routine: ZIS4

Package	Total	Call Graph
Kernel	6	($$LOW,YN)^%ZIS1 OXECUTE^%ZIS6 HFS^%ZISF V2CL1^%ZOSV (FILE,NEWDOC)^ZISPL1 X10^ZISX

Entry Points

Name	Comments	DBIA/ICR reference
OP1
DOC
HFS
OPEN
OPN2
O1
REW1
NOPEN
OPNERR
REWHFS(IO,IOPAR)	;Rewind Host File.
OPAR
OPRTPORT
REWERR	;Error encountered.
CLOSE
CL2
O
N
SPL3
SPL2
SPL5
SPL4
ZIO
REWMT(IO,IOPAR)	;Rewind Magtape
REWSDP(IO,IOPAR)	;Rewind Sequential Block Processor
OK
SPOOL	;%ZDA=pointer to ^XMB(3.51, %ZFN=spool file name.
R

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+9
Function Call: WRITE	Prompt: *5 Line Location: REWMT+2

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

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