static SQLRETURN
ODBCFreeDesc_(ODBCDesc *desc)
{
ODBCStmt *stmt;
/* check if descriptor is implicitly allocated */
if (desc->sql_desc_alloc_type == SQL_DESC_ALLOC_AUTO) {
/* Invalid use of an automatically allocated
* descriptor handle */
addDescError(desc, "HY017", NULL, 0);
return SQL_ERROR;
}
/* all statements using this handle revert to implicitly
* allocated descriptor handles */
for (stmt = desc->Dbc->FirstStmt; stmt; stmt = stmt->next) {
if (desc == stmt->ApplRowDescr)
stmt->ApplRowDescr = stmt->AutoApplRowDescr;
if (desc == stmt->ApplParamDescr)
stmt->ApplParamDescr = stmt->AutoApplParamDescr;
}
/* Ready to destroy the desc handle */
destroyODBCDesc(desc);
return SQL_SUCCESS;
}
SQLRETURN
MNDBEndTran(SQLSMALLINT HandleType,
SQLHANDLE Handle,
SQLSMALLINT CompletionType)
{
ODBCEnv *env = NULL;
ODBCDbc *dbc = NULL;
SQLHANDLE StatementHandle;
RETCODE rc;
/* check parameters HandleType and Handle for validity */
switch (HandleType) {
case SQL_HANDLE_DBC:
dbc = (ODBCDbc *) Handle;
if (!isValidDbc(dbc))
return SQL_INVALID_HANDLE;
clearDbcErrors(dbc);
if (!dbc->Connected) {
/* Connection does not exist */
addDbcError(dbc, "08003", NULL, 0);
return SQL_ERROR;
}
break;
case SQL_HANDLE_ENV:
env = (ODBCEnv *) Handle;
if (!isValidEnv(env))
return SQL_INVALID_HANDLE;
clearEnvErrors(env);
if (env->sql_attr_odbc_version == 0) {
/* Function sequence error */
addEnvError(env, "HY010", NULL, 0);
return SQL_ERROR;
}
break;
case SQL_HANDLE_STMT:
if (isValidStmt((ODBCStmt *) Handle)) {
clearStmtErrors((ODBCStmt *) Handle);
/* Invalid attribute/option identifier */
addStmtError((ODBCStmt *) Handle, "HY092", NULL, 0);
return SQL_ERROR;
}
return SQL_INVALID_HANDLE;
case SQL_HANDLE_DESC:
if (isValidDesc((ODBCDesc *) Handle)) {
clearDescErrors((ODBCDesc *) Handle);
/* Invalid attribute/option identifier */
addDescError((ODBCDesc *) Handle, "HY092", NULL, 0);
return SQL_ERROR;
}
return SQL_INVALID_HANDLE;
default:
return SQL_INVALID_HANDLE;
}
/* check parameter CompletionType */
if (CompletionType != SQL_COMMIT && CompletionType != SQL_ROLLBACK) {
/* Invalid transaction operation code */
if (HandleType == SQL_HANDLE_DBC)
addDbcError(dbc, "HY012", NULL, 0);
else
addEnvError(env, "HY012", NULL, 0);
return SQL_ERROR;
}
if (HandleType == SQL_HANDLE_ENV) {
RETCODE rc1 = SQL_SUCCESS;
for (dbc = env->FirstDbc; dbc; dbc = dbc->next) {
assert(isValidDbc(dbc));
if (!dbc->Connected)
continue;
rc = MNDBEndTran(SQL_HANDLE_DBC, dbc, CompletionType);
if (rc == SQL_ERROR)
rc1 = SQL_ERROR;
else if (rc == SQL_SUCCESS_WITH_INFO &&
rc1 != SQL_ERROR)
rc1 = rc;
}
return rc1;
}
assert(HandleType == SQL_HANDLE_DBC);
if (dbc->sql_attr_autocommit == SQL_AUTOCOMMIT_ON) {
/* nothing to do if in autocommit mode */
return SQL_SUCCESS;
}
/* construct a statement object and excute a SQL COMMIT or ROLLBACK */
rc = MNDBAllocStmt(dbc, &StatementHandle);
if (SQL_SUCCEEDED(rc)) {
ODBCStmt *stmt = (ODBCStmt *) StatementHandle;
rc = MNDBExecDirect(stmt,
CompletionType == SQL_COMMIT ? (SQLCHAR *) "commit" : (SQLCHAR *) "rollback",
SQL_NTS);
if (rc == SQL_ERROR || rc == SQL_SUCCESS_WITH_INFO) {
/* get the error/warning and post in on the
* dbc handle */
SQLCHAR sqlState[SQL_SQLSTATE_SIZE + 1];
SQLINTEGER nativeErrCode;
SQLCHAR msgText[SQL_MAX_MESSAGE_LENGTH + 1];
(void) MNDBGetDiagRec(SQL_HANDLE_STMT, stmt, 1,
sqlState, &nativeErrCode,
msgText, sizeof(msgText), NULL);
addDbcError(dbc, (char *) sqlState,
(char *) msgText + ODBCErrorMsgPrefixLength,
nativeErrCode);
}
/* clean up the statement handle */
ODBCResetStmt(stmt);
ODBCFreeStmt_(stmt);
for (stmt = dbc->FirstStmt; stmt; stmt = stmt->next)
ODBCResetStmt(stmt);
} else {
/* could not allocate a statement object */
/* Memory management error */
addDbcError(dbc, "HY013", NULL, 0);
return SQL_ERROR;
}
return rc;
}
SQLRETURN
MNDBSetDescField(ODBCDesc *desc,
SQLSMALLINT RecNumber,
SQLSMALLINT FieldIdentifier,
SQLPOINTER ValuePtr,
SQLINTEGER BufferLength)
{
ODBCDescRec *rec;
struct sql_types *tp;
if (isAD(desc))
tp = ODBC_c_types;
else
tp = ODBC_sql_types;
switch (FieldIdentifier) {
case SQL_DESC_ALLOC_TYPE: /* SQLSMALLINT */
/* Invalid descriptor field identifier */
addDescError(desc, "HY091", NULL, 0);
return SQL_ERROR;
case SQL_DESC_ARRAY_SIZE: /* SQLULEN */
if ((SQLULEN) (uintptr_t) ValuePtr == 0) {
/* Invalid attribute/option identifier */
addDescError(desc, "HY092", NULL, 0);
return SQL_ERROR;
}
if (isAD(desc)) {
/* limit size to protect against bugs */
if ((SQLULEN) (uintptr_t) ValuePtr > 10000) {
/* Driver does not support this function */
addDescError(desc, "IM001", NULL, 0);
return SQL_ERROR;
}
desc->sql_desc_array_size = (SQLULEN) (uintptr_t) ValuePtr;
}
return SQL_SUCCESS;
case SQL_DESC_ARRAY_STATUS_PTR: /* SQLUSMALLINT * */
desc->sql_desc_array_status_ptr = (SQLUSMALLINT *) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_BIND_OFFSET_PTR: /* SQLLEN * */
if (isAD(desc))
desc->sql_desc_bind_offset_ptr = (SQLLEN *) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_BIND_TYPE: /* SQLINTEGER */
if (isAD(desc))
desc->sql_desc_bind_type = (SQLINTEGER) (intptr_t) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_COUNT: /* SQLSMALLINT */
if (isIRD(desc)) {
/* Invalid descriptor field identifier */
addDescError(desc, "HY091", NULL, 0);
return SQL_ERROR;
}
setODBCDescRecCount(desc, (int) (SQLSMALLINT) (intptr_t) ValuePtr);
return SQL_SUCCESS;
case SQL_DESC_ROWS_PROCESSED_PTR: /* SQLULEN * */
if (desc->Stmt)
desc->sql_desc_rows_processed_ptr = (SQLULEN *) ValuePtr;
return SQL_SUCCESS;
}
if (RecNumber <= 0) {
/* Invalid descriptor index */
addDescError(desc, "07009", NULL, 0);
return SQL_ERROR;
}
if (RecNumber > desc->sql_desc_count)
return SQL_NO_DATA;
if (isIRD(desc)) {
/* the Implementation Row Descriptor is read-only */
/* Invalid descriptor field identifier */
addDescError(desc, "HY091", NULL, 0);
return SQL_ERROR;
}
rec = &desc->descRec[RecNumber];
/* break for read-only fields since the error is the same as
unknown FieldIdentifier */
switch (FieldIdentifier) {
case SQL_DESC_AUTO_UNIQUE_VALUE: /* SQLINTEGER */
case SQL_DESC_BASE_COLUMN_NAME: /* SQLCHAR * */
case SQL_DESC_BASE_TABLE_NAME: /* SQLCHAR * */
case SQL_DESC_CASE_SENSITIVE: /* SQLINTEGER */
case SQL_DESC_CATALOG_NAME: /* SQLCHAR * */
case SQL_DESC_DISPLAY_SIZE: /* SQLLEN */
case SQL_DESC_FIXED_PREC_SCALE: /* SQLSMALLINT */
case SQL_DESC_LABEL: /* SQLCHAR * */
case SQL_DESC_LITERAL_PREFIX: /* SQLCHAR * */
case SQL_DESC_LITERAL_SUFFIX: /* SQLCHAR * */
case SQL_DESC_LOCAL_TYPE_NAME: /* SQLCHAR * */
case SQL_DESC_NULLABLE: /* SQLSMALLINT */
case SQL_DESC_ROWVER: /* SQLSMALLINT */
case SQL_DESC_SCHEMA_NAME: /* SQLCHAR * */
case SQL_DESC_SEARCHABLE: /* SQLSMALLINT */
case SQL_DESC_TABLE_NAME: /* SQLCHAR * */
case SQL_DESC_TYPE_NAME: /* SQLCHAR * */
case SQL_DESC_UNSIGNED: /* SQLSMALLINT */
case SQL_DESC_UPDATABLE: /* SQLSMALLINT */
break; /* read-only or unused */
case SQL_DESC_CONCISE_TYPE: /* SQLSMALLINT */
while (tp->concise_type != 0) {
if ((intptr_t) tp->concise_type == (intptr_t) ValuePtr) {
rec->sql_desc_concise_type = tp->concise_type;
rec->sql_desc_type = tp->type;
rec->sql_desc_datetime_interval_code = tp->code;
if (tp->precision != UNAFFECTED)
rec->sql_desc_precision = tp->precision;
if (tp->datetime_interval_precision != UNAFFECTED)
rec->sql_desc_datetime_interval_precision = tp->datetime_interval_precision;
if (tp->length != UNAFFECTED)
rec->sql_desc_length = tp->length;
if (tp->scale != UNAFFECTED)
rec->sql_desc_scale = tp->scale;
rec->sql_desc_fixed_prec_scale = tp->fixed;
rec->sql_desc_num_prec_radix = tp->radix;
return SQL_SUCCESS;
}
tp++;
}
/* Invalid attribute/option identifier */
addDescError(desc, "HY092", NULL, 0);
return SQL_ERROR;
case SQL_DESC_DATA_PTR: /* SQLPOINTER */
/* TODO: consistency check */
rec->sql_desc_data_ptr = ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_DATETIME_INTERVAL_CODE: /* SQLSMALLINT */
while (tp->concise_type != 0) {
if ((intptr_t) tp->code == (intptr_t) ValuePtr &&
tp->type == rec->sql_desc_type) {
rec->sql_desc_concise_type = tp->concise_type;
rec->sql_desc_type = tp->type;
rec->sql_desc_datetime_interval_code = tp->code;
if (tp->precision != UNAFFECTED)
rec->sql_desc_precision = tp->precision;
if (tp->datetime_interval_precision != UNAFFECTED)
rec->sql_desc_datetime_interval_precision = tp->datetime_interval_precision;
if (tp->length != UNAFFECTED)
rec->sql_desc_length = tp->length;
if (tp->scale != UNAFFECTED)
rec->sql_desc_scale = tp->scale;
rec->sql_desc_fixed_prec_scale = tp->fixed;
rec->sql_desc_num_prec_radix = tp->radix;
return SQL_SUCCESS;
}
tp++;
}
/* Inconsistent descriptor information */
addDescError(desc, "HY021", NULL, 0);
return SQL_ERROR;
case SQL_DESC_DATETIME_INTERVAL_PRECISION: /* SQLINTEGER */
rec->sql_desc_datetime_interval_precision = (SQLINTEGER) (intptr_t) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_INDICATOR_PTR: /* SQLLEN * */
if (isAD(desc))
rec->sql_desc_indicator_ptr = (SQLLEN *) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_LENGTH: /* SQLULEN */
rec->sql_desc_length = (SQLULEN) (uintptr_t) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_NAME: /* SQLCHAR * */
if (isID(desc)) {
fixODBCstring(ValuePtr, BufferLength, SQLINTEGER,
addDescError, desc, return SQL_ERROR);
if (rec->sql_desc_name != NULL)
free(rec->sql_desc_name);
rec->sql_desc_name = (SQLCHAR *) dupODBCstring((SQLCHAR *) ValuePtr, (size_t) BufferLength);
if (rec->sql_desc_name == NULL) {
/* Memory allocation error */
addDescError(desc, "HY001", NULL, 0);
return SQL_ERROR;
}
rec->sql_desc_unnamed = *rec->sql_desc_name ? SQL_NAMED : SQL_UNNAMED;
}
return SQL_SUCCESS;
case SQL_DESC_NUM_PREC_RADIX:
rec->sql_desc_num_prec_radix = (SQLINTEGER) (intptr_t) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_OCTET_LENGTH: /* SQLLEN */
rec->sql_desc_octet_length = (SQLLEN) (intptr_t) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_OCTET_LENGTH_PTR: /* SQLLEN * */
if (isAD(desc))
rec->sql_desc_octet_length_ptr = (SQLLEN *) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_PARAMETER_TYPE: /* SQLSMALLINT */
switch ((SQLSMALLINT) (intptr_t) ValuePtr) {
case SQL_PARAM_INPUT:
break;
case SQL_PARAM_INPUT_OUTPUT:
case SQL_PARAM_OUTPUT:
/* Driver does not support this function */
addDescError(desc, "IM001", NULL, 0);
return SQL_ERROR;
default:
/* Invalid attribute/option identifier */
addDescError(desc, "HY092", NULL, 0);
return SQL_ERROR;
}
if (isIPD(desc))
rec->sql_desc_parameter_type = (SQLSMALLINT) (intptr_t) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_PRECISION: /* SQLSMALLINT */
rec->sql_desc_precision = (SQLSMALLINT) (intptr_t) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_SCALE: /* SQLSMALLINT */
rec->sql_desc_scale = (SQLSMALLINT) (intptr_t) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_TYPE: /* SQLSMALLINT */
while (tp->concise_type != 0) {
if ((SQLSMALLINT) (intptr_t) ValuePtr == tp->type &&
(((SQLSMALLINT) (intptr_t) ValuePtr != SQL_DATETIME &&
(SQLSMALLINT) (intptr_t) ValuePtr != SQL_INTERVAL) ||
tp->code == rec->sql_desc_datetime_interval_code)) {
rec->sql_desc_concise_type = tp->concise_type;
rec->sql_desc_type = tp->type;
rec->sql_desc_datetime_interval_code = tp->code;
if (tp->precision != UNAFFECTED)
rec->sql_desc_precision = tp->precision;
if (tp->datetime_interval_precision != UNAFFECTED)
rec->sql_desc_datetime_interval_precision = tp->datetime_interval_precision;
if (tp->length != UNAFFECTED)
rec->sql_desc_length = tp->length;
if (tp->scale != UNAFFECTED)
rec->sql_desc_scale = tp->scale;
rec->sql_desc_fixed_prec_scale = tp->fixed;
rec->sql_desc_num_prec_radix = tp->radix;
return SQL_SUCCESS;
}
tp++;
}
/* Inconsistent descriptor information */
addDescError(desc, "HY021", NULL, 0);
return SQL_ERROR;
case SQL_DESC_UNNAMED: /* SQLSMALLINT */
if ((SQLSMALLINT) (intptr_t) ValuePtr == SQL_NAMED) {
/* Invalid descriptor field identifier */
addDescError(desc, "HY091", NULL, 0);
return SQL_ERROR;
} else if ((SQLSMALLINT) (intptr_t) ValuePtr == SQL_UNNAMED && isIPD(desc)) {
rec->sql_desc_unnamed = SQL_UNNAMED;
if (rec->sql_desc_name)
free(rec->sql_desc_name);
rec->sql_desc_name = NULL;
return SQL_SUCCESS;
}
/* Inconsistent descriptor information */
addDescError(desc, "HY021", NULL, 0);
return SQL_ERROR;
}
/* Invalid descriptor field identifier */
addDescError(desc, "HY091", NULL, 0);
return SQL_ERROR;
}
