Para verificar a estrutura de uma determinada tabela, basta utilizar o codigo abaixo.

find first _file
     where _file._file-name = “nome_da_tabela”.

for each _field of _file
no-lock:
disp _field._field-name
     _Field._Data-Type
     _Field._Format
     _Field._Label
     _field._width.
end.

Se quiser a estrutura de todas as tabelas, basta remover o where do find first.

vlw