Routine: %ZIS5

Package	Total	Call Graph
Kernel	1	(XS,XW)^ZISX

Package

Total

Call Graph

(XS,XW)^ZISX

Package	Total	Caller Graph
Kernel	4	%ZIS1 %ZIS3 %ZIS7 %ZISUTL

Package

Total

Caller Graph

Name	Field # of Occurrence
XS^ZISX	S2, L+2
XW^ZISX	LST+2

Name	Line Occurrences
Function Call: READ	Timeout: %ZISDTIM Variable: %XX Line Location: B+0
Function Call: WRITE	Prompt: %DD,%DIY,"// " Line Location: B+0
Function Call: WRITE	Prompt: !,%DD Line Location: B+1
Function Call: WRITE	Prompt: ! Line Location: LST+1
Function Call: WRITE	Prompt: !,$J(%DZ,2)," ",$P(^%ZIS(%ZISDFN,%DS(%DZ),0),U,1) Line Location: LST+2
Function Call: WRITE	Prompt: " " Line Location: LST+2
Function Call: WRITE	Prompt: !?75-$L(X) Condition for execution: $X+$L($P(%,U))>74 Line Location: LST+4
Function Call: WRITE	Prompt: " "_$P(%,U) Line Location: LST+4
Function Call: WRITE	Prompt: !,"Type '^' to Stop, or" Condition for execution: %DIY Line Location: L1+0
Function Call: WRITE	Prompt: !,"Choose 1" Line Location: L1+0
Function Call: WRITE	Prompt: "-",%DS Condition for execution: %DS>1 Line Location: L1+0
Function Call: READ	Prompt: "> " Timeout: %ZISDTIM Variable: %YY Line Location: L1+1
Function Call: WRITE	Prompt: ! Line Location: L1+1
Function Call: WRITE	Prompt: ! Line Location: LD1+1
Function Call: WRITE	Prompt: $P(^%ZIS(1,%A,0),"^",1) Line Location: L+4
Function Call: WRITE	Prompt: " ",$P(^(1),"^",1) Condition for execution: $D(^(1)) Line Location: L+4
Function Call: WRITE	Prompt: " ** OUT OF SERVICE" Line Location: L+4
Function Call: READ	Prompt: "'^' TO STOP: " Timeout: %ZISDTIM,! Variable: %Y Line Location: L+5
Function Call: WRITE	Prompt: ?39 Line Location: L+5
Function Call: WRITE	Prompt: ! Line Location: L+5

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(	%ZIS5+6, B, F+1, TRY, T1, S, LST+2, GOT, R+5, NUM
^%ZIS(1 - [#3.5]	S1, L, L+1, L+3, L+4, LC1, LC2
^%ZIS(2 - [#3.2]	L+3
^DISV(	X+2, X+3, R+2*
^UTILITY("ZIS"	L, LC2*, RESTART!

Name	Field # of Occurrence
>> %	LST+4*
>> %A	L, L+1, L+2, L+3, L+4, LCPU, LC1*, LC2
%D	B, F+1, TRY, T1, S1, 1+1~, 1+2, 2+1~, 2+2
%DD	%ZIS5+4~, A+2, A+3, B, B+1, Q!
%DIX	%ZIS5+4~, F, TRY, T1, Q!
%DIY	%ZIS5+4~, B, F, TRY, T1, T1+2, T2*, L1, L1+1, Q!
%DO	%ZIS5+4~, %ZIS5+5, %ZIS5+6, A+3, Q!
%DS	F!, T1+1, T1+2, T2, LST, LST+2, L1, L1+1, L1+3, 1+1~ , 2+1~
%DS(	T1+2*, LST+2, L1+4
%DS(0	F, LST+2, L1+1
%DS(1	LST
%DZ	LST+2, GOT, GOT+1, Q!
>> %E	LD1+1, L, LC1, LC2, RESTART*
>> %H	RESTART
%X	LD1+1, L, L+3, RESTART!
>> %XX	B, B+1, G, X+2, F, F+1, TRY, T1+1, T2, L1+2* , NUM
>> %Y	LD1+1, L+5
>> %YY	B, X+3, T1, T1+1, S, S1, S2, T2, LST, LST+1* , L1+1, L1+2, L1+3, L1+4, GOT, R+2, R+5, NO, NUM*, 1+2
>> %YY(0	R+5*
>> %ZIS("A"	A+2
>> %ZIS("B"	B
>> %ZIS("S"	S2, L+2
>> %ZIS("W"	LST+2
>> %ZIS(0	A, G, LST+1, L1+3, GOT+1, R+2, R+5, 1+2, 2+2
%ZISDFN	%ZIS5+6, B, X+2, X+3, F+1, TRY, T1, S, S1, LST+2 , GOT, R+2, R+5, Q!, NUM, 1+1~, 1+2, 2+1~, 2+2
>> %ZISDTIM	B, B+1, L1+1, L+5
%ZISLST	LST, L1+1*, 1+1~, 2+1~
>> %ZISV	S1, LCPU, LC1
DUOUT	%ZIS5+5!, L1+2*, 1+2
DUZ	X+2, X+3, R+2
>> IOP	R+2, 1+2, 2+2
U	%ZIS5+5*, A+3, B, T1+1, S1, T2, LST+2, LST+4, L1+2, GOT+1 , L+3
>> X	LST+4
Y	S2~, L+2~

Information

Name	Comments	DBIA/ICR reference
LC2
LC1
LD1	;Called from %ZIS7
S2
S1
X	;**P572 START CJM
GOT
NO
1	;Entry point for Device lookup
LST
NUM
LCPU
A
B
G
F
T2
L
T1
Q
S
R	;
L1
2	;Entry point for Terminal type lookup
TRY
ADD	;can't add to files
RESTART
LSYN	;