ibm_db 1.1.1 → 1.5.0

data/ext/ruby_ibm_db.h

@@ -71,9 +71,15 @@
 /* strlen(" SQLCODE=") added in */
 #define DB2_MAX_ERR_MSG_LEN (SQL_MAX_MESSAGE_LENGTH + SQL_SQLSTATE_SIZE + 10)
 
-/* Used in _ruby_parse_options */
-#define DB2_ERRMSG 1
-#define DB2_ERR 2
+/*Used to find the type of resource and the error type required*/
+#define DB_ERRMSG       1
+#define DB_ERR_STATE    2
+
+#define DB_CONN         1
+#define DB_STMT         2
+
+#define CONN_ERROR      1
+#define STMT_ERROR      2
 
 /* DB2 instance environment variable */
 #define DB2_VAR_INSTANCE "DB2INSTANCE="
@@ -92,9 +98,9 @@
 #endif
 
 /*fetch*/
-#define FETCH_INDEX	0x01
-#define FETCH_ASSOC	0x02
-#define FETCH_BOTH	0x03
+#define FETCH_INDEX 0x01
+#define FETCH_ASSOC 0x02
+#define FETCH_BOTH 0x03
 
 /* Change column case */
 #define ATTR_CASE 3271982
@@ -122,6 +128,8 @@ enum
 
 void Init_ibm_db();
 
+/* Function Declarations */
+
 VALUE ibm_db_connect(int argc, VALUE *argv, VALUE self);
 VALUE ibm_db_commit(int argc, VALUE *argv, VALUE self);
 VALUE ibm_db_pconnect(int argc, VALUE *argv, VALUE self);
@@ -149,6 +157,8 @@ VALUE ibm_db_prepare(int argc, VALUE *argv, VALUE self);
 VALUE ibm_db_execute(int argc, VALUE *argv, VALUE self);
 VALUE ibm_db_conn_errormsg(int argc, VALUE *argv, VALUE self);
 VALUE ibm_db_stmt_errormsg(int argc, VALUE *argv, VALUE self);
+VALUE ibm_db_getErrormsg(int argc, VALUE *argv, VALUE self);
+VALUE ibm_db_getErrorstate(int argc, VALUE *argv, VALUE self);
 VALUE ibm_db_conn_error(int argc, VALUE *argv, VALUE self);
 VALUE ibm_db_stmt_error(int argc, VALUE *argv, VALUE self);
 VALUE ibm_db_next_result(int argc, VALUE *argv, VALUE self);
@@ -202,7 +212,7 @@ struct _ibm_db_globals {
 
 #define IBM_DB_G(v) (ibm_db_globals->v)
 
-#endif	/* RUBY_IBM_DB_H */
+#endif  /* RUBY_IBM_DB_H */
 
 
 /*

data/ext/ruby_ibm_db_cli.c

@@ -0,0 +1,629 @@
+/*
+  +----------------------------------------------------------------------+
+  |  Licensed Materials - Property of IBM                                |
+  |                                                                      |
+  | (C) Copyright IBM Corporation 2009                                   |
+  +----------------------------------------------------------------------+
+  | Authors: Praveen Devarao                                             |
+  +----------------------------------------------------------------------+
+*/
+
+
+/*
+    This C file contains functions that perform DB operations, which can take long time to complete.
+    For Eg: - Like SQLConnect, SQLFetch etc.
+
+    This file in general will contain functions that make CLI calls and 
+    depending on whether the call will be transferred to server or not the functions are termed long time comsuming or not.
+
+    The functions which will contact the server and hence can be time consuming will be called by ruby's (1.9 onwards)
+    rb_thread_blocking_region method, which inturn will release the GVL while these operations are being performed. 
+    With this the executing thread will become unblocking allowing concurrent threads perform operations simultaneously.
+*/
+
+#include "ruby_ibm_db_cli.h"
+
+/*
+    This function connects to the database using either SQLConnect or SQLDriverConnect CLI API
+    depending on whether it is a cataloged or an uncataloged connection.
+*/
+int _ruby_ibm_db_SQLConnect_helper(connect_args *data) {
+  if(data->ctlg_conn == 1) {
+    return SQLConnect( (SQLHDBC)*(data->hdbc), (SQLCHAR *)data->database,
+            (SQLSMALLINT)data->database_len, (SQLCHAR *)data->uid, (SQLSMALLINT)data->uid_len,
+            (SQLCHAR *)data->password, (SQLSMALLINT)data->password_len );
+  } else {
+    return SQLDriverConnect( (SQLHDBC) *(data->hdbc), (SQLHWND)NULL,
+            (SQLCHAR*)data->database, SQL_NTS, NULL, 0, NULL, SQL_DRIVER_NOPROMPT );
+  }
+}
+
+/*
+    This function issues SQLDisconnect to disconnect from the Dataserver
+*/
+int _ruby_ibm_db_SQLDisconnect_helper(SQLHANDLE *hdbc) {
+  return SQLDisconnect( (SQLHDBC) *hdbc );  
+}
+
+/*
+   Connection level Unblock function. This function is called when a thread interruput is issued while executing a
+   connection level SQL call
+*/
+void _ruby_ibm_db_Connection_level_UBF(void *data) {
+    return;
+}
+
+/*
+    This function will commit and end the inprogress transaction by issuing a SQLCommit
+*/
+int _ruby_ibm_db_SQLEndTran(end_tran_args *endtran_args) {
+  return SQLEndTran( endtran_args->handleType, *(endtran_args->hdbc), endtran_args->completionType );  
+}
+
+/*
+   This function call the SQLDescribeParam cli call to get the description of the parameter in the sql specified
+*/
+int _ruby_ibm_db_SQLDescribeParam_helper(describeparam_args *data) {
+  int rc = 0;
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLDescribeParam( (SQLHSTMT) data->stmt_res->hstmt, (SQLUSMALLINT)data->param_no, &(data->sql_data_type),
+                &(data->sql_precision), &(data->sql_scale), &(data->sql_nullable) );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function call the SQLDescribeCol cli call to get the description of the parameter in the sql specified
+*/
+int _ruby_ibm_db_SQLDescribeCol_helper(describecol_args *data) {
+  int i  = data->col_no - 1;
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLDescribeCol( (SQLHSTMT)data->stmt_res->hstmt, (SQLSMALLINT)(data->col_no),
+      data->stmt_res->column_info[i].name, data->buff_length, &(data->name_length), 
+      &(data->stmt_res->column_info[i].type), &(data->stmt_res->column_info[i].size), 
+      &(data->stmt_res->column_info[i].scale), &(data->stmt_res->column_info[i].nullable) );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function call the SQLBindCol cli call to get the description of the parameter in the sql specified
+*/
+int _ruby_ibm_db_SQLBindCol_helper(bind_col_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLBindCol( (SQLHSTMT) data->stmt_res->hstmt, (SQLUSMALLINT)(data->col_num),
+          data->TargetType, data->TargetValuePtr, data->buff_length,
+          data->out_length );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLColumnPrivileges cli call to get the list of columns and the associated privileges
+*/
+int _ruby_ibm_db_SQLColumnPrivileges_helper(metadata_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLColumnPrivileges( (SQLHSTMT) data->stmt_res->hstmt, data->qualifier, SQL_NTS,
+            data->owner,SQL_NTS, data->table_name,SQL_NTS, data->column_name,SQL_NTS );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+
+}
+
+/*
+   This function calls SQLColumns cli call to get the list of columns and the associated metadata of the table
+*/
+int _ruby_ibm_db_SQLColumns_helper(metadata_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLColumns( (SQLHSTMT) data->stmt_res->hstmt, data->qualifier, SQL_NTS,
+            data->owner,SQL_NTS, data->table_name,SQL_NTS, data->column_name,SQL_NTS );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLPrimaryKeys cli call to get the list of primay key columns and the associated metadata
+*/
+int _ruby_ibm_db_SQLPrimaryKeys_helper(metadata_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLPrimaryKeys( (SQLHSTMT) data->stmt_res->hstmt, data->qualifier, SQL_NTS,
+                data->owner, SQL_NTS, data->table_name,SQL_NTS );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLForeignKeys cli call to get the list of primay key columns and the associated metadata
+*/
+int _ruby_ibm_db_SQLForeignKeys_helper(metadata_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLForeignKeys( (SQLHSTMT) data->stmt_res->hstmt, data->qualifier, SQL_NTS,
+                data->owner, SQL_NTS, data->table_name ,SQL_NTS, NULL, SQL_NTS,
+                NULL, SQL_NTS, NULL, SQL_NTS );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLProcedureColumns cli call to get the list of parameters 
+   and associated metadata of the stored procedure
+*/
+int _ruby_ibm_db_SQLProcedureColumns_helper(metadata_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLProcedureColumns( (SQLHSTMT) data->stmt_res->hstmt, data->qualifier, SQL_NTS, data->owner,
+          SQL_NTS, data->proc_name, SQL_NTS, data->column_name, SQL_NTS );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLProcedures cli call to get the list of stored procedures 
+   and associated metadata of the stored procedure
+*/
+int _ruby_ibm_db_SQLProcedures_helper(metadata_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLProcedures( (SQLHSTMT) data->stmt_res->hstmt, data->qualifier, SQL_NTS, data->owner,
+          SQL_NTS, data->proc_name, SQL_NTS );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLSpecialColumns cli call to get the metadata related to the special columns 
+   (Unique index or primary key column) and associated metadata
+*/
+int _ruby_ibm_db_SQLSpecialColumns_helper(metadata_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLSpecialColumns( (SQLHSTMT) data->stmt_res->hstmt,SQL_BEST_ROWID, data->qualifier, SQL_NTS,
+                data->owner,SQL_NTS, data->table_name,SQL_NTS,(SQLUSMALLINT)data->scope,SQL_NULLABLE );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLStatistics cli call to get the index information for a given table. 
+*/
+int _ruby_ibm_db_SQLStatistics_helper(metadata_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLStatistics( (SQLHSTMT) data->stmt_res->hstmt, data->qualifier, SQL_NTS, data->owner,
+          SQL_NTS, data->table_name, SQL_NTS, (SQLUSMALLINT)data->unique, SQL_QUICK );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLTablePrivileges cli call to retrieve list of tables and 
+   the asscociated privileges for each table. 
+*/
+int _ruby_ibm_db_SQLTablePrivileges_helper(metadata_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLTablePrivileges( (SQLHSTMT) data->stmt_res->hstmt, data->qualifier, SQL_NTS, data->owner,
+            SQL_NTS, data->table_name, SQL_NTS );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLTables cli call to retrieve list of tables in the specified schema and 
+   the asscociated metadata for each table. 
+*/
+int _ruby_ibm_db_SQLTables_helper(metadata_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLTables( (SQLHSTMT) data->stmt_res->hstmt, data->qualifier, SQL_NTS, data->owner,
+          SQL_NTS, data->table_name, SQL_NTS, data->table_type, SQL_NTS );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLExecDirect cli call to execute a statement directly
+*/
+int _ruby_ibm_db_SQLExecDirect_helper(exec_cum_prepare_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLExecDirect( (SQLHSTMT) data->stmt_res->hstmt, data->stmt_string, (SQLINTEGER)data->stmt_string_len );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLPrepare cli call to prepare the given statement
+*/
+int _ruby_ibm_db_SQLPrepare_helper(exec_cum_prepare_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLPrepare( (SQLHSTMT) data->stmt_res->hstmt, data->stmt_string, (SQLINTEGER)data->stmt_string_len );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLFreeStmt to end processing on the statement referenced by statement handle
+*/
+int _ruby_ibm_db_SQLFreeStmt_helper(free_stmt_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  SQLFreeStmt((SQLHSTMT)data->stmt_res->hstmt, data->option );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLExecute cli call to execute the prepared
+*/
+int _ruby_ibm_db_SQLExecute_helper(stmt_handle *stmt_res) {
+  int  rc =  0;
+
+  stmt_res->is_executing = 1;
+
+  rc = SQLExecute( (SQLHSTMT) stmt_res->hstmt );
+
+  stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLParamData cli call to read if there is still data to be sent
+*/
+int _ruby_ibm_db_SQLParamData_helper(param_cum_put_data_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLParamData( (SQLHSTMT) data->stmt_res->hstmt, (SQLPOINTER *) &(data->valuePtr) );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLColAttributes cli call to get the specified attribute of the column in result set
+*/
+int _ruby_ibm_db_SQLColAttributes_helper(col_attr_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLColAttributes( (SQLHSTMT) data->stmt_res->hstmt, data->col_num,
+                     data->FieldIdentifier, NULL, 0, NULL, &(data->num_attr) );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLPutData cli call to supply parameter data value
+*/
+int _ruby_ibm_db_SQLPutData_helper(param_cum_put_data_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLPutData( (SQLHSTMT) data->stmt_res->hstmt, (SQLPOINTER)(((param_node*)(data->valuePtr))->svalue), 
+           ((param_node*)(data->valuePtr))->ivalue );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLGetData cli call to retrieve data for a single column
+*/
+int _ruby_ibm_db_SQLGetData_helper(get_data_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLGetData( (SQLHSTMT) data->stmt_res->hstmt, data->col_num, data->targetType, data->buff, 
+            data->buff_length, data->out_length);
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLGetLength cli call to retrieve the length of the lob value
+*/
+int _ruby_ibm_db_SQLGetLength_helper(get_length_args *data) {
+  int col_num = data->col_num;
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLGetLength( (SQLHSTMT) *( data->new_hstmt ), data->stmt_res->column_info[col_num-1].loc_type,
+            data->stmt_res->column_info[col_num-1].lob_loc, data->sLength,
+            &(data->stmt_res->column_info[col_num-1].loc_ind) );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLGetSubString cli call to retrieve portion of the lob value
+*/
+int _ruby_ibm_db_SQLGetSubString_helper(get_subString_args *data) {
+  int col_num = data->col_num;
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLGetSubString( (SQLHSTMT) *( data->new_hstmt ), data->stmt_res->column_info[col_num-1].loc_type,
+            data->stmt_res->column_info[col_num-1].lob_loc, 1, data->forLength, data->targetCType,
+            data->buffer, data->buff_length, data->out_length, 
+            &(data->stmt_res->column_info[col_num-1].loc_ind) );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLNextResult cli call to fetch the multiple result sets that might be returned by a stored Proc
+*/
+int _ruby_ibm_db_SQLNextResult_helper(next_result_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLNextResult( (SQLHSTMT) data->stmt_res->hstmt, (SQLHSTMT) *(data->new_hstmt) );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLFetchScroll cli call to fetch the specified rowset of data from result
+*/
+int _ruby_ibm_db_SQLFetchScroll_helper(fetch_data_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLFetchScroll( (SQLHSTMT) data->stmt_res->hstmt, data->fetchOrientation, data->fetchOffset);
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLFetch cli call to advance the cursor to 
+   the next row of the result set, and retrieves any bound columns
+*/
+int _ruby_ibm_db_SQLFetch_helper(fetch_data_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLFetch( (SQLHSTMT) data->stmt_res->hstmt );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLNumResultCols cli call to fetch the number of fields contained in a result set
+*/
+int _ruby_ibm_db_SQLNumResultCols_helper(row_col_count_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLNumResultCols( (SQLHSTMT) data->stmt_res->hstmt, (SQLSMALLINT*) &(data->count) );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLNumParams cli call to fetch the number of parameter markers in an SQL statement
+*/
+int _ruby_ibm_db_SQLNumParams_helper(row_col_count_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLNumParams( (SQLHSTMT) data->stmt_res->hstmt, (SQLSMALLINT*) &(data->count) );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLRowCount cli call to fetch the number of rows affected by the SQL statement
+*/
+int _ruby_ibm_db_SQLRowCount_helper(row_col_count_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLRowCount( (SQLHSTMT) data->stmt_res->hstmt, (SQLLEN*) &(data->count) );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLGetInfo cli call to get general information about DBMS, which the app is connected to
+*/
+int _ruby_ibm_db_SQLGetInfo_helper(get_info_args *data) {
+  return SQLGetInfo( data->conn_res->hdbc, data->infoType, data->infoValue, data->buff_length, data->out_length);
+}
+
+/*
+   This function calls SQLGetDiagRec cli call to get the current values of a diagnostic record that contains error
+*/
+int _ruby_ibm_db_SQLGetDiagRec_helper(get_diagRec_args *data) {
+  return SQLGetDiagRec(data->hType, data->handle, data->recNum, data->SQLState, data->NativeErrorPtr,
+                              data->msgText, data->buff_length, data->text_length_ptr );
+}
+
+/*
+   This function calls SQLSetStmtAttr cli call to set attributes related to a statement
+*/
+int _ruby_ibm_db_SQLSetStmtAttr_helper(set_handle_attr_args *data) {
+  return SQLSetStmtAttr( (SQLHSTMT) *(data->handle), data->attribute, data->valuePtr, data->strLength );
+}
+
+/*
+   This function calls SQLSetConnectAttr cli call to set attributes that govern aspects of connections
+*/
+int _ruby_ibm_db_SQLSetConnectAttr_helper(set_handle_attr_args *data) {
+  return SQLSetConnectAttr( (SQLHDBC) *(data->handle), data->attribute, data->valuePtr, data->strLength );
+}
+
+/*
+   This function calls SQLSetEnvAttr cli call to set an environment attribute
+*/
+int _ruby_ibm_db_SQLSetEnvAttr_helper(set_handle_attr_args *data) {
+  return SQLSetEnvAttr( (SQLHENV) *(data->handle), data->attribute, data->valuePtr, data->strLength);
+}
+
+/*
+   This function calls SQLGetStmtAttr cli call to set an environment attribute
+*/
+int _ruby_ibm_db_SQLGetStmtAttr_helper(get_handle_attr_args *data) {
+  return SQLGetStmtAttr( (SQLHSTMT) *(data->handle), data->attribute, data->valuePtr, 
+            data->buff_length, data->out_length);
+}
+
+/*
+   This function calls SQLGetConnectAttr cli call to set an environment attribute
+*/
+int _ruby_ibm_db_SQLGetConnectAttr_helper(get_handle_attr_args *data) {
+  return SQLGetConnectAttr( (SQLHDBC) *(data->handle), data->attribute, data->valuePtr, 
+            data->buff_length, data->out_length);
+}
+
+/*
+   This function calls SQLBindFileToParam cli call
+*/
+int _ruby_ibm_db_SQLBindFileToParam_helper(stmt_handle *stmt_res, param_node *curr) {
+  int rc = 0;
+
+  stmt_res->is_executing = 1;
+
+  rc = SQLBindFileToParam( (SQLHSTMT)stmt_res->hstmt, curr->param_num,
+           curr->data_type, (SQLCHAR*)curr->svalue,
+           (SQLSMALLINT*)&(curr->ivalue), &(curr->file_options), 
+           curr->ivalue, &(curr->bind_indicator) );
+
+  stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+   This function calls SQLBindParameter cli call
+*/
+int _ruby_ibm_db_SQLBindParameter_helper(bind_parameter_args *data) {
+  int rc = 0;
+
+  data->stmt_res->is_executing = 1;
+
+  rc = SQLBindParameter( (SQLHSTMT) data->stmt_res->hstmt, data->param_num, data->IOType, data->valueType,
+           data->paramType, data->colSize, data->decimalDigits, data->paramValPtr, data->buff_length,
+           data->out_length );
+
+  data->stmt_res->is_executing = 0;
+
+  return rc;
+}
+
+/*
+    Statement level thread unblock function. This fuction cancels a statement level SQL call issued when requested for,
+    allowing for a safe interrupt of the thread.
+*/
+void _ruby_ibm_db_Statement_level_UBF(stmt_handle *stmt_res) {
+  int rc = 0;
+  if( stmt_res->is_executing == 1 ) {
+    rc = SQLCancel( (SQLHSTMT) stmt_res->hstmt );
+  }
+  return;
+}