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...