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