>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] >NEXT >>