Routine: ZIS4GTM Platform: GT.M

Information

%ZIS4 ;ISF/RWF,DW - DEVICE HANDLER SPECIFIC CODE (GT.M for Unix/VMS) ;05/29/2008

Source Information

Source file <ZIS4GTM.m>

Call Graph

Call Graph Total: 6

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

Entry Points

External References

Name	Field # of Occurrence
YN^%ZIS1	NOPEN+1
OXECUTE^%ZIS6	OPAR+1, OPAR+12
HFS^%ZISF	HFS
$$EC^%ZOSV	OPNERR+1
CLOSE^ZISPL1	SPLEX
FILE^ZISPL1	CLOSE+3
NEWDOC^ZISPL1	R
X10^ZISX	O+2

Interaction Calls

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+1
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: WRITE	Prompt: !,"%A=",%A Line Location: TCPIP+4
Function Call: READ	Timeout: 5 Variable: %X#255 Line Location: CLOSE+6
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+2
^%ZOSF("TRAP"	REWMT+1, REW1
^XMB(3.51 - [#3.51]	R+3, CL2
^XMBS(3.519 - [#3.519]	CL2, CL2+1, CL2+2*
^XTV(8989.3 - [#8989.3]	CLOSE+5
^XUTL("XQ"	DOC, DOC+1

Label References

Name	Line Occurrences
CL2	CLOSE+6
DOC	R+2
N	SPOOL+1, SPOOL+2, R, R+3
NOPEN	OPEN+2
O1	OPAR+5
OK	R+1, R+2
OP1	OPEN+2
OPEN	NOPEN+1
OPN2	OPEN+1
REW1	REWSDP+1
SPL2	R+3
SPL3	CLOSE+4
SPL4	SPL2+1, SPL3+1
TCPIP	OPAR+1
ZIO	O+1

Naked Globals

Name	Field # of Occurrence
^("SPL"	DOC+1
^(1	OPN2+1, DOC+1
^(10	O+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Name	Comments	DBIA/ICR reference
OP1
DOC
HFS
OPEN	;From %ZIS3 for TRM
OPN2	;
O1
REW1
NOPEN
OPNERR	;Open Error
REWHFS(IO,IOPAR)	;Rewind Host File.
OPAR
REWERR	;Error encountered
CLOSE	;Close out the spool
SPLEX
CL2
O	;From %ZIS6 for all types.
N
SPL3	;Open for Read
SPL2	;Open for write
SPL4
ZIO
REWMT(IO,IOPAR)	;Rewind Magtape
REWSDP(IO,IOPAR)	;Rewind SDP
OK
SPOOL	;%ZDA=pointer to ^XMB(3.51, %ZFN=spool file name.
R
TCPIP	;For TCP/IP devices, should use ^%ZISTCP

Customize PDF page

Package: Kernel

Routine: ZIS4GTM Platform: GT.M

Call Graph Total: 6