Routine: DDSDBLK

Information

DDSDBLK ;SFISC/MKO-DELETE UNUSED BLOCKS ;09:15 AM 18 Aug 1994

Source Information

Source file <DDSDBLK.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA Fileman	3	W^DICRW ^DIK ^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
VA Fileman	2	DDS DDSOPT

Entry Points

Name	Comments	DBIA/ICR reference
QUIT	;Cleanup
ALL	;Purge all unused blocks regardless of file
ASKDEL	;Ask if user wants to delete all unused blocks w/o confirmation
FINDB(DDSSUB,DDSBLK)	;Find blocks associated with a specific file
DELPR	;Delete blocks with prompting
ASKCONT	;Final chance to abort
DELNPR	;Delete blocks without prompting
SUB(FN,OUT)	;
FILEQ
INIT	;Initialize variables
FINDALL(DDSBLK)	;Find all unused blocks
FILE()	;Prompt for form
REPORT	;Print report
PROC	;Delete blocks in @DDSBLK

External References

Name	Field # of Occurrence
W^DICRW	FILE+3
^DIK	DELPR+11, DELNPR+7
^DIR	DELPR+10, ASKDEL+8, ASKCONT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"There are no unused blocks associated with this file." Line Location: PROC+2
Function Call: WRITE	Prompt: !!,"DONE!" Line Location: PROC+11
Function Call: WRITE	Prompt: ! Line Location: DELPR+2
Function Call: WRITE	Prompt: ! Line Location: DELNPR+2
Function Call: WRITE	Prompt: !,"Deleting block "_$P(@DDSBLK@(DDSB),U)_" (IEN #"_DDSB_") ..." Line Location: DELNPR+6
Function Call: WRITE	Prompt: ! Line Location: ASKDEL+1
Function Call: WRITE	Prompt: !!! Line Location: REPORT+2
Function Call: WRITE	Prompt: " UNUSED BLOCKS" Line Location: REPORT+3
Function Call: WRITE	Prompt: !!," Internal" Line Location: REPORT+5
Function Call: WRITE	Prompt: !," Entry Number Block Name" Line Location: REPORT+6
Function Call: WRITE	Prompt: !," ------------ ----------" Line Location: REPORT+7
Function Call: WRITE	Prompt: !," "_B,?17,@DDSBLK@(B) Line Location: REPORT+9
Routine Call	DIR Line Location: DELPR+10 ASKDEL+8 ASKCONT+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	SUB+3, SUB+4
^DIST(	FINDB+2, FINDB+4, FINDALL+2, FINDALL+3
^TMP("DDSDBLK"	INIT+2, INIT+3

Label References

Name	Line Occurrences
$$FILE	DDSDBLK+6
ASKCONT	PROC+6
ASKDEL	PROC+5
DELNPR	PROC+9
DELPR	PROC+10
FILEQ	FILE+3
FINDALL	ALL+3
FINDB	DDSDBLK+7
INIT	DDSDBLK+5, ALL+3
PROC	DDSDBLK+7, ALL+3
QUIT	DDSDBLK+6, DDSDBLK+7, ALL+3
REPORT	PROC+4
SUB	DDSDBLK+7, SUB+4

Naked Globals

Name	Field # of Occurrence
^(	FINDB+2, FINDALL+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DDSDBLK+4~, ALL+1~
B	FINDB+1~, FINDB+2, FINDB+4, FINDALL+1~, FINDALL+2, FINDALL+3, FINDALL+4, REPORT+1~, REPORT+9*
B0	FINDB+1~, FINDB+2, FINDB+3, FINDB+4, FINDALL+1~, FINDALL+2, FINDALL+4
D	DDSDBLK+4~
DA	DELPR+11, DELPR+12!, DELNPR+7, DELNPR+8!
DDH	QUIT+3!
DDS1	FILE+3*!
DDSB	DELPR+1~, DELPR+7, DELPR+8, DELPR+9, DELPR+11, DELNPR+1~, DELNPR+4, DELNPR+5, DELNPR+6, DELNPR+7
DDSBLK	DDSDBLK+7, ALL+3, PROC+1, INIT+2*, INIT+4, QUIT+1, QUIT+2!, FINDB~, FINDB+4, FINDALL~ , FINDALL+4, DELPR+8, DELPR+9, DELNPR+5, DELNPR+6, REPORT+9
DDSDEL	PROC+9, PROC+10, INIT+1, QUIT+2!, ASKDEL+9
DDSFILE	DDSDBLK+6*, DDSDBLK+7, ALL+2!, QUIT+2!, REPORT+4
DDSQUIT	PROC+5, PROC+6, INIT+1, QUIT+2!, DELPR+8, DELPR+10, ASKDEL+8, ASKCONT+6
DDSSUB	DDSDBLK+7, INIT+3*, INIT+4, QUIT+1, QUIT+2!, FINDB~, FINDB+4
DIAC	DDSDBLK+4~
DIC	DDSDBLK+4~, ALL+1~, FILE+2~, FILE+4
DIFILE	DDSDBLK+4~
DIK	DELPR+2!, DELPR+5, DELPR+12!, DELNPR+2!, DELNPR+3, DELNPR+8!
DIOVRD	DDSDBLK+4~, ALL+1~, INIT+1*
DIR	DELPR+2!, DELPR+12!, ASKDEL+8!, ASKCONT+1!, ASKCONT+5!
DIR("?"	DELPR+4, ASKDEL+4, ASKDEL+5, ASKDEL+6, ASKDEL+7, ASKCONT+4
DIR("A"	DELPR+9, ASKDEL+2, ASKDEL+3, ASKCONT+2, ASKCONT+3*
DIR("B"	DELPR+3, ASKDEL+1, ASKCONT+1*
DIR(0	DELPR+3, ASKDEL+1, ASKCONT+1*
DIROUT	QUIT+3!, DELPR+12!
DIRUT	QUIT+3!, DELPR+2!, DELPR+10, DELPR+12!, ASKDEL+8, ASKCONT+6
DTOUT	QUIT+3!, DELPR+12!
DUOUT	QUIT+3!, DELPR+12!
FN	SUB~, SUB+3, SUB+4
N	FINDB+1~, FINDB+3*, FINDB+4
OUT	SUB~, SUB+3, SUB+4
SUB	SUB+2~, SUB+4*
U	FINDB+3, FINDB+4, FINDALL+4, DELPR+9, DELNPR+6, REPORT+4
X	DDSDBLK+4~, ALL+1~
Y	DDSDBLK+4~, ALL+1~, FILE+2~, FILE+3, FILE+4*, FILEQ, DELPR+10, ASKDEL+9, ASKCONT+6

Customize PDF page

Package: VA Fileman

Routine: DDSDBLK

Call Graph Total: 3

Caller Graph Total: 2