#########################################
# Author: Jonathan Miller		#
# Date: 8/24/2005                       #
# Purpose: To drive the TPCB RBR system #
#          test.                        #
# Note: You can have several of this    #
#       driver running at one time.     #
#########################################

# Check environment variable RPL_SYS_MODE and set SQL
# variable @RPL_SYS_MODE. Later in the SP/Triggers we 
# differentiate behaviour based on value of this variable

eval SET @RPL_SYS_MODE = '$RPL_SYS_MODE';

-- disable_abort_on_error

#********* Driver Section *************

SET AUTOCOMMIT=0;
START TRANSACTION;

CALL tpcb.trans();

eval SET @my_errno= $mysql_errno;
let $run_good= `SELECT @my_errno = 0`;
let $run_bad= `SELECT @my_errno <> 0`;

if ($run_good)
{
  COMMIT;
}
if ($run_bad)
{
  ROLLBACK;
}

SET AUTOCOMMIT=1;

#********* End Driver Section *************