Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ZIS4ONT

Package: Kernel

Routine: ZIS4ONT Platform: Cache


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)

External References

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

Naked Globals

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*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All