LPARAMETERS pcAlias, pcFile LOCAL laFields, lcAlias, lnCnt, lcField, lcLine lcAlias = ALIAS() SELECT (pcAlias) AFIELDS(laFields,pcAlias) SET ALTERNATE TO (pcFile) SET ALTERNATE ON SCAN lcLine = "" FOR lnCnt = 1 TO ALEN(laFields,1) lcField = laFields(lnCnt,1) lcLine = lcLine + ?? ALLTRIM(lcField) + "," ENDFOR lcLine = LEFT(lcLine,LEN(lcLine)-1) ?lcLine ENDSCAN SET ALTERNATE OFF CLOSE ALTERNATE IF NOT EMPTY(lcAlias) SELECT (lcAlias) ELSE SELECT 0 ENDIFPass it the table to be copied and file to copy it to.