CREATE TABLE NewTable FREE (NEWQ C(10))

SELECT YourTableWithQfieldnames
nCntFields = AFIELDS(aFlds)
FOR nCnt = 1 TO nCntFields
    IF LOWER(LEFT(aFlds[nCnt,1])) == "q"
       INSERT INTO NewTable VALUES (aFlds[nCnt,1])
    ENDIF
NEXT