DDSDBLK ;SFISC/MKO-DELETE UNUSED BLOCKS ;09:15 AM 18 Aug 1994
Source file <DDSDBLK.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
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 |
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 |
Name | Field # of Occurrence |
---|---|
^( | FINDB+2, FINDALL+2 |
>> | 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 |