DEFINE VARIABLE cAreaList AS CHARACTER  NO-UNDO.
DEFINE VARIABLE dFreeSpace AS DECIMAL    NO-UNDO FORMAT "99.99%".

cAreaList = SESSION:PARAMETER.

FOR EACH _Area NO-LOCK
  WHERE _Area._Area-type = 3
  OR _Area._Area-type = 4
  OR _Area._Area-type = 6:

  IF cAreaList <> "" THEN
  DO:
    IF NOT cAreaList BEGINS "!"
      AND LOOKUP(STRING(_Area._Area-number), cAreaList) = 0 THEN
      NEXT.
    ELSE IF cAreaList BEGINS "!"
      AND LOOKUP(STRING(_Area._Area-number), cAreaList) <> 0 THEN
      NEXT.
  END.

  FOR EACH _AreaStatus NO-LOCK
    WHERE _AreaStatus._AreaStatus-Areanum = _Area._Area-number:

    IF _AreaStatus._AreaStatus-Lastextent MATCHES "*.db" THEN
      NEXT.

    dFreeSpace = (((_AreaStatus._AreaStatus-Totblocks - _AreaStatus._AreaStatus-Hiwater) / _AreaStatus._AreaStatus-Totblocks) * 100).

    PUT UNFORMATTED
      _AreaStatus._AreaStatus-Areanum "|"
      dFreeSpace FORMAT "99.99"
      SKIP.
  END.
END.