; REPORT ON TOTAL BLOCKS IN USE FOR EACH UFD ON DISK
; with comments on UFD ownership included.
.; AAW - 17-NOV-82
;
; This command file must be run from a priveleged terminal and will take
; a long time to run.
.ask YN Continue
.iff YN .EXIT

SET /UIC=[1,1]
PIP TOTAL.DIR;*/DE/NM,BLOCKS.DIR;*,owner.cmd;*,owner.lst;*,owner.tmp;*
PIP DISKUSE.RPT/PU,USE.TMP
PIP DISKUSE.RPT;1=DISKUSE.RPT/RE
PIP USE.TMP;1=USE.TMP/RE
PIP BLOCKS.DIR=[*,*]/TB
.ifnins ...prx ins [105,1]pr/task=...prx
.ifnins ...fie ins [105,1]field/task=...fie
.ifnins ...chx ins [105,1]ch/task=...chx
.ifnins ...lam ins [105,1]lam/task=...lam
GREP -f "Total of" BLOCKS.DIR >TOTAL.DIR
sortc -o [1,5]ufdlist.txt [1,5]ufdlist.txt
cmd [0,0]*.dir/-sr own ['n] '>'>owner.lst >owner.cmd
grep -v "\[000" <owner.cmd >owner.cmd
field "1-8,9-26" "$1,$2" <owner.cmd >owner.tmp
chx "@[001,001@] >>" "@[001,001@] >" <owner.tmp >owner.cmd
@owner
lam total.dir "- for " owner.lst >diskuse.tmp
ins [2,34]fmtblk/task=...aaw
aaw -fdiskuse.tmp >use.tmp
rem aaw
sortc -r -o diskuse.rpt use.tmp
prx -l56 [1,1]diskuse.rpt
rem prx
rem fie
rem chx
rem lam
PIP [1,5]UFDLIST.TXT/PU
PIP [1,1]DISKUSE.TMP;*/DE