for each dictdb._file no-lock where _file._tbl-type = 't' by _file-name:
find dictdb._storageobject no-lock where _storageobject._db-recid = _file._db-recid
and _storageobject._object-number = _file._file-number
and _storageobject._object-type = 1.
find dictdb._area no-lock where _area._area-number = _storageobject._area-number.
display
_file-name
_area._area-number
_area._area-name
with frame a down.
for each dictdb._areaextent no-lock of _area with frame a down:
display _areaextent._extent-path format 'x(60)'.
down.
end.
end.
Output:
File-Name Area-number Area-name Extent-path
──────────────────────────────── ─────────── ──────────────────────────────── ────────────────────
Benefits 7 Employee .\s2k_7.d1
.\s2k_7.d2
BillTo 11 Order .\s2k_11.d1
.\s2k_11.d2
Bin 8 Inventory .\s2k_8.d1
.\s2k_8.d2
Customer 9 Cust_Data .\s2k_9.d1
.\s2k_9.d2
etc...