hi,
thank you so much,
if tables name is deferent names as aaa.dbf,bbbb.dbf,ccc.dbf ...etc
can be work,
thanks.
m.qasem

>

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