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 ;01:25 PM 11 Oct 1999

Source Information

Source file <DDSDBLK.m>

Call Graph

Call Graph

Call Graph Total: 3

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
VA FileMan 3 DDS  DDS PURGE UNUSED BLOCKS  DDSOPT  

Entry Points

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

External References

Name Field # of Occurrence
W^DICRW EGP
^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+9
ASKCONT PROC+6
ASKDEL PROC+5
DELNPR PROC+9
DELPR PROC+10
FILEQ EGP
FINDALL ALL+3
FINDB DDSDBLK+10
INIT DDSDBLK+8, ALL+3
PROC DDSDBLK+10, ALL+3
QUIT DDSDBLK+9, DDSDBLK+10, ALL+3
REPORT PROC+4
SUB DDSDBLK+10, 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+7~, 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+7~
DA DELPR+11*, DELPR+12!, DELNPR+7*, DELNPR+8!
DDH QUIT+3!
DDS1 EGP*!
DDSB DELPR+1~, DELPR+7*, DELPR+8*, DELPR+9, DELPR+11, DELNPR+1~, DELNPR+4*, DELNPR+5*, DELNPR+6, DELNPR+7
DDSBLK DDSDBLK+10, 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+9*, DDSDBLK+10, 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+10, INIT+3*, INIT+4, QUIT+1, QUIT+2!, FINDB~, FINDB+4
DIAC DDSDBLK+7~
DIC DDSDBLK+7~, ALL+1~, FILE+2~, EGP+1
DIFILE DDSDBLK+7~
DIK DELPR+2!, DELPR+5*, DELPR+12!, DELNPR+2!, DELNPR+3*, DELNPR+8!
DIOVRD DDSDBLK+7~, 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+7~, ALL+1~
Y DDSDBLK+7~, ALL+1~, FILE+2~, EGP, EGP+1*, 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