>>lcx = '' >>lcDelim = ' ' >>sele one && Field cHeader for the headers >>scan >> lcx = lcx+alltr(cHeader)+lcDelim >>endscan >>lcx = left(lcx,len(lcx)-len(lcDelim))+0h0D0A >> >>sele two >>scan >> lcx = lcx+transform(Field1)+lcDelim >> lcx = lcx+transform(Field2)+lcDelim >> *.. >> lcx = lcx+transform(Fieldn)+lcDelim >> lcx = left(lcx,len(lcx)-len(lcDelim))+0h0D0A >>endscan >>lcx = left(lcx,len(lcx)-2) >> >>strtofile(lcx,'Yourfile.ext') >>>>