>procedure dumptable >* call with do dumptable with "outputfile.txt", "mytablealias" >lparameter outfile, alias >set printer to outfile >set print on >set console off >select (alias) >go top >scan > for x = 1 to fcount() > myfield = field(x) > if x > 1 then > ?? "|" > endif > ?? alltrim(padr(eval(myfield), len(eval(myfield))) > next > ? >endscan >set print off >set print to >set console on >return >* note! This sucker is liable to die if there is a logical field, you might >* need to test the field type before you do the ?? statement. >>