define variable iAreaNum as integer no-undo.
assign iAreaNum = 7.
FOR EACH _storageobject WHERE _storageobject._object-type = 1 and
_storageobject._area-number = iAreaNum no-lock,
first _File WHERE _File._File-Number = _storageobject._Object-number,
first _area WHERE _area._area-number = _storageobject._area-number:
DISPLAY _File-name FORMAT "x(25)"_File-Number _area._area-name
FORMAT "X(25)".
END.