Routine: DIWE11

Package	Total	Call Graph
VA Fileman	3	^DIR ^DIWE12 X^DIWE5

Package

Total

Call Graph

VA Fileman

^DIR ^DIWE12 X^DIWE5

Package	Total	Caller Graph
VA Fileman	2	DIWE1 DIWE5

Package

Total

Caller Graph

VA Fileman

DIWE1 DIWE5

Name	Field # of Occurrence
^DIR	ASK+1
^DIWE12	E+1
X^DIWE5	F+1

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "UTILITY Option: " Formatting: ! Timeout: DTIME Variable: X Line Location: 1+0
Function Call: WRITE	Prompt: X Line Location: LC+2
Function Call: WRITE	Prompt: !?5,"Choose, by first letter, a Utility Command" Line Location: LC+3
Function Call: WRITE	Prompt: " from the following:" Line Location: LC+4
Function Call: WRITE	Prompt: !?10,$P(Y,";",4) Line Location: LC+4
Function Call: WRITE	Prompt: !,"Text-Terminator: ",$S(DIWPT="":"<NULL-STRING>",1:DIWPT),"//" Line Location: TT+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: TT+2
Function Call: WRITE	Prompt: !?5,"Answer must be 1 to 5 Characters, no question marks or up-arrows,",!?5,"to go back to the Null-String just type ""@"" !",$C(7) Line Location: TT+4
Function Call: WRITE	Prompt: !?5,"Text-Terminator is now Null-String !" Line Location: TT+5
Function Call: WRITE	Prompt: ! Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"You have 30 seconds to start sending text." Line Location: ASK+2
Function Call: WRITE	Prompt: !,"An End Of File is assumed on 30 second time-out." Line Location: ASK+3
Function Call: WRITE	Prompt: !!,"TABs are converted to 1 thru 9 spaces to start the next character" Line Location: ASK+4
Function Call: WRITE	Prompt: !,"at a column evenly divisable by 9 plus 1. (10,19,28,37...)" Line Location: ASK+5
Function Call: WRITE	Prompt: !!,"End of Line = Carriage Return/$C(13) or Escape/$C(27)." Line Location: ASK+6
Function Call: WRITE	Prompt: !,"All other control characters will be stripped.",!! Line Location: ASK+7
Function Call: WRITE	Prompt: !!,"File Transfer Complete",$C(7),! Line Location: XQ+0
Function Call: WRITE	Prompt: !!,"This option is not available without the rest of the KERNEL" Line Location: NA+0
Routine Call	DIR Line Location: ASK+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EON"	F+1, XQ
^DISV(	LC+1*, LC+2

Name	Line Occurrences
1	LC+5
@(	OPT
NA	F+1
OPT	LC+1, LC+2
QQ	1, F+1, T+1, NA+1
TT	T+1, TT+4
XQ1	ASK+1

Name	Field # of Occurrence
^(	LC+2
^("EOFF"	F+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	XQ1!
%0	XQ1!
%1	XQ1!
%2	XQ1!
%B	XQ1!
DIR	ASK+1!, XQ1!
DIR("A"	ASK*
DIR("B"	ASK+1*
DIR(0	ASK+1*
DIROUT	XQ1!
DIRUT	ASK+1, XQ1!
DIWL	XQ1!
>> DIWPT	TT+1, TT+6*
DTIME	1, TT+2
DTOUT	1, OPT, TT+2, XQ1!
DUOUT	XQ1!
DUZ	LC+1, LC+2
DWOU	DIWE11+3*, LC+1, LC+2, LC+4, QQ!
>> I	LC+1, LC+2, LC+4*
>> J	LC+1, LC+2, LC+4
U	1, TT+2
X	1, LC, LC+1, LC+2, LC+4, OPT, TT+2, TT+3!, TT+4, TT+5 , TT+6, ASK+1*
>> X1	OPT*
>> Y	LC+4*

Customize PDF page

Package: VA Fileman

Routine: DIWE11

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
OPT
QQ
E	;;Editor;Editor Change
LC
F	;;File transfer;File Transfer from Foreign CPU
NA
TT	;
1
T	;;Text-Terminator;Text-Terminator-String Change
ASK
XQ1
XQ