/* ** Rolls back the current transaction ** Lua Returns: ** 1 if rollback is sucsessful ** nil and error message otherwise. */ static int conn_rollback(lua_State *L) { conn_data *conn = getconnection(L,1); isc_rollback_retaining(conn->env->status_vector, &conn->transaction); if ( CHECK_DB_ERROR(conn->env->status_vector) ) return return_db_error(L, conn->env->status_vector); lua_pushboolean(L, 1); return 1; }
EXPORT RM_ENTRY(rmc_rollback_retaining) { ClearParamPool(); ISC_STATUS *stat = AllocStatusPool(); isc_rollback_retaining(stat, (isc_tr_handle *)arg_vector[1].a_address); StatusToCobol(&arg_vector[0], stat); return (0); }