Exemplo n.º 1
0
/*
** 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;
}
Exemplo n.º 2
0
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);
}