* Make your data changes here

llOK = .T.

BEGIN TRANSACTION

IF llOK AND NOT TABLEUPDATE(.T., .F., 'Table1')
   llOK = .F.
ENDIF

IF llOK AND NOT TABLEUPDATE(.T., .F., 'Table2')
   llOK = .F.
ENDIF

IF llOK AND NOT TABLEUPDATE(.T., .F., 'Table3')
   llOK = .F.
ENDIF

IF llOK
   END TRANSACTION
   FLUSH               && FLUSH FORCE for VFP9
ELSE
   ROLLBACK

   TABLEREVERT(.T., 'Table1')
   TABLEREVERT(.T., 'Table2')
   TABLEREVERT(.T., 'Table3')
ENDIF