/* How much db is in use ( Progress ver 9 and up )
  Dmitri Levin
*/

for each _AreaStatus where 
   ( not _AreaStatus-Areaname matches "*After Image Area*" )
   no-lock:

  display 
     _AreaStatus-Areanum  format ">>>" column-label "Num"
     _AreaStatus-Areaname format "x(20)" column-label "Area Name"
     _AreaStatus-Totblocks column-label "Tot blocks"
     _AreaStatus-Hiwater column-label "High water mark"
     _AreaStatus-Hiwater / _AreaStatus-Totblocks * 100 column-label "% use"
     _AreaStatus-Extents  format ">>>" column-label "Num Extents"
     _AreaStatus-Freenum column-label "Free num"
     _AreaStatus-Rmnum   column-label "RM num"
     .
end.