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