Routine: ZTBKCONT

Package	Total	Call Graph
Kernel	3	^%ZISC ($$EC,$$VERSION)^%ZOSV (,UNWIND)^%ZTER
VA Fileman	2	NOW^%DTC ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
HELP	;Single question mark help for 'Use default directory' prompt
DD
AONTNXT
ALLONT	;Directory at ^UTILITY("GLO")
ONTDATA	;DATA BLOCK LOOP TO PROCESS NODES
ONTPTNT	;PROCESS NODES IN POINTER BLOCK
ASKDIR	;Ask directory/data set name
ONTPTLP	;POINTER BLOCK LOOP
AONTLOP
AONTVUE
ONAPPSVR()	;Check to see if this utility is run from an ECP Application Server
ONTSTBIG	;Check for big strings
ASK	; Enter here to select default directory
ONTNODE	;BUILD STRINGS TO COMPARE SUBSCRIPTS
ONTPOS	;PROCESS POSITIVE DATA
ONTASCI	;PROCESS ASCII CHAR
ASK2	; Enter here to select directory from a list
ONTNEG	;PROCESS NEGATIVE DATA
AONTPTR
ONTGD	;FIND AND PARSE GLOBAL DIRECTORY BLOCK
ERROR	; Error trap for disconnect error and return back to the read loop.
ONTTSTL
ALL	;Entry point for block count of all globals.
ONTDTBK	;DATA BLOCK
ONTPTDW	;SAVE OFF LAST DOWN LINK BLOCK FOR LATER USE
ONTTSTN
ONTDTNT	;PROCESS DATA NODES
ONTTSTC
RDCHK	; Check to see if ^SYS global is readable with current privs.
ONTPTBK	;POINTER BLOCK
EXIT
ASKBYAPI	;
ONTSTR
ONTPROC	;PROCESS ENCODED DATA

External References

Name	Field # of Occurrence
NOW^%DTC	AONTPTR+1
^%ZISC	AONTPTR+4
$$EC^%ZOSV	ERROR+2
$$VERSION^%ZOSV	ONTGD+6, ASKDIR+2, ASKBYAPI+5
^%ZTER	ERROR+4
UNWIND^%ZTER	ERROR+3, ERROR+5
^DIR	ASK+21, ASK2+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"An error has just occurred!" Line Location: ASKDIR+4
Function Call: WRITE	Prompt: !,"Note: You are attempting to run this utility" Line Location: ASK+4
Function Call: WRITE	Prompt: !,?7,"on a Cache' ECP Application Server." Line Location: ASK+5
Function Call: WRITE	Prompt: !,?7,"This utility will not run on an ECP Application Server." Line Location: ASK+6
Function Call: WRITE	Prompt: !,?7,"Please try running this utility again on an ECP Data Server." Line Location: ASK+7
Function Call: WRITE	Prompt: !,"The following error just occurred:" Line Location: ASK+14
Function Call: WRITE	Prompt: !,%ZTBKEC Line Location: ASK+15
Function Call: WRITE	Prompt: ! Line Location: ASK2+9
Function Call: WRITE	Prompt: !,"Note: You do not have adequate privileges to view the ^SYS global." Line Location: ASKBYAPI+1
Function Call: WRITE	Prompt: !,?7,"Therefore, a directory listing will not be available" Line Location: ASKBYAPI+2
Function Call: WRITE	Prompt: !,?7,"at the directory prompt." Line Location: ASKBYAPI+3
Function Call: WRITE	Prompt: !!,?7,"Also, Cache's API will be used to prompt for directory.",!! Line Location: ASKBYAPI+4
Function Call: WRITE	Prompt: !,"An error has just occurred!" Line Location: ASKBYAPI+8
Function Call: WRITE	Prompt: !,"Enter either 'Y' or 'N'." Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"If you enter 'N' for 'NO', you may then select a directory from a list." Line Location: HELP+2
Function Call: WRITE	Prompt: !,"Block count on globals will only be returned for globals that reside" Line Location: HELP+3
Function Call: WRITE	Prompt: !,"in the selected directory." Line Location: HELP+4
Function Call: WRITE	Prompt: ?(%SK+25),"Global Block Count ",$S(PG>1:"(cont.)",1:""),?(%SK+60),"Page ",PG Line Location: ERROR+9
Function Call: WRITE	Prompt: !,$G(^XUTL($J,"ZTBKCDIR"))," " Line Location: ERROR+10
Function Call: WRITE	Prompt: "Globals",?(%SK+12),"Data Blocks" Line Location: ERROR+10
Function Call: WRITE	Prompt: ?(%SK+34),%ZTBKCDT Line Location: ERROR+11
Function Call: WRITE	Prompt: ! Line Location: ERROR+11
Function Call: READ	Prompt: "Press RETURN to continue or '^' to exit: " Formatting: ! Timeout: 600 Variable: ST Line Location: ERROR+13
Function Call: WRITE	Prompt: @IOF Condition for execution: %ZTBIOC2 Line Location: ALLONT+11
Function Call: WRITE	Prompt: !!,"Printing report..." Line Location: ALLONT+11
Function Call: WRITE	Prompt: !!?%SK,"Total",?(%SK+15),%TOT Line Location: AONTPTR+4
Routine Call	DIR Line Location: ASK+21 ASK2+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY("%ZTBKC"	ALLONT+1!, AONTLOP+1*, AONTPTR+3
^XUTL($J	%ZTBKC1+5, %ZTBKC1+8, ASKDIR+7, %Z3+3, ALLONT+3, ALLONT+6*

Label References

Name	Line Occurrences
$$GetGlobalPointers	ONTGD+12
$$ONAPPSVR	%ZTBKC1+3, ASK+2
%Z3	AONTPTR+2, AONTPTR+3
%Z5	%Z3
%ZTBKC1	AONTPTR+3
AONTLOP	AONTLOP
AONTNXT	AONTLOP+2
AONTPTR	AONTNXT
AONTVUE	AONTPTR
ASK	ASKDIR+3
ASK2	ASK+23
ASKBYAPI	ASK+11
DD	AONTPTR+1
EXIT	%ZTBKC1+3, %ZTBKC1+4, %ZTBKC1+9, ONTGD+9, ONTGD+15, ONTPTLP+2, ONTDATA+3, ONTDTNT+3, ONTDTNT+4, ALLONT+2 , ALLONT+7, AONTVUE+5
ONTDATA	ONTGD+14, ONTDTNT+1, ONTDTNT+2
ONTDTBK	ONTDATA+2
ONTDTNT	ONTDATA+1
ONTNODE	ONTDTNT+1
ONTSTBIG	ONTDTNT+1
ONTSTR	ONTTSTL
ONTTSTC	ONTSTR+3
ONTTSTL	ONTTSTC+2
ONTTSTN	ONTNODE+2
RDCHK	ASK+10

Naked Globals

Name	Field # of Occurrence
^	ASK2+3, RDCHK+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ONTGD+11, ONTGD+12, ONTGD+14, AONTPTR+1, EXIT!
%A	ONTGD+8, ONTGD+9, ONTSTBIG+2, ONTSTBIG+3, ONTSTBIG+9, ASKDIR+1~, EXIT!
%B	%ZTBKC1+9, ONTGD+11, ONTGD+12, ONTDATA+2, ALLONT+7, AONTPTR, EXIT!
>> %BS	ONTGD+7
%C	EXIT!
%D	ALLONT+12!, EXIT!
%E	ONTGD+14, ONTDTBK+2, ONTDATA+1, ONTDTNT+1, ONTSTBIG+2, AONTVUE+4*, AONTVUE+5, AONTNXT, EXIT!
%F	ONTNODE+1*, EXIT!
%G	%ZTBKC1+5, %ZTBKC1+6, %ZTBKC1+7, %ZTBKC1+8, %ZTBKC1+9, ONTGD+5, ONTGD+11, ONTGD+12, ALLONT+3, ALLONT+4 , ALLONT+5, ALLONT+6, ALLONT+7, AONTVUE+1, EXIT!
%GLO	%Z5, AONTPTR+3, AONTPTR+4!
%H	ONTGD+14, ONTDTNT+1, EXIT!
%I	ONTDTNT+1, ONTDTNT+2, ONTTSTN, ONTTSTL+1, ONTTSTL+2, ONTTSTL+3, ONTTSTL+4, ONTTSTC, ONTTSTC+1, ONTSTR , ONTSTR+1, ONTSTR+2, ASKDIR+1~, ASK2+3*, ASK2+4, ASK2+5, ASK2+6, ASK2+8, EXIT!
%II	AONTPTR+3*, AONTPTR+4!
%J	ONTGD+14, ONTDTBK+2, ONTDTNT+1*, ONTDTNT+3, EXIT!
%K	EXIT!
%L	EXIT!
%M	ONTNODE+1, ONTTSTN, ONTTSTL, ONTTSTC+1*, EXIT!
%N	EXIT!
%O	ONTGD+14, ONTDTBK+2, ONTDTNT+2, ONTNODE+1, ONTSTBIG+2, AONTVUE+6, AONTNXT, AONTNXT+1, AONTNXT+6, AONTLOP , AONTLOP+2*, EXIT!
%S	ONTTSTN, ONTTSTL, ONTTSTC, EXIT!
%SK	%Z3+2, %Z3+3, %Z3+4, AONTPTR+3, AONTPTR+4!
%ST	EXIT!
%T	%ZTBKC1+4, ONTGD+14, ONTDTBK+2, ONTDTNT+1, ONTDTNT+3, ONTSTBIG+12, ALLONT+2, ALLONT+12!, AONTPTR+3, AONTPTR+4!
%TIM	ALLONT+12!
%TOT	AONTPTR+3*, AONTPTR+4!
%U	ASK2+3, ASK2+4, ASK2+5, ASK2+6, RDCHK+1~, RDCHK+2, RDCHK+3*
%V	EXIT!
%W	EXIT!
%X	ONTTSTL*, ONTTSTL+3, ONTTSTL+4, ONTSTR+1, ONTSTR+2, EXIT!
%Y	ONTTSTL*, ONTTSTL+1, ONTTSTL+2, ONTTSTL+3, ONTTSTL+4, ONTSTR, ONTSTR+1, ONTSTR+2, EXIT!
%Z	AONTLOP*, EXIT!
%ZTBIOC	%Z3, ALLONT+10*, ALLONT+11, AONTPTR+4!
%ZTBIOC2	%Z3, ALLONT+10*, ALLONT+11, AONTPTR+4!
%ZTBKA	AONTNXT+1, AONTNXT+2, AONTNXT+6, EXIT+1!
%ZTBKBDB	%ZTBKC1+9*, ONTDATA+2, ONTSTBIG+10, EXIT+1!
%ZTBKBIG	AONTVUE+2*, AONTVUE+3, AONTVUE+4, AONTVUE+6, EXIT+1!
%ZTBKCCC	AONTNXT+3*, AONTNXT+5, EXIT+1!
%ZTBKCDT	%Z3+4, AONTPTR+1*, AONTPTR+4!
%ZTBKCE	AONTNXT+6*, AONTLOP, AONTLOP+2, EXIT+1!
%ZTBKCG	AONTVUE, AONTNXT+5, AONTLOP, AONTLOP+1, AONTLOP+2, EXIT+1!
%ZTBKCL	AONTVUE+3*, AONTPTR, EXIT+1!
%ZTBKCX	ONTSTBIG+5, ONTSTBIG+6, ONTSTBIG+8, ONTSTBIG+11, ONTSTBIG+12, EXIT+1!
%ZTBKCX1	ONTSTBIG+6, ONTSTBIG+7, ONTSTBIG+8, ONTSTBIG+11, ONTSTBIG+12, EXIT+1!
%ZTBKCY	ONTSTBIG+3, ONTSTBIG+4, ONTSTBIG+8, ONTSTBIG+9, ONTSTBIG+10, ONTSTBIG+11, EXIT+1!
%ZTBKCY1	ONTSTBIG+4*, ONTSTBIG+7, EXIT+1!
%ZTBKCZY	ALLONT+12*, AONTPTR+3, AONTPTR+4!
%ZTBKEC	ASK+1~, ASK+15, ERROR+2*, ERROR+3
%ZTBKEND	ONTSTBIG+1, ONTSTBIG+2, ONTSTBIG+7, ONTSTBIG+8*, EXIT+1!
%ZTBKERR	ASK+1~, ASK+11, ASK+12, ERROR+3, ERROR+4*
%ZTBKGLO	ONTGD+8*, ONTGD+11, ONTGD+12, EXIT+1!
%ZTBKINF	AONTNXT+1*, AONTNXT+3, AONTNXT+4, EXIT+1!
%ZTBKLEN	AONTNXT+3*, AONTLOP+2, EXIT+1!
%ZTBKNSP	ONTGD+5~*, ONTGD+8
%ZTBKPAD	AONTNXT+4*, EXIT+1!
%ZTBKPRV	AONTNXT+5, AONTLOP+2*, EXIT+1!
%ZTBKRAW	AONTNXT+1*, EXIT+1!
%ZTBKSIZ	AONTVUE+1*, AONTVUE+2, AONTVUE+5, EXIT+1!
%ZTBKSUB	AONTNXT+4*, AONTNXT+6, AONTLOP+2, EXIT+1!
%ZTBKTOP	ONTGD+11, ONTGD+12, EXIT+1!
%ZTBKVER	ONTGD+6, ONTGD+10, ASKDIR+2, ASKDIR+3, ASKBYAPI+5*, ASKBYAPI+6, ASKBYAPI+7, EXIT+1!
DEND	ASKDIR+1~
DIR	ASK+17!, ASK2+2!
DIR("?"	ASK+20*
DIR("A"	ASK+18, ASK+19, ASK2+2, ASK2+4, ASK2+7*
DIR("B"	ASK+17, ASK2+6
DIR(0	ASK+17, ASK2+8
DIRNAM	ASKDIR+1~, ASKDIR+6, ASKDIR+7, ASK+16, ASK+19, ASK2+6, ASK2+11
>> DIRUT	ASK+22, ASK2+10
>> DTOUT	ASK+22, ASK2+10
>> DUOUT	ASKDIR+5, ASKDIR+6, ASK+3, ASK+13*
GD	ASKDIR+1~
IO	%Z3+1, ALLONT+10, ALLONT+11
IO(0	%Z5, ALLONT+10, ALLONT+11, AONTPTR+4
IOF	%Z3+1, ALLONT+11
IOM	ALLONT+12
IOSL	%Z3+1, ALLONT+12
IOST	ALLONT+10
MGDIR	ASK2+1~, ASK2+3, RDCHK+1~, RDCHK+2, RDCHK+3
PG	%Z3, %Z3+1, %Z3+2, ALLONT+9~, AONTPTR+2
ST	%Z3, %Z5, ALLONT+9~, AONTPTR+3
>> SYS("UCI"	ASK2+3, RDCHK+3
X	ONTGD+7, ONTGD+8, ONTTSTN, ONTSTBIG+5, %Z3~, AONTPTR+3, AONTPTR+4!
Y	ASK+23, ASK2+11, DD, AONTPTR+1, AONTPTR+4!
ZTBKCDIR	ASK2+1~
ZTBKCDIR(	ASK2+5*, ASK2+11
>> ZTQUEUED	ALLONT+11

Customize PDF page

Package: Kernel

Routine: ZTBKCONT Platform: OpenM

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: