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

 

1