SELECT TABLE1 xCOUNT=0 SCAN FOR OWE <> 0 STORE idSTD TO xidSTD SELECT TABLE2 LOCATE FOR idSTD=TABLE1.idSTD REPLACE OWE WITH TABLE1.OWE xCOUNT=xCOUNT+1 ENDSCAN