RAND(- 1 )
CREATE CURSOR main (id i, a i, b C( 3 ))
FOR i= 1  TO  10000 
	INSERT INTO main VALUES (i, INT(RAND()* 100 )+ 1 , REPLICATE(CHR( 65 +INT(RAND()* 26 )),INT(RAND()* 3 )+ 1 ))
NEXT

SELECT w.a, CAST(SUBSTR(w.b, 3 ) as Memo) as b FROM ;
(SELECT a, CAST(IIF(TYPE("_vfp.DoCmd('m.st=IIF(a=a2, m.st+[; ]+ALLTRIM(b), [])')")="N", m.st, m.st) as Memo) as b, LEN(m.st)+ 0000000  as l FROM ;
(SELECT x.id, x.a, NVL(y.a, - 01 ) a2, x.b FROM ;
(SELECT RECNO() as rn, * FROM ;
(SELECT MAX(IIF(TYPE("_vfp.DoCmd('m.st=[]')")="N", 000 , 000 )) as id, MAX( 000 ) as a, MAX("aaa") as b FROM main ;
UNION ;
SELECT id, a, b FROM main ;
ORDER BY  2 ,  1  ) s) x ;
LEFT JOIN ;
(SELECT RECNO()+ 1  as rn, * FROM ;
(SELECT MAX( 000 ) as id, MAX( 000 ) as a, MAX("aaa") as b FROM main ;
UNION ;
SELECT id, a, b FROM main ;
ORDER BY  2 ,  1  ) t) y ;
on x.rn=y.rn) z) w ;
JOIN ;
(SELECT a, MAX(l) as l FROM ;
(SELECT a, CAST(IIF(TYPE("_vfp.DoCmd('m.st=IIF(a=a2, m.st+[; ]+ALLTRIM(b), [])')")="N", m.st, m.st) as Memo) as b, LEN(m.st)+ 0000000  as l FROM ;
(SELECT x.id, x.a, NVL(y.a, - 01 ) a2, x.b FROM ;
(SELECT RECNO() as rn, * FROM ;
(SELECT MAX(IIF(TYPE("_vfp.DoCmd('m.st=[]')")="N", 000 , 000 )) as id, MAX( 000 ) as a, MAX("aaa") as b FROM main ;
UNION ;
SELECT id, a, b FROM main ;
ORDER BY  2 ,  1  ) s) x ;
LEFT JOIN ;
(SELECT RECNO()+ 1  as rn, * FROM ;
(SELECT MAX( 000 ) as id, MAX( 000 ) as a, MAX("aaa") as b FROM main ;
UNION ;
SELECT id, a, b FROM main ;
ORDER BY  2 ,  1  ) t) y ;
on x.rn=y.rn) z) w ;
GROUP BY a WHERE a> 0 ) v ;
on w.a=v.a and w.l=v.l