Displaying fields in Table

[rohitbhoir]

Is there a way or a query to display the fields of a table like in the data dictionary. My purpose itself is to create something like a data dictionary which will allow the users to select fields from the desired tables.

 

[sphipp]

To display all the Field information, try the following. You can always take things out that you don't need or mess about with the format/layout if you need to.

for each _file no-lock, each _field of _file no-lock:
display 
  _file._file-name
  _field._field-name
  _field._Order
  _field._Data-Type
  _field._label
  _field._format
  _field._Help
  _field._Initial
  _field._Valexp VIEW-AS FILL-IN SIZE 60 BY 1
  _field._Valmsg VIEW-AS FILL-IN SIZE 60 BY 1
  _field._extent
  _field._Can-Read
  _field._Can-Write
  _field._Charset
  _field._Col-label
  _field._Col-label-SA
  _field._Collation
  _field._Decimals
  _field._Desc VIEW-AS FILL-IN SIZE 60 BY 1
  _field._dtype
  _field._Fetch-Type
  _field._Field-Physpos
  _field._field-rpos
  _field._File-recid
  _field._Fld-case
  _field._Fld-misc1
  _field._Fld-misc2
  _field._Fld-res1
  _field._Fld-res2
  _field._Fld-stdtype
  _field._Fld-stlen
  _field._Fld-stoff
  _field._For-Allocated
  _field._For-Id
  _field._For-Itype
  _field._For-Maxsize
  _field._For-Name
  _field._For-Primary
  _field._For-Retrieve
  _field._For-Scale
  _field._For-Separator
  _field._For-Spacing
  _field._For-Type
  _field._For-Xpos
  _field._Format-SA
  _field._Help-SA
  _field._Initial-SA
  _field._Label
  _field._Label-SA
  _field._Mandatory
  _field._sys-field
  _field._User-Misc
  _field._Valmsg-SA
  _field._View-As
  _field._Width
  WITH SIDE-LABELS 1 DOWN.
END.

 

[rohitbhoir]

GR8. Thanks a lot