Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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) ;

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
Info |  Source |  Entry Points |  Interaction Calls