select 0 use newdnc1 select 0 use newdnc m.tablechar1=char1 SCAN SCATTER MEMVAR select newdnc1 LOCATE FOR Char1 == m.tablechar1 IF FOUND() GATHER MEMVAR ENDIF select newdnc ENDSCAN CLOSE ALL