lcNewFile=forceext(m.lcSourceDir + left(m.lcState,1) + m.lcIssWeek+ "Credit","DBF") &&forceext(laDBFs(m.lnI,1),"DBF") lcNewLogFile = forceext(m.lcNewFile, "LOG") <b>activate screen ? lcNewLogFile</b> wait window nowait "Creating new Credit file for week " + m.lcFullIssWeek on error set step on *** 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 alias