>many errors in your code:
>

>      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
>

Hi Borislav,

you can skip to restore newdnc, VFP do it for you

           LOCATE FOR Char1 == m.char1
....
           ENDIF
*           select newdnc
      ENDSCAN