CLEAR SET TALK OFF DIMENSION xTypes[3] xTypes[1]='N(3,0)' xTypes[2]='B(0)' xTypes[3]='Y' FOR EACH xType in xTypes CREATE CURSOR myCursor ( f1 &xType) ? 'type', m.xType SELECT CAST(F1 AS I NULL) F2 INTO CURSOR R1 FROM myCursor ? aInfo[AFIELDS(ainfo),2] SELECT CAST(F1 AS I NULL) F2 INTO CURSOR R2 FROM myCursor WHERE .F.; UNION ALL ; SELECT F1 FROM myCursor ? aInfo[AFIELDS(ainfo),2] NEXTFabio