>PUBLIC neil >DIMENSION neil(5) >SET FIELDS global >SET EXACT ON > >SELECT distinct t1.*, t2.key3, t2.key4 ; >from ("C:\Project\data\modacad.dbf") t1 ; >left outer join ("C:\Project\data\modacad.dbf") t2 ; >on t1.key3 = t2.key3 and t1.key4#t2.key4 ; >where t1.Key4 = 'SAMPLE' and t1.chk13=.T. ; >order by t1.key3 ; >into cursor crsmatch > >SET FIELDS TO crsmatch.key1, crsmatch.key2, crsmatch.key3_a, crsmatch.key4_a, crsmatch.key4_b, ; >crsmatch.cosamp=IIF(crsmatch.key4_a='SAMPLE',1,0), crsmatch.cotech=IIF(crsmatch.key4_b='TECHNICAL',1,0), ; >crsmatch.chk13 > >SUM TO ARRAY neil > >CREATE CURSOR result FROM ARRAY neil > >with this > .RecordSourcetype = 0 > .RecordSource = 'Select * from result' > .ColumnCount = 10 > >ENDWITH>