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