/* This code will display all Tables sorted by Area */
for each _StorageObject no-lock where
_StorageObject._Object-type = 1
and _StorageObject._Area-number > 6 /* to
hide system tables */
by
_StorageObject._Area-number:
find _Area where
_Area._Area-number = _StorageObject._Area-number no-lock no-error.
find _File where
_File._File-number = _StorageObject._Object-number no-lock no-error.
display
_StorageObject._Area-number format ">>9" column-label
"Area"
_Area._Area-name
format "x(30)" column-label "Name"
_File._File-nam
when available _File column-label
"Table".
end.
/* This code will display all Indexes sorted by Area */
for each _StorageObject no-lock where
_StorageObject._Object-type = 2
and _StorageObject._Area-number > 6 /* to
hide system tables */
by
_StorageObject._Area-number:
find _Area where
_Area._Area-number = _StorageObject._Area-number no-lock no-error.
find _Index where
_Index._Idx-num = _StorageObject._Object-number no-lock no-error.
if available _Index
then find _File of _Index no-lock no-error.
display
_StorageObject._Area-number format ">>9" column-label
"Area"
_Area._Area-name
format "x(20)" column-label "Name"
_Index._Index-name
format "x(30)" when available _Index
_File._File-name format "x(20)" column-label "Table of Index" when available _File.
end.