SELECT x BEGIN TRANSACTION SCAN REPLACE a WITH b FOR m.i = 1 to 2 calculate memory variables GOTO BOTTOM IN y INSERT INTO y FROM MEMVARS GOTO BOTTOM IN z INSERT INTO z FROM MEMVARS ENDFOR ENDSCAN =TABLEUPDATE(.T.,.F.,x) =TABLEUPDATE(.T.,.F.,y) =TABLEUPDATE(.T.,.F.,z) END TRANSACTIONnot clear where and what =seek(...) I would use here. Do I figure out what the key field is and re-seek it?