LOCAL lFlagused CREATE TABLE New1 FREE (NEWQ C(10)) IF .NOT USED("ttable1") USE ttable1 IN 0 lFlagused = .t. ENDIF SELECT ttable1 nCntFields = AFIELDS(aFlds) FOR nCnt = 1 TO nCntFields IF LOWER(LEFT(aFlds[nCnt,1]),1) == "q" && I missed How many positions from LEFT to extract INSERT INTO New1 VALUES (aFlds[nCnt,1]) ENDIF NEXT IF lFlagused USE IN SELECT("ttable1") ENDIF