LOCAL llRollBack
BEGIN TRANSACTION

  IF TableUpdate(2,.F.,"FirstTable")
      IF TableUpdate(2,.F.,"SecondTable")
         IF TableUpdate(2,.F.,"ThirdTable")
         ELSE
            llRollBack = .T.
         ENDIF
      ELSE
         llRollBack = .T.
      ENDIF
   ELSE
     llRollBack = .T.
   ENDIF
      
   IF llRollBack
      ROLLBACK
      TableRevert(.T.,"FirstTable")
      TableRevert(.T.,"SecondTable")
      TableRevert(.T.,"ThirdTable")
   ELSE
      END TRANSACTION
   ENDIF