Routine: ZIS4ONT

Information

%ZIS4 ;SFISC/RWF,AC - DEVICE HANDLER SPOOL SPECIFIC CODE (Cache) ;06/16/14 13:23

Source Information

Source file <ZIS4ONT.m>

Call Graph

Call Graph Total: 6

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

Entry Points

Name	Comments	DBIA/ICR reference
OP1
DOC
HFS
LIMIT
OPEN	;Called for TRM devices
OPN2	;
O1
REW1	;ZIS set % to the current $I so need to update % if = IO
NOPEN	;
NO
OPNERR
REWSDP(IO2,IOPAR)	;Rewind SDP
OPAR
REWERR	;Error encountered
CLOSE	;Handle Close and copy to Global
SPLEX
CLVMS	;Close for Cache VMS & Linux
REWHFS(IO2,IOPAR)	;Rewind Host File.
O	;Gets called for all devices
SPL3	;Open to read
SPL2	;Open for output
SPL4
ZIO
REWMT(IO2,IOPAR)	;Rewind Magtape
OK
SPOOL	;%ZDA=pointer to ^XMB(3.51, %ZFN=spool file Num/Name.
R
ADD(L)

Name	Field # of Occurrence
YN^%ZIS1	NOPEN+2
OXECUTE^%ZIS6	OPAR+6
HFS^%ZISF	HFS
$$OS^%ZOSV	ZIO+5, ZIO+6, SPOOL+1, CLOSE+1
$$VERSION^%ZOSV	CLVMS+3
CLOSE^ZISPL1	CLOSE+14, SPLEX
FILE^ZISPL1	CLOSE+6
NEWDOC^ZISPL1	R
X10^ZISX	O+3

Interaction Calls

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	OPN2+1, DOC+1
^%ZIS(2 - [#3.2]	O+3
^SPOOL(	SPL2+1*, SPL3+1, CLOSE+8, CLOSE+10, CLOSE+14!
^SPOOL(0	SPL2+1*, CLOSE+14!
^XMB(3.51 - [#3.51]	SPOOL+2, R+3, R+4, R+6, LIMIT*
^XMBS(3.519 - [#3.519]	ADD*
^XTV(8989.3 - [#8989.3]	CLOSE+9, CLVMS+7
^XUTL("XQ"	DOC, DOC+1

Label References

Name	Line Occurrences
ADD	CLOSE+12, CLOSE+13, LIMIT, CLVMS+11, CLVMS+12, CLVMS+14
CLVMS	CLOSE+7
DOC	R+1
LIMIT	CLOSE+11, CLVMS+9
NO	SPOOL+2, SPOOL+3, SPOOL+4, R, R+1, R+2, R+5
NOPEN	OPEN+2
O1	OPAR+3
OK	R, R+1
OP1	OPEN+2
OPEN	NOPEN+2
OPN2	OPEN+1
REW1	REWSDP+1
SPL2	R+4, R+6
SPL3	R+1, CLVMS+6
SPL4	SPL2+3, SPL3+1, SPL3+4
SPLEX	CLVMS+8
ZIO	O+2

Name	Field # of Occurrence
^(	R+3
^("SPL"	DOC+1
^(1	OPN2+1, DOC+1
^(10	O+3
^(2147483647	SPL3+1!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NOPEN+2, CLOSE+1~, CLOSE+8, CLOSE+11, ADD, CLVMS+7, CLVMS+8, CLVMS+9
%1	CLOSE+14!, SPLEX!
%2	CLOSE+1~, CLOSE+10, CLOSE+11, CLOSE+14!
%3	CLOSE+1~, CLOSE+8*, CLOSE+10, CLOSE+11, CLOSE+14!
>> %A	OPAR+1, OPAR+2, O1+2
%A1	O+1~, OPAR+5*
>> %E	OPN2+1
%X	CLOSE+1~, CLOSE+10, CLOSE+12, CLOSE+13, CLOSE+14!, CLVMS+8, CLVMS+10, CLVMS+11, CLVMS+12, CLVMS+14 , SPLEX!
%Y	CLOSE+1~, CLOSE+8, CLOSE+14!, CLVMS+6, CLVMS+11, CLVMS+12, SPLEX!
%Z1	CLOSE+1~, CLOSE+9, CLOSE+11, CLVMS+7, CLVMS+8, CLVMS+9
>> %Z91	OPAR+1
>> %ZA	CLVMS+4*
%ZCR	CLOSE+1~, CLOSE+8, CLVMS+6
%ZDA	R*, R+3, R+4, R+6, DOC, OK!, NO!, CLOSE+6, LIMIT
%ZFN	R, R+1, R+2, R+3, R+4, R+5, R+6, OK!, NO!, SPL2+1 , SPL2+3, SPL3+1, SPL3+4, SPL4, CLOSE+1~, CLOSE+3, CLOSE+8, CLOSE+10, CLOSE+14, CLVMS+6* , SPLEX!
>> %ZIS	NOPEN+1, O+2
>> %ZIS("HFSIO"	OPAR
>> %ZIS("IOPAR"	OPAR
>> %ZISB	R+1
>> %ZISHP	OPN2+1, NOPEN+1
>> %ZISIOS	DOC+1
>> %ZISIOST	OPAR+1
>> %ZISLOCK	OP1+1, O1+1
>> %ZISOPAR	OPAR*, OPAR+1
>> %ZISTO	OPAR+2
>> %ZISUPAR	OPAR+5
%ZOS	SPOOL+1~, R+2, R+5, SPL2+1, SPL3+1, CLOSE+1~, CLOSE+2, CLOSE+3, CLOSE+4, CLOSE+7
>> %ZS	CLOSE+8, CLOSE+14, CLVMS+6
>> %ZTIME	OPAR+2
>> %ZTYPE	OPAR, OPAR+1, OPAR+2
>> %ZY	R*, R+1
>> %ZY(0	R
DUZ	SPOOL+4, R
IO	OPEN+1, OPEN+2, OP1+2, OPAR, OPAR+2, OPAR+4, OPAR+5, O1+2, R+6, SPL2+1 , SPL3+1, CLOSE+2, CLOSE+3, CLOSE+4
IO("CLNM"	ZIO+10*
IO("DOC"	R*, NO!, SPL2+1
IO("ERROR"	OPNERR, O1+3, REWERR+1*
IO("IP"	ZIO+1, ZIO+5, ZIO+6, ZIO+8, ZIO+9*, ZIO+11
IO("LASTERR"	OPNERR*
IO("Q"	R
IO("S"	O+3
IO("SPOOL"	DOC*
IO("ZIO"	ZIO+1, ZIO+3, ZIO+11
IO(0	O+3
IO(1	OPEN+1, OPEN+2, OP1+2, O1+2, SPL2+1, SPL2+3, SPL3+1, SPL3+4, CLOSE+2!, CLOSE+3! , CLOSE+4!, SPLEX!, REW1+5*
IO2	REWMT~, REWMT+2, REWSDP~, REWHFS~, REW1+3, REW1+5
>> IOP	OPN2+1, NOPEN+2, OPAR, OPAR+3, SPOOL+2, SPOOL+3, SPOOL+4, R+3, SPL4
IOPAR	REWMT~, REWSDP~, REWHFS~
L	ADD~
NIO	REW1+1~
OP	REW1+1~, REW1+4*
>> POP	OPEN+2, NOPEN+1, NOPEN+3, OP1+1, OP1+2, OPNERR, OPAR+3, O1+1, O1+2, NO*
PROCESS	ZIO+2~, ZIO+7*, ZIO+8
U	NOPEN+2*, R, R+4, R+6, CLOSE+14
X	O+1~
>> XS	ADD
XUOSVER	CLVMS+3~*, CLVMS+4
>> ZISDA	SPOOL+3
ZISPLAD	DOC+1*, CLOSE+6!
>> ZISPLQ	SPL3+1, SPL3+4
ZTSK	CLOSE+1~, CLOSE+6*

Customize PDF page

Package: Kernel

Routine: ZIS4ONT Platform: Cache

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: