lcNewFile=forceext(m.lcSourceDir + left(m.lcState,1) + m.lcIssWeek+ "Credit","DBF") &&forceext(laDBFs(m.lnI,1),"DBF") lcNewLogFile = forceext(m.lcNewFile, "LOG") wait window nowait "Creating new Credit file for week " + m.lcFullIssWeek on error set step on for lnI=1 to m.lnFiles lcFileName=addbs(m.lcPath)+laDBFs[m.lnI] lcJustName = juststem(m.lcFileName) if m.lnI = 1 && First file select "C" as Source, Towns.CCODE, Towns.TOWN, ; MISCTYPE, ; DOCKETREF, ; INITDATE, ; PRICE, ; DEF1CODE, ; DEF1NAME, ; DEF2NAME, ; DEF2CODE, ; ALIAS1CODE, ; ALIAS2CODE, ; ALIAS3CODE, ; ALIAS1, ; ALIAS2, ; ALIAS3, ; STNUM, ; STNUMEXT, ; STREET, ; LOTCODE, ; UNIT, ; ZIP as ZipCode, ; PLAINTIFF as PLAINTIFF1, ; PLAINTIFF2, ; PUB, ; PUBDATE, ; TAXTYPE1, ; TAXTYPE2, ; ctot(dtoc(SALEDATE)+SALETIME) as SALEDATETM, ; SALETIME, ; AMORPM, ; SALELOC, ; RESPDATE, ; DEPOSIT, ; SHERATTY, ; PHONENUM, ; ORIGMORTG, ; LINE1, ; PROMOFLAG, ; BATCHNAME, ; M.lcJustName as FileName, ; ITEMDESC, ; iif(EXTRYEAR<"10","20"+EXTRYEAR,"19"+EXTRYEAR) as EXTRYEAR, EXTRWEEK ; from (m.lcFileName) tbl ; INNER join Towns on tbl.CCODE+tbl.TOWN=Towns.CCODE+Towns.townold ; into table (m.lcNewFile) lcDBFAlias = alias() *** Create a log file create table (m.lcNewLogFile) free ; (FileName C(8), State C(2), ; ExtrYear C(4), ExtrWeek C(2), ; rCode C(2), ccode C(2), town C(4), DSId I, ; LogNumSal I, LogNumMtg I, LogNumCrd I, LogNumMM I, ; Record_Fm D, Record_To D, LandCt_Fm D, LandCt_To D, ; ActNumSal I, ActNumMtg I, ActNumCrd I, ActNumMM I, ; MinActDate D, MaxActDate D, NumMMDocs I, NumCoded I, ; CalMnth C(6), MDFlag L, Notes M, DDFlag L, CDFlag L, MWDFlag L) lcLogAlias = alias() && Save log aliasAny help would be appreciated.