DECLARE newdncf[4] && If You have more then 4 declare it
newdncf[1] = "NewDnc1"
newdncf[2] = "NewDnc2"
newdncf[3] = "NewDnc3"
newdncf[4] = "NewDnc4"
......
FOR ndnc = 1 TO ALEN(newdncf,1)
    f_name = newdncf[ndnc]
    select 0
    use (f_name)
NEXT
select 0
use newdnc
SCAN
    SCATTER MEMVAR
    m.tablechar1=NewDnc.Char1
    FOR ndnc = 1 TO ALEN(newdncf,1)
        f_name = newdncf[ndnc]
        select (f_name)
        SCAN FOR Char1 == m.tablechar1
             GATHER MEMVAR
        ENDSCAN
    NEXT
    SELECT NewDnc
ENDSCAN
CLOSE ALL