Routine: ZIS4GTM

Select the objects that you wish to see in the downloaded PDF

Information

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

Source file <ZIS4GTM.m>

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

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	Variable: %X#255 Timeout: 5 Line Location: CLOSE+6
Function Call: WRITE	Prompt: *5 Line Location: REWMT+2