Routine: ZIS4VXD

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

Information

%ZIS4 ;SFISC/AC,RWF,MVB - DEVICE HANDLER SPOOL SPECIFIC CODE(VAX DSM) ;10/11/2001 10:44

Source file <ZIS4VXD.m>

Name	Comments	DBIA/ICR reference
OPEN
OPN2
NOPEN
OP1
OPNERR
O
LCKGBL	;Lock Global
OPAR
O1
ODECNET	;OPEN DECNET CHANNEL
ZIO
SPOOL	;%ZDA=pointer to ^XMB(3.51, %ZFN=spool file name.
R
DOC
OK
N
SPL2
SPL3
SPL4
CLOSE
SPLEOF
SPLEX
CL2
HFS
REWMT(IO,IOPAR)	;Rewind Magtape
REWSDP(IO2,IOPAR)	;Rewind SDP
REWHFS(IO2,IOPAR)	;Rewind Host File.
REW1	;N $ET S $ET="D REWERR^%ZIS4 Q 0"
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+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+6
Function Call: READ	Variable: %X#255 Timeout: 5 Line Location: CLOSE+3
Function Call: WRITE	Prompt: *5 Line Location: REWMT+2