Just put their actual names in array newdncf
DECLARE newdncf[4] && If You have more then 4 declare it
newdncf[1] = "aaaaa"
newdncf[2] = "bbbbb"
newdncf[3] = "ccccc"
newdncf[4] = "ddddd"
....

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