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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DDSDBLK

Package: VA Fileman

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