Extrair tabelas e gravar em texto

Extraí todas as tabelas do banco e grava seus nomes em arquivo texto



#
# Extrair o nome das tabelas do banco
# e a quantidade de registros de cada 
# uma delas
#
_block
setvars()
out << external_text_output_stream.new("c:\extracao.txt")
_for x _over dbe.elements()
_loop
write (x.name," - Contendo ", x.size , " registros")
out.newline()
out.write(x.write_string, " - Contendo ", x.size , " registros")
_endloop
out.close()
_endblock
$