constants.f90

module odbc_constants
    use, intrinsic :: iso_c_binding, only:  c_short,                    &
                                            c_int,                      &
                                            c_long,                     &
                                            c_long_long,                &
                                            c_char,                     &
                                            c_ptr,                      &
                                            c_null_ptr,                 &
                                            sqlchar => c_char,          &
                                            sqltchar => c_char,         &
                                            sqlnumeric => c_char,       &
                                            sqlpointer => c_ptr,        &
                                            sqlreal => c_float,         &
                                            sqlsmallint => c_short,     &
                                            sqlusmallint => c_short,    &
                                            sqlinteger => c_int,        &
                                            sqluinteger => c_int,       &
                                            sqllen => c_long,           &
                                            sqlulen => c_long,          &
                                            sqlsetposirow => c_long,    &
                                            sqltime => c_char,          &
                                            sqltimestamp => c_char,     &
                                            sqlvarchar => c_char,       &
                                            sqlreturn => c_short,       &
                                            sqlhandle => c_ptr,         &
                                            sqlhenv => c_ptr,           &
                                            sqlhdbc => c_ptr,           &
                                            sqlhstmt => c_ptr,          &
                                            sqlhdesc => c_ptr,          &
                                            henv => c_ptr,              &
                                            hdbc => c_ptr,              &
                                            hstmt => c_ptr
 
    implicit none; private
 
    public ::   sqlnumeric,     &
                sqlpointer,     &
                sqlreal,        &
                sqlsmallint,    &
                sqlusmallint,   &
                sqlinteger,     &
                sqluinteger,    &
                sqllen,         &
                sqlulen,        &
                sqlsetposirow,  &
                sqltime,        &
                sqltimestamp,   &
                sqlvarchar,     &
                sqlreturn,      &
                sqlhandle,      &
                sqlhenv,        &
                sqlhdbc,        &
                sqlhstmt,       &
                sqlhdesc,       &
                henv,           &
                hdbc,           &
                hstmt,          &
                sqlchar,        &
                sqltchar
 
    public :: trim
    
    character(kind=c_char), public  :: STR_NULL_PTR     = transfer(c_null_ptr, '')
    integer(kind=c_short), public   :: SHORT_NULL_PTR   = transfer(c_null_ptr, 0_c_short)
    integer(kind=c_long), public    :: LONG_NULL_PTR   = transfer(c_null_ptr, 0_c_long)
 
    !from sql.h
    integer(C_SHORT), parameter, public :: SQL_NULL_DATA = -1
    integer(C_SHORT), parameter, public :: SQL_DATA_AT_EXEC = -2
    integer(C_SHORT), parameter, public :: SQL_SUCCESS = 0
    integer(C_SHORT), parameter, public :: SQL_SUCCESS_WITH_INFO = 1
    integer(C_SHORT), parameter, public :: SQL_NO_DATA = 100
    integer(C_SHORT), parameter, public :: SQL_ERROR = -1
    integer(C_SHORT), parameter, public :: SQL_INVALID_HANDLE = -2
    integer(C_SHORT), parameter, public :: SQL_STILL_EXECUTING = 2
    integer(C_SHORT), parameter, public :: SQL_NEED_DATA = 99
    integer(C_SHORT), parameter, public :: SQL_PARAM_DATA_AVAILABLE = 101
    integer(C_INT), parameter, public :: SQL_NTS = -3
    integer(C_INT), parameter, public :: SQL_NTSL = -3
    integer(C_SHORT), parameter, public :: SQL_MAX_MESSAGE_LENGTH = 512
    integer(C_SHORT), parameter, public :: SQL_DATE_LEN = 10
    integer(C_SHORT), parameter, public :: SQL_TIME_LEN = 8
    integer(C_SHORT), parameter, public :: SQL_TIMESTAMP_LEN = 19
    integer(C_SHORT), parameter, public :: SQL_HANDLE_ENV = 1
    integer(C_SHORT), parameter, public :: SQL_HANDLE_DBC = 2
    integer(C_SHORT), parameter, public :: SQL_HANDLE_STMT = 3
    integer(C_SHORT), parameter, public :: SQL_HANDLE_DESC = 4
    integer(C_INT), parameter, public :: SQL_ATTR_OUTPUT_NTS = 10001
    integer(C_INT), parameter, public :: SQL_ATTR_AUTO_IPD = 10001
    integer(C_INT), parameter, public :: SQL_ATTR_METADATA_ID = 10014
    integer(C_INT), parameter, public :: SQL_ATTR_APP_ROW_DESC = 10010
    integer(C_INT), parameter, public :: SQL_ATTR_APP_PARAM_DESC = 10011
    integer(C_INT), parameter, public :: SQL_ATTR_IMP_ROW_DESC = 10012
    integer(C_INT), parameter, public :: SQL_ATTR_IMP_PARAM_DESC = 10013
    integer(C_INT), parameter, public :: SQL_ATTR_CURSOR_SCROLLABLE = -1
    integer(C_INT), parameter, public :: SQL_ATTR_CURSOR_SENSITIVITY = -2
    integer(C_SHORT), parameter, public :: SQL_NONSCROLLABLE = 0
    integer(C_SHORT), parameter, public :: SQL_SCROLLABLE = 1
    integer(C_SHORT), parameter, public :: SQL_DESC_COUNT = 1001
    integer(C_SHORT), parameter, public :: SQL_DESC_TYPE = 1002
    integer(C_SHORT), parameter, public :: SQL_DESC_LENGTH = 1003
    integer(C_SHORT), parameter, public :: SQL_DESC_OCTET_LENGTH_PTR = 1004
    integer(C_SHORT), parameter, public :: SQL_DESC_PRECISION = 1005
    integer(C_SHORT), parameter, public :: SQL_DESC_SCALE = 1006
    integer(C_SHORT), parameter, public :: SQL_DESC_DATETIME_INTERVAL_CODE = 1007
    integer(C_SHORT), parameter, public :: SQL_DESC_NULLABLE = 1008
    integer(C_SHORT), parameter, public :: SQL_DESC_INDICATOR_PTR = 1009
    integer(C_SHORT), parameter, public :: SQL_DESC_DATA_PTR = 1010
    integer(C_SHORT), parameter, public :: SQL_DESC_NAME = 1011
    integer(C_SHORT), parameter, public :: SQL_DESC_UNNAMED = 1012
    integer(C_SHORT), parameter, public :: SQL_DESC_OCTET_LENGTH = 1013
    integer(C_SHORT), parameter, public :: SQL_DESC_ALLOC_TYPE = 1099
    integer(C_SHORT), parameter, public :: SQL_DIAG_RETURNCODE = 1
    integer(C_SHORT), parameter, public :: SQL_DIAG_NUMBER = 2
    integer(C_SHORT), parameter, public :: SQL_DIAG_ROW_COUNT = 3
    integer(C_SHORT), parameter, public :: SQL_DIAG_SQLSTATE = 4
    integer(C_SHORT), parameter, public :: SQL_DIAG_NATIVE = 5
    integer(C_SHORT), parameter, public :: SQL_DIAG_MESSAGE_TEXT = 6
    integer(C_SHORT), parameter, public :: SQL_DIAG_DYNAMIC_FUNCTION = 7
    integer(C_SHORT), parameter, public :: SQL_DIAG_CLASS_ORIGIN = 8
    integer(C_SHORT), parameter, public :: SQL_DIAG_SUBCLASS_ORIGIN = 9
    integer(C_SHORT), parameter, public :: SQL_DIAG_CONNECTION_NAME = 10
    integer(C_SHORT), parameter, public :: SQL_DIAG_SERVER_NAME = 11
    integer(C_SHORT), parameter, public :: SQL_DIAG_DYNAMIC_FUNCTION_CODE = 12
    integer(C_SHORT), parameter, public :: SQL_DIAG_ALTER_DOMAIN = 3
    integer(C_SHORT), parameter, public :: SQL_DIAG_ALTER_TABLE = 4
    integer(C_SHORT), parameter, public :: SQL_DIAG_CALL = 7
    integer(C_SHORT), parameter, public :: SQL_DIAG_CREATE_ASSERTION = 6
    integer(C_SHORT), parameter, public :: SQL_DIAG_CREATE_CHARACTER_SET = 8
    integer(C_SHORT), parameter, public :: SQL_DIAG_CREATE_COLLATION = 10
    integer(C_SHORT), parameter, public :: SQL_DIAG_CREATE_DOMAIN = 23
    integer(C_SHORT), parameter, public :: SQL_DIAG_CREATE_INDEX = -1
    integer(C_SHORT), parameter, public :: SQL_DIAG_CREATE_SCHEMA = 64
    integer(C_SHORT), parameter, public :: SQL_DIAG_CREATE_TABLE = 77
    integer(C_SHORT), parameter, public :: SQL_DIAG_CREATE_TRANSLATION = 79
    integer(C_SHORT), parameter, public :: SQL_DIAG_CREATE_VIEW = 84
    integer(C_SHORT), parameter, public :: SQL_DIAG_DELETE_WHERE = 19
    integer(C_SHORT), parameter, public :: SQL_DIAG_DROP_ASSERTION = 24
    integer(C_SHORT), parameter, public :: SQL_DIAG_DROP_CHARACTER_SET = 25
    integer(C_SHORT), parameter, public :: SQL_DIAG_DROP_COLLATION = 26
    integer(C_SHORT), parameter, public :: SQL_DIAG_DROP_DOMAIN = 27
    integer(C_SHORT), parameter, public :: SQL_DIAG_DROP_INDEX = -2
    integer(C_SHORT), parameter, public :: SQL_DIAG_DROP_SCHEMA = 31
    integer(C_SHORT), parameter, public :: SQL_DIAG_DROP_TABLE = 32
    integer(C_SHORT), parameter, public :: SQL_DIAG_DROP_TRANSLATION = 33
    integer(C_SHORT), parameter, public :: SQL_DIAG_DROP_VIEW = 36
    integer(C_SHORT), parameter, public :: SQL_DIAG_DYNAMIC_DELETE_CURSOR = 38
    integer(C_SHORT), parameter, public :: SQL_DIAG_DYNAMIC_UPDATE_CURSOR = 81
    integer(C_SHORT), parameter, public :: SQL_DIAG_GRANT = 48
    integer(C_SHORT), parameter, public :: SQL_DIAG_INSERT = 50
    integer(C_SHORT), parameter, public :: SQL_DIAG_REVOKE = 59
    integer(C_SHORT), parameter, public :: SQL_DIAG_SELECT_CURSOR = 85
    integer(C_SHORT), parameter, public :: SQL_DIAG_UNKNOWN_STATEMENT = 0
    integer(C_SHORT), parameter, public :: SQL_DIAG_UPDATE_WHERE = 82
    integer(C_SHORT), parameter, public :: SQL_UNKNOWN_TYPE = 0
    integer(C_SHORT), parameter, public :: SQL_CHAR = 1
    integer(C_SHORT), parameter, public :: SQL_NUMERIC = 2
    integer(C_SHORT), parameter, public :: SQL_DECIMAL = 3
    integer(C_SHORT), parameter, public :: SQL_INTEGER = 4
    integer(C_SHORT), parameter, public :: SQL_SMALLINT = 5
    integer(C_SHORT), parameter, public :: SQL_FLOAT = 6
    integer(C_SHORT), parameter, public :: SQL_REAL = 7
    integer(C_SHORT), parameter, public :: SQL_DOUBLE = 8
    integer(C_SHORT), parameter, public :: SQL_DATETIME = 9
    integer(C_SHORT), parameter, public :: SQL_VARCHAR = 12
    integer(C_SHORT), parameter, public :: SQL_TYPE_DATE = 91
    integer(C_SHORT), parameter, public :: SQL_TYPE_TIME = 92
    integer(C_SHORT), parameter, public :: SQL_TYPE_TIMESTAMP = 93
    integer(C_SHORT), parameter, public :: SQL_UNSPECIFIED = 0
    integer(C_SHORT), parameter, public :: SQL_INSENSITIVE = 1
    integer(C_SHORT), parameter, public :: SQL_SENSITIVE = 2
    integer(C_SHORT), parameter, public :: SQL_ALL_TYPES = 0
    integer(C_SHORT), parameter, public :: SQL_DEFAULT = 99
    integer(C_SHORT), parameter, public :: SQL_ARD_TYPE = -99
    integer(C_SHORT), parameter, public :: SQL_CODE_DATE = 1
    integer(C_SHORT), parameter, public :: SQL_CODE_TIME = 2
    integer(C_SHORT), parameter, public :: SQL_CODE_TIMESTAMP = 3
    integer(C_SHORT), parameter, public :: SQL_FALSE = 0
    integer(C_SHORT), parameter, public :: SQL_TRUE = 1
    integer(C_SHORT), parameter, public :: SQL_NO_NULLS = 0
    integer(C_SHORT), parameter, public :: SQL_NULLABLE = 1
    integer(C_SHORT), parameter, public :: SQL_NULLABLE_UNKNOWN = 2
    integer(C_SHORT), parameter, public :: SQL_PRED_NONE = 0
    integer(C_SHORT), parameter, public :: SQL_PRED_CHAR = 1
    integer(C_SHORT), parameter, public :: SQL_PRED_BASIC = 2
    integer(C_SHORT), parameter, public :: SQL_NAMED = 0
    integer(C_SHORT), parameter, public :: SQL_UNNAMED = 1
    integer(C_SHORT), parameter, public :: SQL_DESC_ALLOC_AUTO = 1
    integer(C_SHORT), parameter, public :: SQL_DESC_ALLOC_USER = 2
    integer(C_SHORT), parameter, public :: SQL_CLOSE = 0
    integer(C_SHORT), parameter, public :: SQL_DROP = 1
    integer(C_SHORT), parameter, public :: SQL_UNBIND = 2
    integer(C_SHORT), parameter, public :: SQL_RESET_PARAMS = 3
    integer(C_SHORT), parameter, public :: SQL_FETCH_NEXT = 1
    integer(C_SHORT), parameter, public :: SQL_FETCH_FIRST = 2
    integer(C_SHORT), parameter, public :: SQL_FETCH_LAST = 3
    integer(C_SHORT), parameter, public :: SQL_FETCH_PRIOR = 4
    integer(C_SHORT), parameter, public :: SQL_FETCH_ABSOLUTE = 5
    integer(C_SHORT), parameter, public :: SQL_FETCH_RELATIVE = 6
    integer(C_SHORT), parameter, public :: SQL_COMMIT = 0
    integer(C_SHORT), parameter, public :: SQL_ROLLBACK = 1
    integer(C_SHORT), parameter, public :: SQL_NULL_HENV = 0
    integer(C_SHORT), parameter, public :: SQL_NULL_HDBC = 0
    integer(C_SHORT), parameter, public :: SQL_NULL_HSTMT = 0
    integer(C_SHORT), parameter, public :: SQL_NULL_HDESC = 0
    integer(C_SHORT), parameter, public :: SQL_NULL_DESC = 0
    type(C_PTR), parameter, public :: SQL_NULL_HANDLE = c_null_ptr
    integer(C_SHORT), parameter, public :: SQL_SCOPE_CURROW = 0
    integer(C_SHORT), parameter, public :: SQL_SCOPE_TRANSACTION = 1
    integer(C_SHORT), parameter, public :: SQL_SCOPE_SESSION = 2
    integer(C_SHORT), parameter, public :: SQL_PC_UNKNOWN = 0
    integer(C_SHORT), parameter, public :: SQL_PC_NON_PSEUDO = 1
    integer(C_SHORT), parameter, public :: SQL_PC_PSEUDO = 2
    integer(C_SHORT), parameter, public :: SQL_ROW_IDENTIFIER = 1
    integer(C_SHORT), parameter, public :: SQL_INDEX_UNIQUE = 0
    integer(C_SHORT), parameter, public :: SQL_INDEX_ALL = 1
    integer(C_SHORT), parameter, public :: SQL_INDEX_CLUSTERED = 1
    integer(C_SHORT), parameter, public :: SQL_INDEX_HASHED = 2
    integer(C_SHORT), parameter, public :: SQL_INDEX_OTHER = 3
    integer(C_SHORT), parameter, public :: SQL_API_SQLALLOCCONNECT = 1
    integer(C_SHORT), parameter, public :: SQL_API_SQLALLOCENV = 2
    integer(C_SHORT), parameter, public :: SQL_API_SQLALLOCHANDLE = 1001
    integer(C_SHORT), parameter, public :: SQL_API_SQLALLOCSTMT = 3
    integer(C_SHORT), parameter, public :: SQL_API_SQLBINDCOL = 4
    integer(C_SHORT), parameter, public :: SQL_API_SQLBINDPARAM = 1002
    integer(C_SHORT), parameter, public :: SQL_API_SQLCANCEL = 5
    integer(C_SHORT), parameter, public :: SQL_API_SQLCLOSECURSOR = 1003
    integer(C_SHORT), parameter, public :: SQL_API_SQLCOLATTRIBUTE = 6
    integer(C_SHORT), parameter, public :: SQL_API_SQLCOLUMNS = 40
    integer(C_SHORT), parameter, public :: SQL_API_SQLCONNECT = 7
    integer(C_SHORT), parameter, public :: SQL_API_SQLCOPYDESC = 1004
    integer(C_SHORT), parameter, public :: SQL_API_SQLDATASOURCES = 57
    integer(C_SHORT), parameter, public :: SQL_API_SQLDESCRIBECOL = 8
    integer(C_SHORT), parameter, public :: SQL_API_SQLDISCONNECT = 9
    integer(C_SHORT), parameter, public :: SQL_API_SQLENDTRAN = 1005
    integer(C_SHORT), parameter, public :: SQL_API_SQLERROR = 10
    integer(C_SHORT), parameter, public :: SQL_API_SQLEXECDIRECT = 11
    integer(C_SHORT), parameter, public :: SQL_API_SQLEXECUTE = 12
    integer(C_SHORT), parameter, public :: SQL_API_SQLFETCH = 13
    integer(C_SHORT), parameter, public :: SQL_API_SQLFETCHSCROLL = 1021
    integer(C_SHORT), parameter, public :: SQL_API_SQLFREECONNECT = 14
    integer(C_SHORT), parameter, public :: SQL_API_SQLFREEENV = 15
    integer(C_SHORT), parameter, public :: SQL_API_SQLFREEHANDLE = 1006
    integer(C_SHORT), parameter, public :: SQL_API_SQLFREESTMT = 16
    integer(C_SHORT), parameter, public :: SQL_API_SQLGETCONNECTATTR = 1007
    integer(C_SHORT), parameter, public :: SQL_API_SQLGETCONNECTOPTION = 42
    integer(C_SHORT), parameter, public :: SQL_API_SQLGETCURSORNAME = 17
    integer(C_SHORT), parameter, public :: SQL_API_SQLGETDATA = 43
    integer(C_SHORT), parameter, public :: SQL_API_SQLGETDESCFIELD = 1008
    integer(C_SHORT), parameter, public :: SQL_API_SQLGETDESCREC = 1009
    integer(C_SHORT), parameter, public :: SQL_API_SQLGETDIAGFIELD = 1010
    integer(C_SHORT), parameter, public :: SQL_API_SQLGETDIAGREC = 1011
    integer(C_SHORT), parameter, public :: SQL_API_SQLGETENVATTR = 1012
    integer(C_SHORT), parameter, public :: SQL_API_SQLGETFUNCTIONS = 44
    integer(C_SHORT), parameter, public :: SQL_API_SQLGETINFO = 45
    integer(C_SHORT), parameter, public :: SQL_API_SQLGETSTMTATTR = 1014
    integer(C_SHORT), parameter, public :: SQL_API_SQLGETSTMTOPTION = 46
    integer(C_SHORT), parameter, public :: SQL_API_SQLGETTYPEINFO = 47
    integer(C_SHORT), parameter, public :: SQL_API_SQLNUMRESULTCOLS = 18
    integer(C_SHORT), parameter, public :: SQL_API_SQLPARAMDATA = 48
    integer(C_SHORT), parameter, public :: SQL_API_SQLPREPARE = 19
    integer(C_SHORT), parameter, public :: SQL_API_SQLPUTDATA = 49
    integer(C_SHORT), parameter, public :: SQL_API_SQLROWCOUNT = 20
    integer(C_SHORT), parameter, public :: SQL_API_SQLSETCONNECTATTR = 1016
    integer(C_SHORT), parameter, public :: SQL_API_SQLSETCONNECTOPTION = 50
    integer(C_SHORT), parameter, public :: SQL_API_SQLSETCURSORNAME = 21
    integer(C_SHORT), parameter, public :: SQL_API_SQLSETDESCFIELD = 1017
    integer(C_SHORT), parameter, public :: SQL_API_SQLSETDESCREC = 1018
    integer(C_SHORT), parameter, public :: SQL_API_SQLSETENVATTR = 1019
    integer(C_SHORT), parameter, public :: SQL_API_SQLSETPARAM = 22
    integer(C_SHORT), parameter, public :: SQL_API_SQLSETSTMTATTR = 1020
    integer(C_SHORT), parameter, public :: SQL_API_SQLSETSTMTOPTION = 51
    integer(C_SHORT), parameter, public :: SQL_API_SQLSPECIALCOLUMNS = 52
    integer(C_SHORT), parameter, public :: SQL_API_SQLSTATISTICS = 53
    integer(C_SHORT), parameter, public :: SQL_API_SQLTABLES = 54
    integer(C_SHORT), parameter, public :: SQL_API_SQLTRANSACT = 23
    integer(C_SHORT), parameter, public :: SQL_API_SQLCANCELHANDLE = 1022
    integer(C_SHORT), parameter, public :: SQL_MAX_DRIVER_CONNECTIONS = 0
    integer(C_SHORT), parameter, public :: SQL_MAXIMUM_DRIVER_CONNECTIONS = 0
    integer(C_SHORT), parameter, public :: SQL_MAX_CONCURRENT_ACTIVITIES = 1
    integer(C_SHORT), parameter, public :: SQL_MAXIMUM_CONCURRENT_ACTIVITIES = 1
    integer(C_SHORT), parameter, public :: SQL_DATA_SOURCE_NAME = 2
    integer(C_SHORT), parameter, public :: SQL_FETCH_DIRECTION = 8
    integer(C_SHORT), parameter, public :: SQL_SERVER_NAME = 13
    integer(C_SHORT), parameter, public :: SQL_SEARCH_PATTERN_ESCAPE = 14
    integer(C_SHORT), parameter, public :: SQL_DBMS_NAME = 17
    integer(C_SHORT), parameter, public :: SQL_DBMS_VER = 18
    integer(C_SHORT), parameter, public :: SQL_ACCESSIBLE_TABLES = 19
    integer(C_SHORT), parameter, public :: SQL_ACCESSIBLE_PROCEDURES = 20
    integer(C_SHORT), parameter, public :: SQL_CURSOR_COMMIT_BEHAVIOR = 23
    integer(C_SHORT), parameter, public :: SQL_DATA_SOURCE_READ_ONLY = 25
    integer(C_SHORT), parameter, public :: SQL_DEFAULT_TXN_ISOLATION = 26
    integer(C_SHORT), parameter, public :: SQL_IDENTIFIER_CASE = 28
    integer(C_SHORT), parameter, public :: SQL_IDENTIFIER_QUOTE_CHAR = 29
    integer(C_SHORT), parameter, public :: SQL_MAX_COLUMN_NAME_LEN = 30
    integer(C_SHORT), parameter, public :: SQL_MAXIMUM_COLUMN_NAME_LENGTH = 30
    integer(C_SHORT), parameter, public :: SQL_MAX_CURSOR_NAME_LEN = 31
    integer(C_SHORT), parameter, public :: SQL_MAXIMUM_CURSOR_NAME_LENGTH = 31
    integer(C_SHORT), parameter, public :: SQL_MAX_SCHEMA_NAME_LEN = 32
    integer(C_SHORT), parameter, public :: SQL_MAXIMUM_SCHEMA_NAME_LENGTH = 32
    integer(C_SHORT), parameter, public :: SQL_MAX_CATALOG_NAME_LEN = 34
    integer(C_SHORT), parameter, public :: SQL_MAXIMUM_CATALOG_NAME_LENGTH = 34
    integer(C_SHORT), parameter, public :: SQL_MAX_TABLE_NAME_LEN = 35
    integer(C_SHORT), parameter, public :: SQL_SCROLL_CONCURRENCY = 43
    integer(C_SHORT), parameter, public :: SQL_TXN_CAPABLE = 46
    integer(C_SHORT), parameter, public :: SQL_TRANSACTION_CAPABLE = 46
    integer(C_SHORT), parameter, public :: SQL_USER_NAME = 47
    integer(C_SHORT), parameter, public :: SQL_TXN_ISOLATION_OPTION = 72
    integer(C_SHORT), parameter, public :: SQL_TRANSACTION_ISOLATION_OPTION = 72
    integer(C_SHORT), parameter, public :: SQL_INTEGRITY = 73
    integer(C_SHORT), parameter, public :: SQL_GETDATA_EXTENSIONS = 81
    integer(C_SHORT), parameter, public :: SQL_NULL_COLLATION = 85
    integer(C_SHORT), parameter, public :: SQL_ALTER_TABLE = 86
    integer(C_SHORT), parameter, public :: SQL_ORDER_BY_COLUMNS_IN_SELECT = 90
    integer(C_SHORT), parameter, public :: SQL_SPECIAL_CHARACTERS = 94
    integer(C_SHORT), parameter, public :: SQL_MAX_COLUMNS_IN_GROUP_BY = 97
    integer(C_SHORT), parameter, public :: SQL_MAXIMUM_COLUMNS_IN_GROUP_BY = 97
    integer(C_SHORT), parameter, public :: SQL_MAX_COLUMNS_IN_INDEX = 98
    integer(C_SHORT), parameter, public :: SQL_MAXIMUM_COLUMNS_IN_INDEX = 98
    integer(C_SHORT), parameter, public :: SQL_MAX_COLUMNS_IN_ORDER_BY = 99
    integer(C_SHORT), parameter, public :: SQL_MAXIMUM_COLUMNS_IN_ORDER_BY = 99
    integer(C_SHORT), parameter, public :: SQL_MAX_COLUMNS_IN_SELECT = 100
    integer(C_SHORT), parameter, public :: SQL_MAXIMUM_COLUMNS_IN_SELECT = 100
    integer(C_SHORT), parameter, public :: SQL_MAX_COLUMNS_IN_TABLE = 101
    integer(C_SHORT), parameter, public :: SQL_MAX_INDEX_SIZE = 102
    integer(C_SHORT), parameter, public :: SQL_MAXIMUM_INDEX_SIZE = 102
    integer(C_SHORT), parameter, public :: SQL_MAX_ROW_SIZE = 104
    integer(C_SHORT), parameter, public :: SQL_MAXIMUM_ROW_SIZE = 104
    integer(C_SHORT), parameter, public :: SQL_MAX_STATEMENT_LEN = 105
    integer(C_SHORT), parameter, public :: SQL_MAXIMUM_STATEMENT_LENGTH = 105
    integer(C_SHORT), parameter, public :: SQL_MAX_TABLES_IN_SELECT = 106
    integer(C_SHORT), parameter, public :: SQL_MAXIMUM_TABLES_IN_SELECT = 106
    integer(C_SHORT), parameter, public :: SQL_MAX_USER_NAME_LEN = 107
    integer(C_SHORT), parameter, public :: SQL_MAXIMUM_USER_NAME_LENGTH = 107
    integer(C_SHORT), parameter, public :: SQL_OJ_CAPABILITIES = 115
    integer(C_SHORT), parameter, public :: SQL_OUTER_JOIN_CAPABILITIES = 115
    integer(C_SHORT), parameter, public :: SQL_XOPEN_CLI_YEAR = 10000
    integer(C_SHORT), parameter, public :: SQL_CURSOR_SENSITIVITY = 10001
    integer(C_SHORT), parameter, public :: SQL_DESCRIBE_PARAMETER = 10002
    integer(C_SHORT), parameter, public :: SQL_CATALOG_NAME = 10003
    integer(C_SHORT), parameter, public :: SQL_COLLATION_SEQ = 10004
    integer(C_SHORT), parameter, public :: SQL_MAX_IDENTIFIER_LEN = 10005
    integer(C_SHORT), parameter, public :: SQL_MAXIMUM_IDENTIFIER_LENGTH = 10005
    integer(C_LONG), parameter, public :: SQL_AT_ADD_COLUMN = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_AT_DROP_COLUMN = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_AT_ADD_CONSTRAINT = int(z'00000008', c_long)
    integer(C_SHORT), parameter, public :: SQL_CB_DELETE = 0
    integer(C_SHORT), parameter, public :: SQL_CB_CLOSE = 1
    integer(C_SHORT), parameter, public :: SQL_CB_PRESERVE = 2
    integer(C_LONG), parameter, public :: SQL_FD_FETCH_NEXT = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_FD_FETCH_FIRST = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_FD_FETCH_LAST = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_FD_FETCH_PRIOR = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_FD_FETCH_ABSOLUTE = int(z'00000010', c_long)
    integer(C_LONG), parameter, public :: SQL_FD_FETCH_RELATIVE = int(z'00000020', c_long)
    integer(C_LONG), parameter, public :: SQL_GD_ANY_COLUMN = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_GD_ANY_ORDER = int(z'00000002', c_long)
    integer(C_SHORT), parameter, public :: SQL_IC_UPPER = 1
    integer(C_SHORT), parameter, public :: SQL_IC_LOWER = 2
    integer(C_SHORT), parameter, public :: SQL_IC_SENSITIVE = 3
    integer(C_SHORT), parameter, public :: SQL_IC_MIXED = 4
    integer(C_LONG), parameter, public :: SQL_OJ_LEFT = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_OJ_RIGHT = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_OJ_FULL = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_OJ_NESTED = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_OJ_NOT_ORDERED = int(z'00000010', c_long)
    integer(C_LONG), parameter, public :: SQL_OJ_INNER = int(z'00000020', c_long)
    integer(C_LONG), parameter, public :: SQL_OJ_ALL_COMPARISON_OPS = int(z'00000040', c_long)
    integer(C_LONG), parameter, public :: SQL_SCCO_READ_ONLY = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_SCCO_LOCK = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_SCCO_OPT_ROWVER = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_SCCO_OPT_VALUES = int(z'00000008', c_long)
    integer(C_SHORT), parameter, public :: SQL_TC_NONE = 0
    integer(C_SHORT), parameter, public :: SQL_TC_DML = 1
    integer(C_SHORT), parameter, public :: SQL_TC_ALL = 2
    integer(C_SHORT), parameter, public :: SQL_TC_DDL_COMMIT = 3
    integer(C_SHORT), parameter, public :: SQL_TC_DDL_IGNORE = 4
    integer(C_LONG), parameter, public :: SQL_TXN_READ_UNCOMMITTED = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_TRANSACTION_READ_UNCOMMITTED = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_TXN_READ_COMMITTED = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_TRANSACTION_READ_COMMITTED = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_TXN_REPEATABLE_READ = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_TRANSACTION_REPEATABLE_READ = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_TXN_SERIALIZABLE = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_TRANSACTION_SERIALIZABLE = int(z'00000008', c_long)
    integer(C_SHORT), parameter, public :: SQL_NC_HIGH = 0
    integer(C_SHORT), parameter, public :: SQL_NC_LOW = 1
 
    !from sqlext.h
    integer(C_SHORT), parameter, public :: SQLTables_TABLE_CATALOG = 1
    integer(C_SHORT), parameter, public :: SQLTables_TABLE_SCHEM = 2
    integer(C_SHORT), parameter, public :: SQLTables_TABLE_NAME = 3
    integer(C_SHORT), parameter, public :: SQLTables_TABLE_TYPE = 4
    integer(C_SHORT), parameter, public :: SQLTables_REMARKS = 5
    integer(C_SHORT), parameter, public :: SQLColumns_TABLE_CAT = 1
    integer(C_SHORT), parameter, public :: SQLColumns_TABLE_SCHEM = 2
    integer(C_SHORT), parameter, public :: SQLColumns_TABLE_NAME = 3
    integer(C_SHORT), parameter, public :: SQLColumns_COLUMN_NAME = 4
    integer(C_SHORT), parameter, public :: SQLColumns_DATA_TYPE = 5
    integer(C_SHORT), parameter, public :: SQLColumns_TYPE_NAME = 6
    integer(C_SHORT), parameter, public :: SQLColumns_COLUMN_SIZE = 7
    integer(C_SHORT), parameter, public :: SQLColumns_BUFFER_LENGTH = 8
    integer(C_SHORT), parameter, public :: SQLColumns_DECIMAL_DIGITS = 9
    integer(C_SHORT), parameter, public :: SQLColumns_NUM_PREC_RADIX = 10
    integer(C_SHORT), parameter, public :: SQLColumns_NULLABLE = 11
    integer(C_SHORT), parameter, public :: SQLColumns_REMARKS = 12
    integer(C_SHORT), parameter, public :: SQLColumns_COLUMN_DEF = 13
    integer(C_SHORT), parameter, public :: SQLColumns_SQL_DATA_TYPE = 14
    integer(C_SHORT), parameter, public :: SQLColumns_SQL_DATETIME_SUB = 15
    integer(C_SHORT), parameter, public :: SQLColumns_CHAR_OCTET_LENGTH = 16
    integer(C_SHORT), parameter, public :: SQLColumns_ORDINAL_POSITION = 17
    integer(C_SHORT), parameter, public :: SQLColumns_IS_NULLABLE = 18
    integer(C_SHORT), parameter, public :: SQL_SPEC_MAJOR = 3
    integer(C_SHORT), parameter, public :: SQL_SPEC_MINOR = 52
    character(kind=C_CHAR, len=*), parameter, public :: SQL_SPEC_STRING = "03.52"
    integer(C_SHORT), parameter, public :: SQL_SQLSTATE_SIZE = 5
    integer(C_SHORT), parameter, public :: SQL_MAX_DSN_LENGTH = 32
    integer(C_SHORT), parameter, public :: SQL_MAX_OPTION_STRING_LENGTH = 256
    integer(C_SHORT), parameter, public :: SQL_HANDLE_SENV = 5
    integer(C_INT), parameter, public :: SQL_ATTR_ODBC_VERSION = 200
    integer(C_INT), parameter, public :: SQL_ATTR_CONNECTION_POOLING = 201
    integer(C_INT), parameter, public :: SQL_ATTR_CP_MATCH = 202
    integer(C_INT), parameter, public :: SQL_ATTR_UNIXODBC_SYSPATH = 65001
    integer(C_INT), parameter, public :: SQL_ATTR_UNIXODBC_VERSION = 65002
    integer(C_INT), parameter, public :: SQL_ATTR_UNIXODBC_ENVATTR = 65003
    integer(C_LONG), parameter, public :: SQL_CP_OFF = 0
    integer(C_LONG), parameter, public :: SQL_CP_ONE_PER_DRIVER = 1
    integer(C_LONG), parameter, public :: SQL_CP_ONE_PER_HENV = 2
    integer(C_LONG), parameter, public :: SQL_CP_DEFAULT = 0
    integer(C_LONG), parameter, public :: SQL_CP_STRICT_MATCH = 0
    integer(C_LONG), parameter, public :: SQL_CP_RELAXED_MATCH = 1
    integer(C_LONG), parameter, public :: SQL_CP_MATCH_DEFAULT = 0
    integer(C_LONG_LONG), parameter, public :: SQL_OV_ODBC2 = 2
    integer(C_LONG_LONG), parameter, public :: SQL_OV_ODBC3 = 3
    integer(C_LONG), parameter, public :: SQL_OV_ODBC3_80 = 380
    integer(C_LONG), parameter, public :: SQL_ACCESS_MODE = 101
    integer(C_LONG), parameter, public :: SQL_AUTOCOMMIT = 102
    integer(C_LONG), parameter, public :: SQL_LOGIN_TIMEOUT = 103
    integer(C_LONG), parameter, public :: SQL_OPT_TRACE = 104
    integer(C_LONG), parameter, public :: SQL_OPT_TRACEFILE = 105
    integer(C_LONG), parameter, public :: SQL_TRANSLATE_DLL = 106
    integer(C_LONG), parameter, public :: SQL_TRANSLATE_OPTION = 107
    integer(C_LONG), parameter, public :: SQL_TXN_ISOLATION = 108
    integer(C_LONG), parameter, public :: SQL_CURRENT_QUALIFIER = 109
    integer(C_LONG), parameter, public :: SQL_ODBC_CURSORS = 110
    integer(C_LONG), parameter, public :: SQL_QUIET_MODE = 111
    integer(C_LONG), parameter, public :: SQL_PACKET_SIZE = 112
    integer(C_INT), parameter, public :: SQL_ATTR_ACCESS_MODE = 101
    integer(C_INT), parameter, public :: SQL_ATTR_AUTOCOMMIT = 102
    integer(C_INT), parameter, public :: SQL_ATTR_CONNECTION_TIMEOUT = 113
    integer(C_INT), parameter, public :: SQL_ATTR_CURRENT_CATALOG = 109
    integer(C_INT), parameter, public :: SQL_ATTR_DISCONNECT_BEHAVIOR = 114
    integer(C_INT), parameter, public :: SQL_ATTR_ENLIST_IN_DTC = 1207
    integer(C_INT), parameter, public :: SQL_ATTR_ENLIST_IN_XA = 1208
    integer(C_INT), parameter, public :: SQL_ATTR_LOGIN_TIMEOUT = 103
    integer(C_INT), parameter, public :: SQL_ATTR_ODBC_CURSORS = 110
    integer(C_INT), parameter, public :: SQL_ATTR_PACKET_SIZE = 112
    integer(C_INT), parameter, public :: SQL_ATTR_QUIET_MODE = 111
    integer(C_INT), parameter, public :: SQL_ATTR_TRACE = 104
    integer(C_INT), parameter, public :: SQL_ATTR_TRACEFILE = 105
    integer(C_INT), parameter, public :: SQL_ATTR_TRANSLATE_LIB = 106
    integer(C_INT), parameter, public :: SQL_ATTR_TRANSLATE_OPTION = 107
    integer(C_INT), parameter, public :: SQL_ATTR_TXN_ISOLATION = 108
    integer(C_INT), parameter, public :: SQL_ATTR_CONNECTION_DEAD = 1209
    integer(C_INT), parameter, public :: SQL_ATTR_DRIVER_THREADING = 1028
    integer(C_INT), parameter, public :: SQL_ATTR_ANSI_APP = 115
    integer(C_INT), parameter, public :: SQL_ATTR_RESET_CONNECTION = 116
    integer(C_INT), parameter, public :: SQL_ATTR_ASYNC_DBC_FUNCTIONS_ENABLE = 117
    integer(C_LONG), parameter, public :: SQL_MODE_READ_WRITE = 0
    integer(C_LONG), parameter, public :: SQL_MODE_READ_ONLY = 1
    integer(C_LONG), parameter, public :: SQL_MODE_DEFAULT = 0
    integer(C_LONG), parameter, public :: SQL_AUTOCOMMIT_OFF = 0
    integer(C_LONG), parameter, public :: SQL_AUTOCOMMIT_ON = 1
    integer(C_LONG), parameter, public :: SQL_AUTOCOMMIT_DEFAULT = 1
    integer(C_LONG), parameter, public :: SQL_LOGIN_TIMEOUT_DEFAULT = 15
    integer(C_LONG), parameter, public :: SQL_OPT_TRACE_OFF = 0
    integer(C_LONG), parameter, public :: SQL_OPT_TRACE_ON = 1
    integer(C_LONG), parameter, public :: SQL_OPT_TRACE_DEFAULT = 0
#ifdef _WIN32
    character(kind=C_CHAR, len=*), parameter, public :: SQL_OPT_TRACE_FILE_DEFAULT = "%TMP%/SQL.LOG"
#else
    character(kind=C_CHAR, len=*), parameter, public :: SQL_OPT_TRACE_FILE_DEFAULT = "/tmp/SQL.LOG"
#endif
    integer(C_LONG), parameter, public :: SQL_CUR_USE_IF_NEEDED = 0
    integer(C_LONG), parameter, public :: SQL_CUR_USE_ODBC = 1
    integer(C_LONG), parameter, public :: SQL_CUR_USE_DRIVER = 2
    integer(C_LONG), parameter, public :: SQL_CUR_DEFAULT = 2
    integer(C_LONG), parameter, public :: SQL_DB_RETURN_TO_POOL = 0
    integer(C_LONG), parameter, public :: SQL_DB_DISCONNECT = 1
    integer(C_LONG), parameter, public :: SQL_DB_DEFAULT = 0
    integer(C_LONG), parameter, public :: SQL_DTC_DONE = 0
    integer(C_LONG), parameter, public :: SQL_CD_TRUE = 1
    integer(C_LONG), parameter, public :: SQL_CD_FALSE = 0
    integer(C_LONG), parameter, public :: SQL_AA_TRUE = 1
    integer(C_LONG), parameter, public :: SQL_AA_FALSE = 0
    integer(C_LONG), parameter, public :: SQL_RESET_CONNECTION_YES = 1
    integer(C_LONG), parameter, public :: SQL_ASYNC_DBC_ENABLE_ON = 1
    integer(C_LONG), parameter, public :: SQL_ASYNC_DBC_ENABLE_OFF = 0
    integer(C_LONG), parameter, public :: SQL_ASYNC_DBC_ENABLE_DEFAULT = 0
    integer(C_SHORT), parameter, public :: SQL_QUERY_TIMEOUT = 0
    integer(C_SHORT), parameter, public :: SQL_MAX_ROWS = 1
    integer(C_SHORT), parameter, public :: SQL_NOSCAN = 2
    integer(C_SHORT), parameter, public :: SQL_MAX_LENGTH = 3
    integer(C_SHORT), parameter, public :: SQL_ASYNC_ENABLE = 4
    integer(C_SHORT), parameter, public :: SQL_BIND_TYPE = 5
    integer(C_SHORT), parameter, public :: SQL_CURSOR_TYPE = 6
    integer(C_SHORT), parameter, public :: SQL_CONCURRENCY = 7
    integer(C_SHORT), parameter, public :: SQL_KEYSET_SIZE = 8
    integer(C_SHORT), parameter, public :: SQL_ROWSET_SIZE = 9
    integer(C_SHORT), parameter, public :: SQL_SIMULATE_CURSOR = 10
    integer(C_SHORT), parameter, public :: SQL_RETRIEVE_DATA = 11
    integer(C_SHORT), parameter, public :: SQL_USE_BOOKMARKS = 12
    integer(C_SHORT), parameter, public :: SQL_GET_BOOKMARK = 13
    integer(C_SHORT), parameter, public :: SQL_ROW_NUMBER = 14
    integer(C_INT), parameter, public :: SQL_ATTR_ASYNC_ENABLE = 4
    integer(C_INT), parameter, public :: SQL_ATTR_CONCURRENCY = 7
    integer(C_INT), parameter, public :: SQL_ATTR_CURSOR_TYPE = 6
    integer(C_INT), parameter, public :: SQL_ATTR_ENABLE_AUTO_IPD = 15
    integer(C_INT), parameter, public :: SQL_ATTR_FETCH_BOOKMARK_PTR = 16
    integer(C_INT), parameter, public :: SQL_ATTR_KEYSET_SIZE = 8
    integer(C_INT), parameter, public :: SQL_ATTR_MAX_LENGTH = 3
    integer(C_INT), parameter, public :: SQL_ATTR_MAX_ROWS = 1
    integer(C_INT), parameter, public :: SQL_ATTR_NOSCAN = 2
    integer(C_INT), parameter, public :: SQL_ATTR_PARAM_BIND_OFFSET_PTR = 17
    integer(C_INT), parameter, public :: SQL_ATTR_PARAM_BIND_TYPE = 18
    integer(C_INT), parameter, public :: SQL_ATTR_PARAM_OPERATION_PTR = 19
    integer(C_INT), parameter, public :: SQL_ATTR_PARAM_STATUS_PTR = 20
    integer(C_INT), parameter, public :: SQL_ATTR_PARAMS_PROCESSED_PTR = 21
    integer(C_INT), parameter, public :: SQL_ATTR_PARAMSET_SIZE = 22
    integer(C_INT), parameter, public :: SQL_ATTR_QUERY_TIMEOUT = 0
    integer(C_INT), parameter, public :: SQL_ATTR_RETRIEVE_DATA = 11
    integer(C_INT), parameter, public :: SQL_ATTR_ROW_BIND_OFFSET_PTR = 23
    integer(C_INT), parameter, public :: SQL_ATTR_ROW_BIND_TYPE = 5
    integer(C_INT), parameter, public :: SQL_ATTR_ROW_NUMBER = 14
    integer(C_INT), parameter, public :: SQL_ATTR_ROW_OPERATION_PTR = 24
    integer(C_INT), parameter, public :: SQL_ATTR_ROW_STATUS_PTR = 25
    integer(C_INT), parameter, public :: SQL_ATTR_ROWS_FETCHED_PTR = 26
    integer(C_INT), parameter, public :: SQL_ATTR_ROW_ARRAY_SIZE = 27
    integer(C_INT), parameter, public :: SQL_ATTR_SIMULATE_CURSOR = 10
    integer(C_INT), parameter, public :: SQL_ATTR_USE_BOOKMARKS = 12
    integer(C_INT), parameter, public :: SQL_ATTR_ASYNC_STMT_EVENT = 29
    integer(C_INT), parameter, public :: SQL_IS_POINTER = -4
    integer(C_INT), parameter, public :: SQL_IS_UINTEGER = -5
    integer(C_INT), parameter, public :: SQL_IS_INTEGER = -6
    integer(C_INT), parameter, public :: SQL_IS_USMALLINT = -7
    integer(C_INT), parameter, public :: SQL_IS_SMALLINT = -8
    integer(C_LONG), parameter, public :: SQL_PARAM_BIND_BY_COLUMN = 0
    integer(C_LONG), parameter, public :: SQL_PARAM_BIND_TYPE_DEFAULT = 0
    integer(C_LONG), parameter, public :: SQL_QUERY_TIMEOUT_DEFAULT = 0
    integer(C_LONG), parameter, public :: SQL_MAX_ROWS_DEFAULT = 0
    integer(C_LONG), parameter, public :: SQL_NOSCAN_OFF = 0
    integer(C_LONG), parameter, public :: SQL_NOSCAN_ON = 1
    integer(C_LONG), parameter, public :: SQL_NOSCAN_DEFAULT = 0
    integer(C_LONG), parameter, public :: SQL_MAX_LENGTH_DEFAULT = 0
    integer(C_LONG), parameter, public :: SQL_ASYNC_ENABLE_OFF = 0
    integer(C_LONG), parameter, public :: SQL_ASYNC_ENABLE_ON = 1
    integer(C_LONG), parameter, public :: SQL_ASYNC_ENABLE_DEFAULT = 0
    integer(C_LONG), parameter, public :: SQL_BIND_BY_COLUMN = 0
    integer(C_LONG), parameter, public :: SQL_BIND_TYPE_DEFAULT = 0
    integer(C_SHORT), parameter, public :: SQL_CONCUR_READ_ONLY = 1
    integer(C_SHORT), parameter, public :: SQL_CONCUR_LOCK = 2
    integer(C_SHORT), parameter, public :: SQL_CONCUR_ROWVER = 3
    integer(C_SHORT), parameter, public :: SQL_CONCUR_VALUES = 4
    integer(C_SHORT), parameter, public :: SQL_CONCUR_DEFAULT = 1
    integer(C_LONG), parameter, public :: SQL_CURSOR_FORWARD_ONLY = 0
    integer(C_LONG), parameter, public :: SQL_CURSOR_KEYSET_DRIVEN = 1
    integer(C_LONG), parameter, public :: SQL_CURSOR_DYNAMIC = 2
    integer(C_LONG), parameter, public :: SQL_CURSOR_STATIC = 3
    integer(C_LONG), parameter, public :: SQL_CURSOR_TYPE_DEFAULT = 0
    integer(C_LONG), parameter, public :: SQL_ROWSET_SIZE_DEFAULT = 1
    integer(C_LONG), parameter, public :: SQL_KEYSET_SIZE_DEFAULT = 0
    integer(C_LONG), parameter, public :: SQL_SC_NON_UNIQUE = 0
    integer(C_LONG), parameter, public :: SQL_SC_TRY_UNIQUE = 1
    integer(C_LONG), parameter, public :: SQL_SC_UNIQUE = 2
    integer(C_LONG), parameter, public :: SQL_RD_OFF = 0
    integer(C_LONG), parameter, public :: SQL_RD_ON = 1
    integer(C_LONG), parameter, public :: SQL_RD_DEFAULT = 1
    integer(C_LONG), parameter, public :: SQL_UB_OFF = 0
    integer(C_LONG), parameter, public :: SQL_UB_ON = 01
    integer(C_LONG), parameter, public :: SQL_UB_DEFAULT = 0
    integer(C_LONG), parameter, public :: SQL_UB_FIXED = 01
    integer(C_LONG), parameter, public :: SQL_UB_VARIABLE = 2
    integer(C_SHORT), parameter, public :: SQL_DESC_ARRAY_SIZE = 20
    integer(C_SHORT), parameter, public :: SQL_DESC_ARRAY_STATUS_PTR = 21
    integer(C_SHORT), parameter, public :: SQL_DESC_BASE_COLUMN_NAME = 22
    integer(C_SHORT), parameter, public :: SQL_DESC_BASE_TABLE_NAME = 23
    integer(C_SHORT), parameter, public :: SQL_DESC_BIND_OFFSET_PTR = 24
    integer(C_SHORT), parameter, public :: SQL_DESC_BIND_TYPE = 25
    integer(C_SHORT), parameter, public :: SQL_DESC_DATETIME_INTERVAL_PRECISION = 26
    integer(C_SHORT), parameter, public :: SQL_DESC_LITERAL_PREFIX = 27
    integer(C_SHORT), parameter, public :: SQL_DESC_LITERAL_SUFFIX = 28
    integer(C_SHORT), parameter, public :: SQL_DESC_LOCAL_TYPE_NAME = 29
    integer(C_SHORT), parameter, public :: SQL_DESC_MAXIMUM_SCALE = 30
    integer(C_SHORT), parameter, public :: SQL_DESC_MINIMUM_SCALE = 31
    integer(C_SHORT), parameter, public :: SQL_DESC_NUM_PREC_RADIX = 32
    integer(C_SHORT), parameter, public :: SQL_DESC_PARAMETER_TYPE = 33
    integer(C_SHORT), parameter, public :: SQL_DESC_ROWS_PROCESSED_PTR = 34
    integer(C_SHORT), parameter, public :: SQL_DESC_ROWVER = 35
    integer(C_SHORT), parameter, public :: SQL_DIAG_CURSOR_ROW_COUNT = -1249
    integer(C_SHORT), parameter, public :: SQL_DIAG_ROW_NUMBER = -1248
    integer(C_SHORT), parameter, public :: SQL_DIAG_COLUMN_NUMBER = -1247
    integer(C_SHORT), parameter, public :: SQL_DATE = 9
    integer(C_SHORT), parameter, public :: SQL_INTERVAL = 10
    integer(C_SHORT), parameter, public :: SQL_TIME = 10
    integer(C_SHORT), parameter, public :: SQL_TIMESTAMP = 11
    integer(C_SHORT), parameter, public :: SQL_LONGVARCHAR = -1
    integer(C_SHORT), parameter, public :: SQL_BINARY = -2
    integer(C_SHORT), parameter, public :: SQL_VARBINARY = -3
    integer(C_SHORT), parameter, public :: SQL_LONGVARBINARY = -4
    integer(C_SHORT), parameter, public :: SQL_BIGINT = -5
    integer(C_SHORT), parameter, public :: SQL_TINYINT = -6
    integer(C_SHORT), parameter, public :: SQL_BIT = -7
    integer(C_SHORT), parameter, public :: SQL_GUID = -11
    integer(C_SHORT), parameter, public :: SQL_CODE_YEAR = 1
    integer(C_SHORT), parameter, public :: SQL_CODE_MONTH = 2
    integer(C_SHORT), parameter, public :: SQL_CODE_DAY = 3
    integer(C_SHORT), parameter, public :: SQL_CODE_HOUR = 4
    integer(C_SHORT), parameter, public :: SQL_CODE_MINUTE = 5
    integer(C_SHORT), parameter, public :: SQL_CODE_SECOND = 6
    integer(C_SHORT), parameter, public :: SQL_CODE_YEAR_TO_MONTH = 7
    integer(C_SHORT), parameter, public :: SQL_CODE_DAY_TO_HOUR = 8
    integer(C_SHORT), parameter, public :: SQL_CODE_DAY_TO_MINUTE = 9
    integer(C_SHORT), parameter, public :: SQL_CODE_DAY_TO_SECOND = 10
    integer(C_SHORT), parameter, public :: SQL_CODE_HOUR_TO_MINUTE = 11
    integer(C_SHORT), parameter, public :: SQL_CODE_HOUR_TO_SECOND = 12
    integer(C_SHORT), parameter, public :: SQL_CODE_MINUTE_TO_SECOND = 13
    integer(C_SHORT), parameter, public :: SQL_INTERVAL_YEAR = 100+1
    integer(C_SHORT), parameter, public :: SQL_INTERVAL_MONTH = 100+2
    integer(C_SHORT), parameter, public :: SQL_INTERVAL_DAY = 100+3
    integer(C_SHORT), parameter, public :: SQL_INTERVAL_HOUR = 100+4
    integer(C_SHORT), parameter, public :: SQL_INTERVAL_MINUTE = 100+5
    integer(C_SHORT), parameter, public :: SQL_INTERVAL_SECOND = 100+6
    integer(C_SHORT), parameter, public :: SQL_INTERVAL_YEAR_TO_MONTH = 100+7
    integer(C_SHORT), parameter, public :: SQL_INTERVAL_DAY_TO_HOUR = 100+8
    integer(C_SHORT), parameter, public :: SQL_INTERVAL_DAY_TO_MINUTE = 100+9
    integer(C_SHORT), parameter, public :: SQL_INTERVAL_DAY_TO_SECOND = 100+10
    integer(C_SHORT), parameter, public :: SQL_INTERVAL_HOUR_TO_MINUTE = 100+11
    integer(C_SHORT), parameter, public :: SQL_INTERVAL_HOUR_TO_SECOND = 100+12
    integer(C_SHORT), parameter, public :: SQL_INTERVAL_MINUTE_TO_SECOND = 100+13
    integer(C_SHORT), parameter, public :: SQL_C_DEFAULT = 99
    integer(C_SHORT), parameter, public :: SQL_SIGNED_OFFSET = -20
    integer(C_SHORT), parameter, public :: SQL_UNSIGNED_OFFSET = -22
    integer(C_SHORT), parameter, public :: SQL_C_DATE = 9
    integer(C_SHORT), parameter, public :: SQL_C_TIME = 10
    integer(C_SHORT), parameter, public :: SQL_C_TIMESTAMP = 11
    integer(C_SHORT), parameter, public :: SQL_C_INTERVAL_YEAR = 100+1
    integer(C_SHORT), parameter, public :: SQL_C_INTERVAL_MONTH = 100+2
    integer(C_SHORT), parameter, public :: SQL_C_INTERVAL_DAY = 100+3
    integer(C_SHORT), parameter, public :: SQL_C_INTERVAL_HOUR = 100+4
    integer(C_SHORT), parameter, public :: SQL_C_INTERVAL_MINUTE = 100+5
    integer(C_SHORT), parameter, public :: SQL_C_INTERVAL_SECOND = 100+6
    integer(C_SHORT), parameter, public :: SQL_C_INTERVAL_YEAR_TO_MONTH = 100+7
    integer(C_SHORT), parameter, public :: SQL_C_INTERVAL_DAY_TO_HOUR = 100+8
    integer(C_SHORT), parameter, public :: SQL_C_INTERVAL_DAY_TO_MINUTE = 100+9
    integer(C_SHORT), parameter, public :: SQL_C_INTERVAL_DAY_TO_SECOND = 100+10
    integer(C_SHORT), parameter, public :: SQL_C_INTERVAL_HOUR_TO_MINUTE = 100+11
    integer(C_SHORT), parameter, public :: SQL_C_INTERVAL_HOUR_TO_SECOND = 100+12
    integer(C_SHORT), parameter, public :: SQL_C_INTERVAL_MINUTE_TO_SECOND = 100+13
    integer(C_SHORT), parameter, public :: SQL_C_BINARY = -2
    integer(C_SHORT), parameter, public :: SQL_C_BIT = -7
    integer(C_SHORT), parameter, public :: SQL_C_SBIGINT = -5 - 20
    integer(C_SHORT), parameter, public :: SQL_C_UBIGINT = -5 - 22
    integer(C_SHORT), parameter, public :: SQL_C_TINYINT = -6
    integer(C_SHORT), parameter, public :: SQL_C_STINYINT = -6 - 20
    integer(C_SHORT), parameter, public :: SQL_C_UTINYINT = -6 - 22
    integer(C_SHORT), parameter, public :: SQL_C_GUID = -11
    integer(C_SHORT), parameter, public :: SQL_TYPE_NULL = 0
    integer(C_SHORT), parameter, public :: SQL_DRIVER_C_TYPE_BASE = int(z'4000',c_short)
    integer(C_SHORT), parameter, public :: SQL_DRIVER_SQL_TYPE_BASE = int(z'4000',c_short)
    integer(C_SHORT), parameter, public :: SQL_DRIVER_DESC_FIELD_BASE = int(z'4000',c_short)
    integer(C_SHORT), parameter, public :: SQL_DRIVER_DIAG_FIELD_BASE = int(z'4000',c_short)
    integer(C_SHORT), parameter, public :: SQL_DRIVER_INFO_TYPE_BASE = int(z'4000',c_short)
    integer(C_SHORT), parameter, public :: SQL_DRIVER_CONN_ATTR_BASE = int(z'00004000',c_short)
    integer(C_SHORT), parameter, public :: SQL_DRIVER_STMT_ATTR_BASE = int(z'00004000',c_short)
    integer(C_SHORT), parameter, public :: SQL_C_VARBOOKMARK = -2
    integer(C_SHORT), parameter, public :: SQL_NO_ROW_NUMBER = -1
    integer(C_SHORT), parameter, public :: SQL_NO_COLUMN_NUMBER = -1
    integer(C_SHORT), parameter, public :: SQL_ROW_NUMBER_UNKNOWN = -2
    integer(C_SHORT), parameter, public :: SQL_COLUMN_NUMBER_UNKNOWN = -2
    integer(C_SHORT), parameter, public :: SQL_DEFAULT_PARAM = -5
    integer(C_SHORT), parameter, public :: SQL_IGNORE = -6
    integer(C_SHORT), parameter, public :: SQL_COLUMN_IGNORE = -6
    integer(C_SHORT), parameter, public :: SQL_LEN_DATA_AT_EXEC_OFFSET = -100
    integer(C_SHORT), parameter, public :: SQL_LEN_BINARY_ATTR_OFFSET = -100
    integer(C_LONG), parameter, public :: SQL_SETPARAM_VALUE_MAX = -1
    integer(C_SHORT), parameter, public :: SQL_COLUMN_COUNT = 0
    integer(C_SHORT), parameter, public :: SQL_COLUMN_NAME = 1
    integer(C_SHORT), parameter, public :: SQL_COLUMN_TYPE = 2
    integer(C_SHORT), parameter, public :: SQL_COLUMN_LENGTH = 3
    integer(C_SHORT), parameter, public :: SQL_COLUMN_PRECISION = 4
    integer(C_SHORT), parameter, public :: SQL_COLUMN_SCALE = 5
    integer(C_SHORT), parameter, public :: SQL_COLUMN_DISPLAY_SIZE = 6
    integer(C_SHORT), parameter, public :: SQL_COLUMN_NULLABLE = 7
    integer(C_SHORT), parameter, public :: SQL_COLUMN_UNSIGNED = 8
    integer(C_SHORT), parameter, public :: SQL_COLUMN_MONEY = 9
    integer(C_SHORT), parameter, public :: SQL_COLUMN_UPDATABLE = 10
    integer(C_SHORT), parameter, public :: SQL_COLUMN_AUTO_INCREMENT = 11
    integer(C_SHORT), parameter, public :: SQL_COLUMN_CASE_SENSITIVE = 12
    integer(C_SHORT), parameter, public :: SQL_COLUMN_SEARCHABLE = 13
    integer(C_SHORT), parameter, public :: SQL_COLUMN_TYPE_NAME = 14
    integer(C_SHORT), parameter, public :: SQL_COLUMN_TABLE_NAME = 15
    integer(C_SHORT), parameter, public :: SQL_COLUMN_OWNER_NAME = 16
    integer(C_SHORT), parameter, public :: SQL_COLUMN_QUALIFIER_NAME = 17
    integer(C_SHORT), parameter, public :: SQL_COLUMN_LABEL = 18
    integer(C_SHORT), parameter, public :: SQL_COLATT_OPT_MAX = 18
    integer(C_SHORT), parameter, public :: SQL_COLATT_OPT_MIN = 0
    integer(C_INT), parameter, public :: SQL_ATTR_READONLY = 0
    integer(C_INT), parameter, public :: SQL_ATTR_WRITE = 1
    integer(C_INT), parameter, public :: SQL_ATTR_READWRITE_UNKNOWN = 2
    integer(C_SHORT), parameter, public :: SQL_UNSEARCHABLE = 0
    integer(C_SHORT), parameter, public :: SQL_LIKE_ONLY = 1
    integer(C_SHORT), parameter, public :: SQL_ALL_EXCEPT_LIKE = 2
    integer(C_SHORT), parameter, public :: SQL_SEARCHABLE = 3
    integer(C_SHORT), parameter, public :: SQL_PRED_SEARCHABLE = 3
    integer(C_SHORT), parameter, public :: SQL_NO_TOTAL = -4
    integer(C_SHORT), parameter, public :: SQL_API_SQLALLOCHANDLESTD = 73
    integer(C_SHORT), parameter, public :: SQL_API_SQLBULKOPERATIONS = 24
    integer(C_SHORT), parameter, public :: SQL_API_SQLBINDPARAMETER = 72
    integer(C_SHORT), parameter, public :: SQL_API_SQLBROWSECONNECT = 55
    integer(C_SHORT), parameter, public :: SQL_API_SQLCOLATTRIBUTES = 6
    integer(C_SHORT), parameter, public :: SQL_API_SQLCOLUMNPRIVILEGES = 56
    integer(C_SHORT), parameter, public :: SQL_API_SQLDESCRIBEPARAM = 58
    integer(C_SHORT), parameter, public :: SQL_API_SQLDRIVERCONNECT = 41
    integer(C_SHORT), parameter, public :: SQL_API_SQLDRIVERS = 71
    integer(C_SHORT), parameter, public :: SQL_API_SQLEXTENDEDFETCH = 59
    integer(C_SHORT), parameter, public :: SQL_API_SQLFOREIGNKEYS = 60
    integer(C_SHORT), parameter, public :: SQL_API_SQLMORERESULTS = 61
    integer(C_SHORT), parameter, public :: SQL_API_SQLNATIVESQL = 62
    integer(C_SHORT), parameter, public :: SQL_API_SQLNUMPARAMS = 63
    integer(C_SHORT), parameter, public :: SQL_API_SQLPARAMOPTIONS = 64
    integer(C_SHORT), parameter, public :: SQL_API_SQLPRIMARYKEYS = 65
    integer(C_SHORT), parameter, public :: SQL_API_SQLPROCEDURECOLUMNS = 66
    integer(C_SHORT), parameter, public :: SQL_API_SQLPROCEDURES = 67
    integer(C_SHORT), parameter, public :: SQL_API_SQLSETPOS = 68
    integer(C_SHORT), parameter, public :: SQL_API_SQLSETSCROLLOPTIONS = 69
    integer(C_SHORT), parameter, public :: SQL_API_SQLTABLEPRIVILEGES = 70
    integer(C_SHORT), parameter, public :: SQL_API_ALL_FUNCTIONS = 0
    integer(C_SHORT), parameter, public :: SQL_API_LOADBYORDINAL = 199
    integer(C_SHORT), parameter, public :: SQL_API_ODBC3_ALL_FUNCTIONS = 999
    integer(C_SHORT), parameter, public :: SQL_API_ODBC3_ALL_FUNCTIONS_SIZE = 250
    integer(C_SHORT), parameter, public :: SQL_INFO_FIRST = 0
    integer(C_SHORT), parameter, public :: SQL_ACTIVE_CONNECTIONS = 0
    integer(C_SHORT), parameter, public :: SQL_ACTIVE_STATEMENTS = 1
    integer(C_SHORT), parameter, public :: SQL_DRIVER_HDBC = 3
    integer(C_SHORT), parameter, public :: SQL_DRIVER_HENV = 4
    integer(C_SHORT), parameter, public :: SQL_DRIVER_HSTMT = 5
    integer(C_SHORT), parameter, public :: SQL_DRIVER_NAME = 6
    integer(C_SHORT), parameter, public :: SQL_DRIVER_VER = 7
    integer(C_SHORT), parameter, public :: SQL_ODBC_API_CONFORMANCE = 9
    integer(C_SHORT), parameter, public :: SQL_ODBC_VER = 10
    integer(C_SHORT), parameter, public :: SQL_ROW_UPDATES = 11
    integer(C_SHORT), parameter, public :: SQL_ODBC_SAG_CLI_CONFORMANCE = 12
    integer(C_SHORT), parameter, public :: SQL_ODBC_SQL_CONFORMANCE = 15
    integer(C_SHORT), parameter, public :: SQL_PROCEDURES = 21
    integer(C_SHORT), parameter, public :: SQL_CONCAT_NULL_BEHAVIOR = 22
    integer(C_SHORT), parameter, public :: SQL_CURSOR_ROLLBACK_BEHAVIOR = 24
    integer(C_SHORT), parameter, public :: SQL_EXPRESSIONS_IN_ORDERBY = 27
    integer(C_SHORT), parameter, public :: SQL_MAX_OWNER_NAME_LEN = 32
    integer(C_SHORT), parameter, public :: SQL_MAX_PROCEDURE_NAME_LEN = 33
    integer(C_SHORT), parameter, public :: SQL_MAX_QUALIFIER_NAME_LEN = 34
    integer(C_SHORT), parameter, public :: SQL_MULT_RESULT_SETS = 36
    integer(C_SHORT), parameter, public :: SQL_MULTIPLE_ACTIVE_TXN = 37
    integer(C_SHORT), parameter, public :: SQL_OUTER_JOINS = 38
    integer(C_SHORT), parameter, public :: SQL_OWNER_TERM = 39
    integer(C_SHORT), parameter, public :: SQL_PROCEDURE_TERM = 40
    integer(C_SHORT), parameter, public :: SQL_QUALIFIER_NAME_SEPARATOR = 41
    integer(C_SHORT), parameter, public :: SQL_QUALIFIER_TERM = 42
    integer(C_SHORT), parameter, public :: SQL_SCROLL_OPTIONS = 44
    integer(C_SHORT), parameter, public :: SQL_TABLE_TERM = 45
    integer(C_SHORT), parameter, public :: SQL_CONVERT_FUNCTIONS = 48
    integer(C_SHORT), parameter, public :: SQL_NUMERIC_FUNCTIONS = 49
    integer(C_SHORT), parameter, public :: SQL_STRING_FUNCTIONS = 50
    integer(C_SHORT), parameter, public :: SQL_SYSTEM_FUNCTIONS = 51
    integer(C_SHORT), parameter, public :: SQL_TIMEDATE_FUNCTIONS = 52
    integer(C_SHORT), parameter, public :: SQL_CONVERT_BIGINT = 53
    integer(C_SHORT), parameter, public :: SQL_CONVERT_BINARY = 54
    integer(C_SHORT), parameter, public :: SQL_CONVERT_BIT = 55
    integer(C_SHORT), parameter, public :: SQL_CONVERT_CHAR = 56
    integer(C_SHORT), parameter, public :: SQL_CONVERT_DATE = 57
    integer(C_SHORT), parameter, public :: SQL_CONVERT_DECIMAL = 58
    integer(C_SHORT), parameter, public :: SQL_CONVERT_DOUBLE = 59
    integer(C_SHORT), parameter, public :: SQL_CONVERT_FLOAT = 60
    integer(C_SHORT), parameter, public :: SQL_CONVERT_INTEGER = 61
    integer(C_SHORT), parameter, public :: SQL_CONVERT_LONGVARCHAR = 62
    integer(C_SHORT), parameter, public :: SQL_CONVERT_NUMERIC = 63
    integer(C_SHORT), parameter, public :: SQL_CONVERT_REAL = 64
    integer(C_SHORT), parameter, public :: SQL_CONVERT_SMALLINT = 65
    integer(C_SHORT), parameter, public :: SQL_CONVERT_TIME = 66
    integer(C_SHORT), parameter, public :: SQL_CONVERT_TIMESTAMP = 67
    integer(C_SHORT), parameter, public :: SQL_CONVERT_TINYINT = 68
    integer(C_SHORT), parameter, public :: SQL_CONVERT_VARBINARY = 69
    integer(C_SHORT), parameter, public :: SQL_CONVERT_VARCHAR = 70
    integer(C_SHORT), parameter, public :: SQL_CONVERT_LONGVARBINARY = 71
    integer(C_SHORT), parameter, public :: SQL_CONVERT_GUID = 173
    integer(C_SHORT), parameter, public :: SQL_ODBC_SQL_OPT_IEF = 73
    integer(C_SHORT), parameter, public :: SQL_CORRELATION_NAME = 74
    integer(C_SHORT), parameter, public :: SQL_NON_NULLABLE_COLUMNS = 75
    integer(C_SHORT), parameter, public :: SQL_DRIVER_HLIB = 76
    integer(C_SHORT), parameter, public :: SQL_DRIVER_ODBC_VER = 77
    integer(C_SHORT), parameter, public :: SQL_LOCK_TYPES = 78
    integer(C_SHORT), parameter, public :: SQL_POS_OPERATIONS = 79
    integer(C_SHORT), parameter, public :: SQL_POSITIONED_STATEMENTS = 80
    integer(C_SHORT), parameter, public :: SQL_BOOKMARK_PERSISTENCE = 82
    integer(C_SHORT), parameter, public :: SQL_STATIC_SENSITIVITY = 83
    integer(C_SHORT), parameter, public :: SQL_FILE_USAGE = 84
    integer(C_SHORT), parameter, public :: SQL_COLUMN_ALIAS = 87
    integer(C_SHORT), parameter, public :: SQL_GROUP_BY = 88
    integer(C_SHORT), parameter, public :: SQL_KEYWORDS = 89
    integer(C_SHORT), parameter, public :: SQL_OWNER_USAGE = 91
    integer(C_SHORT), parameter, public :: SQL_QUALIFIER_USAGE = 92
    integer(C_SHORT), parameter, public :: SQL_QUOTED_IDENTIFIER_CASE = 93
    integer(C_SHORT), parameter, public :: SQL_SUBQUERIES = 95
    integer(C_SHORT), parameter, public :: SQL_UNION = 96
    integer(C_SHORT), parameter, public :: SQL_MAX_ROW_SIZE_INCLUDES_LONG = 103
    integer(C_SHORT), parameter, public :: SQL_MAX_CHAR_LITERAL_LEN = 108
    integer(C_SHORT), parameter, public :: SQL_TIMEDATE_ADD_INTERVALS = 109
    integer(C_SHORT), parameter, public :: SQL_TIMEDATE_DIFF_INTERVALS = 110
    integer(C_SHORT), parameter, public :: SQL_NEED_LONG_DATA_LEN = 111
    integer(C_SHORT), parameter, public :: SQL_MAX_BINARY_LITERAL_LEN = 112
    integer(C_SHORT), parameter, public :: SQL_LIKE_ESCAPE_CLAUSE = 113
    integer(C_SHORT), parameter, public :: SQL_QUALIFIER_LOCATION = 114
    integer(C_SHORT), parameter, public :: SQL_ACTIVE_ENVIRONMENTS = 116
    integer(C_SHORT), parameter, public :: SQL_ALTER_DOMAIN = 117
    integer(C_SHORT), parameter, public :: SQL_SQL_CONFORMANCE = 118
    integer(C_SHORT), parameter, public :: SQL_DATETIME_LITERALS = 119
    integer(C_SHORT), parameter, public :: SQL_ASYNC_MODE = 10021
    integer(C_SHORT), parameter, public :: SQL_BATCH_ROW_COUNT = 120
    integer(C_SHORT), parameter, public :: SQL_BATCH_SUPPORT = 121
    integer(C_SHORT), parameter, public :: SQL_CATALOG_LOCATION = 114
    integer(C_SHORT), parameter, public :: SQL_CATALOG_NAME_SEPARATOR = 41
    integer(C_SHORT), parameter, public :: SQL_CATALOG_TERM = 42
    integer(C_SHORT), parameter, public :: SQL_CATALOG_USAGE = 92
    integer(C_SHORT), parameter, public :: SQL_CONVERT_WCHAR = 122
    integer(C_SHORT), parameter, public :: SQL_CONVERT_INTERVAL_DAY_TIME = 123
    integer(C_SHORT), parameter, public :: SQL_CONVERT_INTERVAL_YEAR_MONTH = 124
    integer(C_SHORT), parameter, public :: SQL_CONVERT_WLONGVARCHAR = 125
    integer(C_SHORT), parameter, public :: SQL_CONVERT_WVARCHAR = 126
    integer(C_SHORT), parameter, public :: SQL_CREATE_ASSERTION = 127
    integer(C_SHORT), parameter, public :: SQL_CREATE_CHARACTER_SET = 128
    integer(C_SHORT), parameter, public :: SQL_CREATE_COLLATION = 129
    integer(C_SHORT), parameter, public :: SQL_CREATE_DOMAIN = 130
    integer(C_SHORT), parameter, public :: SQL_CREATE_SCHEMA = 131
    integer(C_SHORT), parameter, public :: SQL_CREATE_TABLE = 132
    integer(C_SHORT), parameter, public :: SQL_CREATE_TRANSLATION = 133
    integer(C_SHORT), parameter, public :: SQL_CREATE_VIEW = 134
    integer(C_SHORT), parameter, public :: SQL_DRIVER_HDESC = 135
    integer(C_SHORT), parameter, public :: SQL_DROP_ASSERTION = 136
    integer(C_SHORT), parameter, public :: SQL_DROP_CHARACTER_SET = 137
    integer(C_SHORT), parameter, public :: SQL_DROP_COLLATION = 138
    integer(C_SHORT), parameter, public :: SQL_DROP_DOMAIN = 139
    integer(C_SHORT), parameter, public :: SQL_DROP_SCHEMA = 140
    integer(C_SHORT), parameter, public :: SQL_DROP_TABLE = 141
    integer(C_SHORT), parameter, public :: SQL_DROP_TRANSLATION = 142
    integer(C_SHORT), parameter, public :: SQL_DROP_VIEW = 143
    integer(C_SHORT), parameter, public :: SQL_DYNAMIC_CURSOR_ATTRIBUTES1 = 144
    integer(C_SHORT), parameter, public :: SQL_DYNAMIC_CURSOR_ATTRIBUTES2 = 145
    integer(C_SHORT), parameter, public :: SQL_FORWARD_ONLY_CURSOR_ATTRIBUTES1 = 146
    integer(C_SHORT), parameter, public :: SQL_FORWARD_ONLY_CURSOR_ATTRIBUTES2 = 147
    integer(C_SHORT), parameter, public :: SQL_INDEX_KEYWORDS = 148
    integer(C_SHORT), parameter, public :: SQL_INFO_SCHEMA_VIEWS = 149
    integer(C_SHORT), parameter, public :: SQL_KEYSET_CURSOR_ATTRIBUTES1 = 150
    integer(C_SHORT), parameter, public :: SQL_KEYSET_CURSOR_ATTRIBUTES2 = 151
    integer(C_SHORT), parameter, public :: SQL_MAX_ASYNC_CONCURRENT_STATEMENTS = 10022
    integer(C_SHORT), parameter, public :: SQL_ODBC_INTERFACE_CONFORMANCE = 152
    integer(C_SHORT), parameter, public :: SQL_PARAM_ARRAY_ROW_COUNTS = 153
    integer(C_SHORT), parameter, public :: SQL_PARAM_ARRAY_SELECTS = 154
    integer(C_SHORT), parameter, public :: SQL_SCHEMA_TERM = 39
    integer(C_SHORT), parameter, public :: SQL_SCHEMA_USAGE = 91
    integer(C_SHORT), parameter, public :: SQL_SQL92_DATETIME_FUNCTIONS = 155
    integer(C_SHORT), parameter, public :: SQL_SQL92_FOREIGN_KEY_DELETE_RULE = 156
    integer(C_SHORT), parameter, public :: SQL_SQL92_FOREIGN_KEY_UPDATE_RULE = 157
    integer(C_SHORT), parameter, public :: SQL_SQL92_GRANT = 158
    integer(C_SHORT), parameter, public :: SQL_SQL92_NUMERIC_VALUE_FUNCTIONS = 159
    integer(C_SHORT), parameter, public :: SQL_SQL92_PREDICATES = 160
    integer(C_SHORT), parameter, public :: SQL_SQL92_RELATIONAL_JOIN_OPERATORS = 161
    integer(C_SHORT), parameter, public :: SQL_SQL92_REVOKE = 162
    integer(C_SHORT), parameter, public :: SQL_SQL92_ROW_VALUE_CONSTRUCTOR = 163
    integer(C_SHORT), parameter, public :: SQL_SQL92_STRING_FUNCTIONS = 164
    integer(C_SHORT), parameter, public :: SQL_SQL92_VALUE_EXPRESSIONS = 165
    integer(C_SHORT), parameter, public :: SQL_STANDARD_CLI_CONFORMANCE = 166
    integer(C_SHORT), parameter, public :: SQL_STATIC_CURSOR_ATTRIBUTES1 = 167
    integer(C_SHORT), parameter, public :: SQL_STATIC_CURSOR_ATTRIBUTES2 = 168
    integer(C_SHORT), parameter, public :: SQL_AGGREGATE_FUNCTIONS = 169
    integer(C_SHORT), parameter, public :: SQL_DDL_INDEX = 170
    integer(C_SHORT), parameter, public :: SQL_DM_VER = 171
    integer(C_SHORT), parameter, public :: SQL_INSERT_STATEMENT = 172
    integer(C_SHORT), parameter, public :: SQL_UNION_STATEMENT = 96
    integer(C_SHORT), parameter, public :: SQL_ASYNC_DBC_FUNCTIONS = 10023
    integer(C_SHORT), parameter, public :: SQL_DRIVER_AWARE_POOLING_SUPPORTED = 10024
    integer(C_SHORT), parameter, public :: SQL_ASYNC_NOTIFICATION = 10025
    integer(C_LONG), parameter, public :: SQL_ASYNC_NOTIFICATION_NOT_CAPABLE = int(z'00000000',c_long)
    integer(C_LONG), parameter, public :: SQL_ASYNC_NOTIFICATION_CAPABLE = int(z'00000001',c_long)
    integer(C_SHORT), parameter, public :: SQL_DTC_TRANSITION_COST = 1750
    integer(C_LONG), parameter, public :: SQL_AT_ADD_COLUMN_SINGLE = int(z'00000020',c_long)
    integer(C_LONG), parameter, public :: SQL_AT_ADD_COLUMN_DEFAULT = int(z'00000040',c_long)
    integer(C_LONG), parameter, public :: SQL_AT_ADD_COLUMN_COLLATION = int(z'00000080',c_long)
    integer(C_LONG), parameter, public :: SQL_AT_SET_COLUMN_DEFAULT = int(z'00000100',c_long)
    integer(C_LONG), parameter, public :: SQL_AT_DROP_COLUMN_DEFAULT = int(z'00000200',c_long)
    integer(C_LONG), parameter, public :: SQL_AT_DROP_COLUMN_CASCADE = int(z'00000400',c_long)
    integer(C_LONG), parameter, public :: SQL_AT_DROP_COLUMN_RESTRICT = int(z'00000800',c_long)
    integer(C_LONG), parameter, public :: SQL_AT_ADD_TABLE_CONSTRAINT = int(z'00001000',c_long)
    integer(C_LONG), parameter, public :: SQL_AT_DROP_TABLE_CONSTRAINT_CASCADE = int(z'00002000',c_long)
    integer(C_LONG), parameter, public :: SQL_AT_DROP_TABLE_CONSTRAINT_RESTRICT = int(z'00004000',c_long)
    integer(C_LONG), parameter, public :: SQL_AT_CONSTRAINT_NAME_DEFINITION = int(z'00008000',c_long)
    integer(C_LONG), parameter, public :: SQL_AT_CONSTRAINT_INITIALLY_DEFERRED = int(z'00010000',c_long)
    integer(C_LONG), parameter, public :: SQL_AT_CONSTRAINT_INITIALLY_IMMEDIATE = int(z'00020000',c_long)
    integer(C_LONG), parameter, public :: SQL_AT_CONSTRAINT_DEFERRABLE = int(z'00040000',c_long)
    integer(C_LONG), parameter, public :: SQL_AT_CONSTRAINT_NON_DEFERRABLE = int(z'00080000',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_CHAR = int(z'00000001',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_NUMERIC = int(z'00000002',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_DECIMAL = int(z'00000004',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_INTEGER = int(z'00000008',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_SMALLINT = int(z'00000010',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_FLOAT = int(z'00000020',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_REAL = int(z'00000040',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_DOUBLE = int(z'00000080',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_VARCHAR = int(z'00000100',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_LONGVARCHAR = int(z'00000200',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_BINARY = int(z'00000400',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_VARBINARY = int(z'00000800',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_BIT = int(z'00001000',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_TINYINT = int(z'00002000',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_BIGINT = int(z'00004000',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_DATE = int(z'00008000',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_TIME = int(z'00010000',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_TIMESTAMP = int(z'00020000',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_LONGVARBINARY = int(z'00040000',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_INTERVAL_YEAR_MONTH = int(z'00080000',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_INTERVAL_DAY_TIME = int(z'00100000',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_WCHAR = int(z'00200000',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_WLONGVARCHAR = int(z'00400000',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_WVARCHAR = int(z'00800000',c_long)
    integer(C_LONG), parameter, public :: SQL_CVT_GUID = int(z'01000000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_CVT_CONVERT = int(z'00000001',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_CVT_CAST = int(z'00000002',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_CONCAT = int(z'00000001',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_INSERT = int(z'00000002',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_LEFT = int(z'00000004',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_LTRIM = int(z'00000008',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_LENGTH = int(z'00000010',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_LOCATE = int(z'00000020',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_LCASE = int(z'00000040',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_REPEAT = int(z'00000080',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_REPLACE = int(z'00000100',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_RIGHT = int(z'00000200',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_RTRIM = int(z'00000400',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_SUBSTRING = int(z'00000800',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_UCASE = int(z'00001000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_ASCII = int(z'00002000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_CHAR = int(z'00004000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_DIFFERENCE = int(z'00008000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_LOCATE_2 = int(z'00010000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_SOUNDEX = int(z'00020000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_SPACE = int(z'00040000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_BIT_LENGTH = int(z'00080000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_CHAR_LENGTH = int(z'00100000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_CHARACTER_LENGTH = int(z'00200000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_OCTET_LENGTH = int(z'00400000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_STR_POSITION = int(z'00800000',c_long)
    integer(C_LONG), parameter, public :: SQL_SSF_CONVERT = int(z'00000001',c_long)
    integer(C_LONG), parameter, public :: SQL_SSF_LOWER = int(z'00000002',c_long)
    integer(C_LONG), parameter, public :: SQL_SSF_UPPER = int(z'00000004',c_long)
    integer(C_LONG), parameter, public :: SQL_SSF_SUBSTRING = int(z'00000008',c_long)
    integer(C_LONG), parameter, public :: SQL_SSF_TRANSLATE = int(z'00000010',c_long)
    integer(C_LONG), parameter, public :: SQL_SSF_TRIM_BOTH = int(z'00000020',c_long)
    integer(C_LONG), parameter, public :: SQL_SSF_TRIM_LEADING = int(z'00000040',c_long)
    integer(C_LONG), parameter, public :: SQL_SSF_TRIM_TRAILING = int(z'00000080',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_ABS = int(z'00000001',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_ACOS = int(z'00000002',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_ASIN = int(z'00000004',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_ATAN = int(z'00000008',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_ATAN2 = int(z'00000010',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_CEILING = int(z'00000020',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_COS = int(z'00000040',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_COT = int(z'00000080',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_EXP = int(z'00000100',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_FLOOR = int(z'00000200',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_LOG = int(z'00000400',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_MOD = int(z'00000800',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_SIGN = int(z'00001000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_SIN = int(z'00002000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_SQRT = int(z'00004000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_TAN = int(z'00008000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_PI = int(z'00010000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_RAND = int(z'00020000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_DEGREES = int(z'00040000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_LOG10 = int(z'00080000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_POWER = int(z'00100000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_RADIANS = int(z'00200000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_ROUND = int(z'00400000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_NUM_TRUNCATE = int(z'00800000',c_long)
    integer(C_LONG), parameter, public :: SQL_SNVF_BIT_LENGTH = int(z'00000001',c_long)
    integer(C_LONG), parameter, public :: SQL_SNVF_CHAR_LENGTH = int(z'00000002',c_long)
    integer(C_LONG), parameter, public :: SQL_SNVF_CHARACTER_LENGTH = int(z'00000004',c_long)
    integer(C_LONG), parameter, public :: SQL_SNVF_EXTRACT = int(z'00000008',c_long)
    integer(C_LONG), parameter, public :: SQL_SNVF_OCTET_LENGTH = int(z'00000010',c_long)
    integer(C_LONG), parameter, public :: SQL_SNVF_POSITION = int(z'00000020',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TD_NOW = int(z'00000001',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TD_CURDATE = int(z'00000002',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TD_DAYOFMONTH = int(z'00000004',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TD_DAYOFWEEK = int(z'00000008',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TD_DAYOFYEAR = int(z'00000010',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TD_MONTH = int(z'00000020',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TD_QUARTER = int(z'00000040',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TD_WEEK = int(z'00000080',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TD_YEAR = int(z'00000100',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TD_CURTIME = int(z'00000200',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TD_HOUR = int(z'00000400',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TD_MINUTE = int(z'00000800',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TD_SECOND = int(z'00001000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TD_TIMESTAMPADD = int(z'00002000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TD_TIMESTAMPDIFF = int(z'00004000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TD_DAYNAME = int(z'00008000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TD_MONTHNAME = int(z'00010000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TD_CURRENT_DATE = int(z'00020000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TD_CURRENT_TIME = int(z'00040000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TD_CURRENT_TIMESTAMP = int(z'00080000',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TD_EXTRACT = int(z'00100000',c_long)
    integer(C_LONG), parameter, public :: SQL_SDF_CURRENT_DATE = int(z'00000001',c_long)
    integer(C_LONG), parameter, public :: SQL_SDF_CURRENT_TIME = int(z'00000002',c_long)
    integer(C_LONG), parameter, public :: SQL_SDF_CURRENT_TIMESTAMP = int(z'00000004',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_SYS_USERNAME = int(z'00000001',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_SYS_DBNAME = int(z'00000002',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_SYS_IFNULL = int(z'00000004',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TSI_FRAC_SECOND = int(z'00000001',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TSI_SECOND = int(z'00000002',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TSI_MINUTE = int(z'00000004',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TSI_HOUR = int(z'00000008',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TSI_DAY = int(z'00000010',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TSI_WEEK = int(z'00000020',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TSI_MONTH = int(z'00000040',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TSI_QUARTER = int(z'00000080',c_long)
    integer(C_LONG), parameter, public :: SQL_FN_TSI_YEAR = int(z'00000100',c_long)
    integer(C_LONG), parameter, public :: SQL_CA1_NEXT = int(z'00000001',c_long)
    integer(C_LONG), parameter, public :: SQL_CA1_ABSOLUTE = int(z'00000002',c_long)
    integer(C_LONG), parameter, public :: SQL_CA1_RELATIVE = int(z'00000004',c_long)
    integer(C_LONG), parameter, public :: SQL_CA1_BOOKMARK = int(z'00000008',c_long)
    integer(C_LONG), parameter, public :: SQL_CA1_LOCK_NO_CHANGE = int(z'00000040',c_long)
    integer(C_LONG), parameter, public :: SQL_CA1_LOCK_EXCLUSIVE = int(z'00000080',c_long)
    integer(C_LONG), parameter, public :: SQL_CA1_LOCK_UNLOCK = int(z'00000100',c_long)
    integer(C_LONG), parameter, public :: SQL_CA1_POS_POSITION = int(z'00000200',c_long)
    integer(C_LONG), parameter, public :: SQL_CA1_POS_UPDATE = int(z'00000400',c_long)
    integer(C_LONG), parameter, public :: SQL_CA1_POS_DELETE = int(z'00000800',c_long)
    integer(C_LONG), parameter, public :: SQL_CA1_POS_REFRESH = int(z'00001000',c_long)
    integer(C_LONG), parameter, public :: SQL_CA1_POSITIONED_UPDATE = int(z'00002000',c_long)
    integer(C_LONG), parameter, public :: SQL_CA1_POSITIONED_DELETE = int(z'00004000',c_long)
    integer(C_LONG), parameter, public :: SQL_CA1_SELECT_FOR_UPDATE = int(z'00008000',c_long)
    integer(C_LONG), parameter, public :: SQL_CA1_BULK_ADD = int(z'00010000',c_long)
    integer(C_LONG), parameter, public :: SQL_CA1_BULK_UPDATE_BY_BOOKMARK = int(z'00020000',c_long)
    integer(C_LONG), parameter, public :: SQL_CA1_BULK_DELETE_BY_BOOKMARK = int(z'00040000',c_long)
    integer(C_LONG), parameter, public :: SQL_CA1_BULK_FETCH_BY_BOOKMARK = int(z'00080000',c_long)
    integer(C_LONG), parameter, public :: SQL_CA2_READ_ONLY_CONCURRENCY = int(z'00000001',c_long)
    integer(C_LONG), parameter, public :: SQL_CA2_LOCK_CONCURRENCY = int(z'00000002',c_long)
    integer(C_LONG), parameter, public :: SQL_CA2_OPT_ROWVER_CONCURRENCY = int(z'00000004',c_long)
    integer(C_LONG), parameter, public :: SQL_CA2_OPT_VALUES_CONCURRENCY = int(z'00000008',c_long)
    integer(C_LONG), parameter, public :: SQL_CA2_SENSITIVITY_ADDITIONS = int(z'00000010',c_long)
    integer(C_LONG), parameter, public :: SQL_CA2_SENSITIVITY_DELETIONS = int(z'00000020',c_long)
    integer(C_LONG), parameter, public :: SQL_CA2_SENSITIVITY_UPDATES = int(z'00000040',c_long)
    integer(C_LONG), parameter, public :: SQL_CA2_MAX_ROWS_SELECT = int(z'00000080',c_long)
    integer(C_LONG), parameter, public :: SQL_CA2_MAX_ROWS_INSERT = int(z'00000100',c_long)
    integer(C_LONG), parameter, public :: SQL_CA2_MAX_ROWS_DELETE = int(z'00000200',c_long)
    integer(C_LONG), parameter, public :: SQL_CA2_MAX_ROWS_UPDATE = int(z'00000400',c_long)
    integer(C_LONG), parameter, public :: SQL_CA2_MAX_ROWS_CATALOG = int(z'00000800',c_long)
    ! integer(C_LONG), parameter, public :: SQL_CA2_MAX_ROWS_AFFECTS_ALL = (int(z'00000080',C_LONG).or.int(z'00000100',C_LONG).or.int(z'00000200',C_LONG).or.int(z'00000400',C_LONG).or.int(z'00000800',C_LONG))
    integer(C_LONG), parameter, public :: SQL_CA2_CRC_EXACT = int(z'00001000',c_long)
    integer(C_LONG), parameter, public :: SQL_CA2_CRC_APPROXIMATE = int(z'00002000',c_long)
    integer(C_LONG), parameter, public :: SQL_CA2_SIMULATE_NON_UNIQUE = int(z'00004000',c_long)
    integer(C_LONG), parameter, public :: SQL_CA2_SIMULATE_TRY_UNIQUE = int(z'00008000',c_long)
    integer(C_LONG), parameter, public :: SQL_CA2_SIMULATE_UNIQUE = int(z'00010000',c_long)
    integer(C_SHORT), parameter, public :: SQL_OAC_NONE = int(z'0000', c_short)
    integer(C_SHORT), parameter, public :: SQL_OAC_LEVEL1 = int(z'0001', c_short)
    integer(C_SHORT), parameter, public :: SQL_OAC_LEVEL2 = int(z'0002', c_short)
    integer(C_SHORT), parameter, public :: SQL_OSCC_NOT_COMPLIANT = int(z'0000', c_short)
    integer(C_SHORT), parameter, public :: SQL_OSCC_COMPLIANT = int(z'0001', c_short)
    integer(C_SHORT), parameter, public :: SQL_OSC_MINIMUM = int(z'0000', c_short)
    integer(C_SHORT), parameter, public :: SQL_OSC_CORE = int(z'0001', c_short)
    integer(C_SHORT), parameter, public :: SQL_OSC_EXTENDED = int(z'0002', c_short)
    integer(C_SHORT), parameter, public :: SQL_CB_NULL = int(z'0000', c_short)
    integer(C_SHORT), parameter, public :: SQL_CB_NON_NULL = int(z'0001', c_short)
    integer(C_LONG), parameter, public :: SQL_SO_FORWARD_ONLY = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_SO_KEYSET_DRIVEN = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_SO_DYNAMIC = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_SO_MIXED = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_SO_STATIC = int(z'00000010', c_long)
    integer(C_LONG), parameter, public :: SQL_FD_FETCH_BOOKMARK = int(z'00000080', c_long)
    integer(C_SHORT), parameter, public :: SQL_CN_NONE = int(z'0000', c_long)
    integer(C_SHORT), parameter, public :: SQL_CN_DIFFERENT = int(z'0001', c_long)
    integer(C_SHORT), parameter, public :: SQL_CN_ANY = int(z'0002', c_long)
    integer(C_SHORT), parameter, public :: SQL_NNC_NULL = int(z'0000', c_long)
    integer(C_SHORT), parameter, public :: SQL_NNC_NON_NULL = int(z'0001', c_long)
    integer(C_SHORT), parameter, public :: SQL_NC_START = int(z'0002', c_long)
    integer(C_SHORT), parameter, public :: SQL_NC_END = int(z'0004', c_long)
    integer(C_SHORT), parameter, public :: SQL_FILE_NOT_SUPPORTED = int(z'0000', c_long)
    integer(C_SHORT), parameter, public :: SQL_FILE_TABLE = int(z'0001', c_long)
    integer(C_SHORT), parameter, public :: SQL_FILE_QUALIFIER = int(z'0002', c_long)
    integer(C_SHORT), parameter, public :: SQL_FILE_CATALOG = int(z'0002', c_long)
    integer(C_LONG), parameter, public :: SQL_GD_BLOCK = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_GD_BOUND = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_GD_OUTPUT_PARAMS = int(z'00000010', c_long)
    integer(C_LONG), parameter, public :: SQL_PS_POSITIONED_DELETE = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_PS_POSITIONED_UPDATE = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_PS_SELECT_FOR_UPDATE = int(z'00000004', c_long)
    integer(C_SHORT), parameter, public :: SQL_GB_NOT_SUPPORTED = int(z'0000', c_short)
    integer(C_SHORT), parameter, public :: SQL_GB_GROUP_BY_EQUALS_SELECT = int(z'0001', c_short)
    integer(C_SHORT), parameter, public :: SQL_GB_GROUP_BY_CONTAINS_SELECT = int(z'0002', c_short)
    integer(C_SHORT), parameter, public :: SQL_GB_NO_RELATION = int(z'0003', c_short)
    integer(C_SHORT), parameter, public :: SQL_GB_COLLATE = int(z'0004', c_short)
    integer(C_LONG), parameter, public :: SQL_OU_DML_STATEMENTS = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_OU_PROCEDURE_INVOCATION = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_OU_TABLE_DEFINITION = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_OU_INDEX_DEFINITION = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_OU_PRIVILEGE_DEFINITION = int(z'00000010', c_long)
    integer(C_LONG), parameter, public :: SQL_SU_DML_STATEMENTS = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_SU_PROCEDURE_INVOCATION = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_SU_TABLE_DEFINITION = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_SU_INDEX_DEFINITION = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_SU_PRIVILEGE_DEFINITION = int(z'00000010', c_long)
    integer(C_LONG), parameter, public :: SQL_QU_DML_STATEMENTS = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_QU_PROCEDURE_INVOCATION = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_QU_TABLE_DEFINITION = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_QU_INDEX_DEFINITION = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_QU_PRIVILEGE_DEFINITION = int(z'00000010', c_long)
    integer(C_LONG), parameter, public :: SQL_CU_DML_STATEMENTS = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_CU_PROCEDURE_INVOCATION = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_CU_TABLE_DEFINITION = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_CU_INDEX_DEFINITION = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_CU_PRIVILEGE_DEFINITION = int(z'00000010', c_long)
    integer(C_LONG), parameter, public :: SQL_SQ_COMPARISON = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_SQ_EXISTS = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_SQ_IN = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_SQ_QUANTIFIED = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_SQ_CORRELATED_SUBQUERIES = int(z'00000010', c_long)
    integer(C_LONG), parameter, public :: SQL_U_UNION = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_U_UNION_ALL = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_BP_CLOSE = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_BP_DELETE = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_BP_DROP = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_BP_TRANSACTION = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_BP_UPDATE = int(z'00000010', c_long)
    integer(C_LONG), parameter, public :: SQL_BP_OTHER_HSTMT = int(z'00000020', c_long)
    integer(C_LONG), parameter, public :: SQL_BP_SCROLL = int(z'00000040', c_long)
    integer(C_LONG), parameter, public :: SQL_SS_ADDITIONS = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_SS_DELETIONS = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_SS_UPDATES = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_CV_CREATE_VIEW = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_CV_CHECK_OPTION = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_CV_CASCADED = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_CV_LOCAL = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_LCK_NO_CHANGE = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_LCK_EXCLUSIVE = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_LCK_UNLOCK = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_POS_POSITION = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_POS_REFRESH = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_POS_UPDATE = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_POS_DELETE = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_POS_ADD = int(z'00000010', c_long)
    integer(C_SHORT), parameter, public :: SQL_QL_START = int(z'0001', c_long)
    integer(C_SHORT), parameter, public :: SQL_QL_END = int(z'0002', c_long)
    integer(C_LONG), parameter, public :: SQL_AF_AVG = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_AF_COUNT = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_AF_MAX = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_AF_MIN = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_AF_SUM = int(z'00000010', c_long)
    integer(C_LONG), parameter, public :: SQL_AF_DISTINCT = int(z'00000020', c_long)
    integer(C_LONG), parameter, public :: SQL_AF_ALL = int(z'00000040', c_long)
    integer(C_LONG), parameter, public :: SQL_SC_SQL92_ENTRY = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_SC_FIPS127_2_TRANSITIONAL = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_SC_SQL92_INTERMEDIATE = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_SC_SQL92_FULL = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_DL_SQL92_DATE = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_DL_SQL92_TIME = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_DL_SQL92_TIMESTAMP = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_DL_SQL92_INTERVAL_YEAR = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_DL_SQL92_INTERVAL_MONTH = int(z'00000010', c_long)
    integer(C_LONG), parameter, public :: SQL_DL_SQL92_INTERVAL_DAY = int(z'00000020', c_long)
    integer(C_LONG), parameter, public :: SQL_DL_SQL92_INTERVAL_HOUR = int(z'00000040', c_long)
    integer(C_LONG), parameter, public :: SQL_DL_SQL92_INTERVAL_MINUTE = int(z'00000080', c_long)
    integer(C_LONG), parameter, public :: SQL_DL_SQL92_INTERVAL_SECOND = int(z'00000100', c_long)
    integer(C_LONG), parameter, public :: SQL_DL_SQL92_INTERVAL_YEAR_TO_MONTH = int(z'00000200', c_long)
    integer(C_LONG), parameter, public :: SQL_DL_SQL92_INTERVAL_DAY_TO_HOUR = int(z'00000400', c_long)
    integer(C_LONG), parameter, public :: SQL_DL_SQL92_INTERVAL_DAY_TO_MINUTE = int(z'00000800', c_long)
    integer(C_LONG), parameter, public :: SQL_DL_SQL92_INTERVAL_DAY_TO_SECOND = int(z'00001000', c_long)
    integer(C_LONG), parameter, public :: SQL_DL_SQL92_INTERVAL_HOUR_TO_MINUTE = int(z'00002000', c_long)
    integer(C_LONG), parameter, public :: SQL_DL_SQL92_INTERVAL_HOUR_TO_SECOND = int(z'00004000', c_long)
    integer(C_LONG), parameter, public :: SQL_DL_SQL92_INTERVAL_MINUTE_TO_SECOND = int(z'00008000', c_long)
    integer(C_SHORT), parameter, public :: SQL_CL_START = int(z'0001', c_long)
    integer(C_SHORT), parameter, public :: SQL_CL_END = int(z'0002', c_long)
    integer(C_SHORT), parameter, public :: SQL_BRC_PROCEDURES = int(z'0000001', c_long)
    integer(C_SHORT), parameter, public :: SQL_BRC_EXPLICIT = int(z'0000002', c_long)
    integer(C_SHORT), parameter, public :: SQL_BRC_ROLLED_UP = int(z'0000004', c_long)
    integer(C_LONG), parameter, public :: SQL_BS_SELECT_EXPLICIT = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_BS_ROW_COUNT_EXPLICIT = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_BS_SELECT_PROC = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_BS_ROW_COUNT_PROC = int(z'00000008', c_long)
    integer(C_SHORT), parameter, public :: SQL_PARC_BATCH = 1
    integer(C_SHORT), parameter, public :: SQL_PARC_NO_BATCH = 2
    integer(C_SHORT), parameter, public :: SQL_PAS_BATCH = 1
    integer(C_SHORT), parameter, public :: SQL_PAS_NO_BATCH = 2
    integer(C_SHORT), parameter, public :: SQL_PAS_NO_SELECT = 3
    integer(C_LONG), parameter, public :: SQL_IK_NONE = int(z'00000000', c_long)
    integer(C_LONG), parameter, public :: SQL_IK_ASC = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_IK_DESC = int(z'00000002', c_long)
    ! integer(C_LONG), parameter, public :: SQL_IK_ALL = (int(z'00000001', C_LONG).or.int(z'00000002', C_LONG))
    integer(C_LONG), parameter, public :: SQL_ISV_ASSERTIONS = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_CHARACTER_SETS = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_CHECK_CONSTRAINTS = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_COLLATIONS = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_COLUMN_DOMAIN_USAGE = int(z'00000010', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_COLUMN_PRIVILEGES = int(z'00000020', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_COLUMNS = int(z'00000040', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_CONSTRAINT_COLUMN_USAGE = int(z'00000080', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_CONSTRAINT_TABLE_USAGE = int(z'00000100', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_DOMAIN_CONSTRAINTS = int(z'00000200', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_DOMAINS = int(z'00000400', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_KEY_COLUMN_USAGE = int(z'00000800', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_REFERENTIAL_CONSTRAINTS = int(z'00001000', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_SCHEMATA = int(z'00002000', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_SQL_LANGUAGES = int(z'00004000', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_TABLE_CONSTRAINTS = int(z'00008000', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_TABLE_PRIVILEGES = int(z'00010000', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_TABLES = int(z'00020000', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_TRANSLATIONS = int(z'00040000', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_USAGE_PRIVILEGES = int(z'00080000', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_VIEW_COLUMN_USAGE = int(z'00100000', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_VIEW_TABLE_USAGE = int(z'00200000', c_long)
    integer(C_LONG), parameter, public :: SQL_ISV_VIEWS = int(z'00400000', c_long)
    integer(C_SHORT), parameter, public :: SQL_AM_NONE = 0
    integer(C_SHORT), parameter, public :: SQL_AM_CONNECTION = 1
    integer(C_SHORT), parameter, public :: SQL_AM_STATEMENT = 2
    integer(C_LONG), parameter, public :: SQL_AD_CONSTRAINT_NAME_DEFINITION = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_AD_ADD_DOMAIN_CONSTRAINT = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_AD_DROP_DOMAIN_CONSTRAINT = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_AD_ADD_DOMAIN_DEFAULT = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_AD_DROP_DOMAIN_DEFAULT = int(z'00000010', c_long)
    integer(C_LONG), parameter, public :: SQL_AD_ADD_CONSTRAINT_INITIALLY_DEFERRED = int(z'00000020', c_long)
    integer(C_LONG), parameter, public :: SQL_AD_ADD_CONSTRAINT_INITIALLY_IMMEDIATE = int(z'00000040', c_long)
    integer(C_LONG), parameter, public :: SQL_AD_ADD_CONSTRAINT_DEFERRABLE = int(z'00000080', c_long)
    integer(C_LONG), parameter, public :: SQL_AD_ADD_CONSTRAINT_NON_DEFERRABLE = int(z'00000100', c_long)
    integer(C_LONG), parameter, public :: SQL_CS_CREATE_SCHEMA = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_CS_AUTHORIZATION = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_CS_DEFAULT_CHARACTER_SET = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_CTR_CREATE_TRANSLATION = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_CA_CREATE_ASSERTION = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_CA_CONSTRAINT_INITIALLY_DEFERRED = int(z'00000010', c_long)
    integer(C_LONG), parameter, public :: SQL_CA_CONSTRAINT_INITIALLY_IMMEDIATE = int(z'00000020', c_long)
    integer(C_LONG), parameter, public :: SQL_CA_CONSTRAINT_DEFERRABLE = int(z'00000040', c_long)
    integer(C_LONG), parameter, public :: SQL_CA_CONSTRAINT_NON_DEFERRABLE = int(z'00000080', c_long)
    integer(C_LONG), parameter, public :: SQL_CCS_CREATE_CHARACTER_SET = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_CCS_COLLATE_CLAUSE = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_CCS_LIMITED_COLLATION = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_CCOL_CREATE_COLLATION = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_CDO_CREATE_DOMAIN = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_CDO_DEFAULT = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_CDO_CONSTRAINT = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_CDO_COLLATION = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_CDO_CONSTRAINT_NAME_DEFINITION = int(z'00000010', c_long)
    integer(C_LONG), parameter, public :: SQL_CDO_CONSTRAINT_INITIALLY_DEFERRED = int(z'00000020', c_long)
    integer(C_LONG), parameter, public :: SQL_CDO_CONSTRAINT_INITIALLY_IMMEDIATE = int(z'00000040', c_long)
    integer(C_LONG), parameter, public :: SQL_CDO_CONSTRAINT_DEFERRABLE = int(z'00000080', c_long)
    integer(C_LONG), parameter, public :: SQL_CDO_CONSTRAINT_NON_DEFERRABLE = int(z'00000100', c_long)
    integer(C_LONG), parameter, public :: SQL_CT_CREATE_TABLE = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_CT_COMMIT_PRESERVE = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_CT_COMMIT_DELETE = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_CT_GLOBAL_TEMPORARY = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_CT_LOCAL_TEMPORARY = int(z'00000010', c_long)
    integer(C_LONG), parameter, public :: SQL_CT_CONSTRAINT_INITIALLY_DEFERRED = int(z'00000020', c_long)
    integer(C_LONG), parameter, public :: SQL_CT_CONSTRAINT_INITIALLY_IMMEDIATE = int(z'00000040', c_long)
    integer(C_LONG), parameter, public :: SQL_CT_CONSTRAINT_DEFERRABLE = int(z'00000080', c_long)
    integer(C_LONG), parameter, public :: SQL_CT_CONSTRAINT_NON_DEFERRABLE = int(z'00000100', c_long)
    integer(C_LONG), parameter, public :: SQL_CT_COLUMN_CONSTRAINT = int(z'00000200', c_long)
    integer(C_LONG), parameter, public :: SQL_CT_COLUMN_DEFAULT = int(z'00000400', c_long)
    integer(C_LONG), parameter, public :: SQL_CT_COLUMN_COLLATION = int(z'00000800', c_long)
    integer(C_LONG), parameter, public :: SQL_CT_TABLE_CONSTRAINT = int(z'00001000', c_long)
    integer(C_LONG), parameter, public :: SQL_CT_CONSTRAINT_NAME_DEFINITION = int(z'00002000', c_long)
    integer(C_LONG), parameter, public :: SQL_DI_CREATE_INDEX = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_DI_DROP_INDEX = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_DC_DROP_COLLATION = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_DD_DROP_DOMAIN = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_DD_RESTRICT = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_DD_CASCADE = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_DS_DROP_SCHEMA = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_DS_RESTRICT = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_DS_CASCADE = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_DCS_DROP_CHARACTER_SET = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_DA_DROP_ASSERTION = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_DT_DROP_TABLE = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_DT_RESTRICT = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_DT_CASCADE = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_DTR_DROP_TRANSLATION = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_DV_DROP_VIEW = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_DV_RESTRICT = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_DV_CASCADE = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_IS_INSERT_LITERALS = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_IS_INSERT_SEARCHED = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_IS_SELECT_INTO = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_OIC_CORE = 1
    integer(C_LONG), parameter, public :: SQL_OIC_LEVEL1 = 2
    integer(C_LONG), parameter, public :: SQL_OIC_LEVEL2 = 3
    integer(C_LONG), parameter, public :: SQL_SFKD_CASCADE = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_SFKD_NO_ACTION = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_SFKD_SET_DEFAULT = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_SFKD_SET_NULL = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_SFKU_CASCADE = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_SFKU_NO_ACTION = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_SFKU_SET_DEFAULT = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_SFKU_SET_NULL = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_SG_USAGE_ON_DOMAIN = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_SG_USAGE_ON_CHARACTER_SET = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_SG_USAGE_ON_COLLATION = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_SG_USAGE_ON_TRANSLATION = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_SG_WITH_GRANT_OPTION = int(z'00000010', c_long)
    integer(C_LONG), parameter, public :: SQL_SG_DELETE_TABLE = int(z'00000020', c_long)
    integer(C_LONG), parameter, public :: SQL_SG_INSERT_TABLE = int(z'00000040', c_long)
    integer(C_LONG), parameter, public :: SQL_SG_INSERT_COLUMN = int(z'00000080', c_long)
    integer(C_LONG), parameter, public :: SQL_SG_REFERENCES_TABLE = int(z'00000100', c_long)
    integer(C_LONG), parameter, public :: SQL_SG_REFERENCES_COLUMN = int(z'00000200', c_long)
    integer(C_LONG), parameter, public :: SQL_SG_SELECT_TABLE = int(z'00000400', c_long)
    integer(C_LONG), parameter, public :: SQL_SG_UPDATE_TABLE = int(z'00000800', c_long)
    integer(C_LONG), parameter, public :: SQL_SG_UPDATE_COLUMN = int(z'00001000', c_long)
    integer(C_LONG), parameter, public :: SQL_SP_EXISTS = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_SP_ISNOTNULL = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_SP_ISNULL = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_SP_MATCH_FULL = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_SP_MATCH_PARTIAL = int(z'00000010', c_long)
    integer(C_LONG), parameter, public :: SQL_SP_MATCH_UNIQUE_FULL = int(z'00000020', c_long)
    integer(C_LONG), parameter, public :: SQL_SP_MATCH_UNIQUE_PARTIAL = int(z'00000040', c_long)
    integer(C_LONG), parameter, public :: SQL_SP_OVERLAPS = int(z'00000080', c_long)
    integer(C_LONG), parameter, public :: SQL_SP_UNIQUE = int(z'00000100', c_long)
    integer(C_LONG), parameter, public :: SQL_SP_LIKE = int(z'00000200', c_long)
    integer(C_LONG), parameter, public :: SQL_SP_IN = int(z'00000400', c_long)
    integer(C_LONG), parameter, public :: SQL_SP_BETWEEN = int(z'00000800', c_long)
    integer(C_LONG), parameter, public :: SQL_SP_COMPARISON = int(z'00001000', c_long)
    integer(C_LONG), parameter, public :: SQL_SP_QUANTIFIED_COMPARISON = int(z'00002000', c_long)
    integer(C_LONG), parameter, public :: SQL_SRJO_CORRESPONDING_CLAUSE = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_SRJO_CROSS_JOIN = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_SRJO_EXCEPT_JOIN = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_SRJO_FULL_OUTER_JOIN = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_SRJO_INNER_JOIN = int(z'00000010', c_long)
    integer(C_LONG), parameter, public :: SQL_SRJO_INTERSECT_JOIN = int(z'00000020', c_long)
    integer(C_LONG), parameter, public :: SQL_SRJO_LEFT_OUTER_JOIN = int(z'00000040', c_long)
    integer(C_LONG), parameter, public :: SQL_SRJO_NATURAL_JOIN = int(z'00000080', c_long)
    integer(C_LONG), parameter, public :: SQL_SRJO_RIGHT_OUTER_JOIN = int(z'00000100', c_long)
    integer(C_LONG), parameter, public :: SQL_SRJO_UNION_JOIN = int(z'00000200', c_long)
    integer(C_LONG), parameter, public :: SQL_SR_USAGE_ON_DOMAIN = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_SR_USAGE_ON_CHARACTER_SET = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_SR_USAGE_ON_COLLATION = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_SR_USAGE_ON_TRANSLATION = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_SR_GRANT_OPTION_FOR = int(z'00000010', c_long)
    integer(C_LONG), parameter, public :: SQL_SR_CASCADE = int(z'00000020', c_long)
    integer(C_LONG), parameter, public :: SQL_SR_RESTRICT = int(z'00000040', c_long)
    integer(C_LONG), parameter, public :: SQL_SR_DELETE_TABLE = int(z'00000080', c_long)
    integer(C_LONG), parameter, public :: SQL_SR_INSERT_TABLE = int(z'00000100', c_long)
    integer(C_LONG), parameter, public :: SQL_SR_INSERT_COLUMN = int(z'00000200', c_long)
    integer(C_LONG), parameter, public :: SQL_SR_REFERENCES_TABLE = int(z'00000400', c_long)
    integer(C_LONG), parameter, public :: SQL_SR_REFERENCES_COLUMN = int(z'00000800', c_long)
    integer(C_LONG), parameter, public :: SQL_SR_SELECT_TABLE = int(z'00001000', c_long)
    integer(C_LONG), parameter, public :: SQL_SR_UPDATE_TABLE = int(z'00002000', c_long)
    integer(C_LONG), parameter, public :: SQL_SR_UPDATE_COLUMN = int(z'00004000', c_long)
    integer(C_LONG), parameter, public :: SQL_SRVC_VALUE_EXPRESSION = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_SRVC_NULL = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_SRVC_DEFAULT = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_SRVC_ROW_SUBQUERY = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_SVE_CASE = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_SVE_CAST = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_SVE_COALESCE = int(z'00000004', c_long)
    integer(C_LONG), parameter, public :: SQL_SVE_NULLIF = int(z'00000008', c_long)
    integer(C_LONG), parameter, public :: SQL_SCC_XOPEN_CLI_VERSION1 = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_SCC_ISO92_CLI = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_US_UNION = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_US_UNION_ALL = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_DRIVER_AWARE_POOLING_NOT_CAPABLE = int(z'00000000', c_long)
    integer(C_LONG), parameter, public :: SQL_DRIVER_AWARE_POOLING_CAPABLE = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_DTC_ENLIST_EXPENSIVE = int(z'00000001', c_long)
    integer(C_LONG), parameter, public :: SQL_DTC_UNENLIST_EXPENSIVE = int(z'00000002', c_long)
    integer(C_LONG), parameter, public :: SQL_ASYNC_DBC_NOT_CAPABLE = int(z'00000000', c_long)
    integer(C_LONG), parameter, public :: SQL_ASYNC_DBC_CAPABLE = int(z'00000001', c_long)
    integer(C_SHORT), parameter, public :: SQL_FETCH_FIRST_USER = 31
    integer(C_SHORT), parameter, public :: SQL_FETCH_FIRST_SYSTEM = 32
    integer(C_SHORT), parameter, public :: SQL_ENTIRE_ROWSET = 0
    integer(C_SHORT), parameter, public :: SQL_POSITION = 0
    integer(C_SHORT), parameter, public :: SQL_REFRESH = 1
    integer(C_SHORT), parameter, public :: SQL_UPDATE = 2
    integer(C_SHORT), parameter, public :: SQL_DELETE = 3
    integer(C_SHORT), parameter, public :: SQL_ADD = 4
    integer(C_SHORT), parameter, public :: SQL_SETPOS_MAX_OPTION_VALUE = 4
    integer(C_SHORT), parameter, public :: SQL_UPDATE_BY_BOOKMARK = 5
    integer(C_SHORT), parameter, public :: SQL_DELETE_BY_BOOKMARK = 6
    integer(C_SHORT), parameter, public :: SQL_FETCH_BY_BOOKMARK = 7
    integer(C_SHORT), parameter, public :: SQL_LOCK_NO_CHANGE = 0
    integer(C_SHORT), parameter, public :: SQL_LOCK_EXCLUSIVE = 1
    integer(C_SHORT), parameter, public :: SQL_LOCK_UNLOCK = 2
    integer(C_SHORT), parameter, public :: SQL_SETPOS_MAX_LOCK_VALUE = 2
    integer(C_SHORT), parameter, public :: SQL_BEST_ROWID = 1
    integer(C_SHORT), parameter, public :: SQL_ROWVER = 2
    integer(C_SHORT), parameter, public :: SQL_PC_NOT_PSEUDO = 1
    integer(C_SHORT), parameter, public :: SQL_QUICK = 0
    integer(C_SHORT), parameter, public :: SQL_ENSURE = 1
    integer(C_SHORT), parameter, public :: SQL_TABLE_STAT = 0
    character(kind=C_CHAR, len=*), parameter, public :: SQL_ALL_CATALOGS = "%"
    character(kind=C_CHAR, len=*), parameter, public :: SQL_ALL_SCHEMAS = "%"
    character(kind=C_CHAR, len=*), parameter, public :: SQL_ALL_TABLE_TYPES = "%"
    integer(C_SHORT), parameter, public :: SQL_DRIVER_NOPROMPT = 0
    integer(C_SHORT), parameter, public :: SQL_DRIVER_COMPLETE = 1
    integer(C_SHORT), parameter, public :: SQL_DRIVER_PROMPT = 2
    integer(C_SHORT), parameter, public :: SQL_DRIVER_COMPLETE_REQUIRED = 3
    integer(C_SHORT), parameter, public :: SQL_FETCH_BOOKMARK = 8
    integer(C_SHORT), parameter, public :: SQL_ROW_SUCCESS = 0
    integer(C_SHORT), parameter, public :: SQL_ROW_DELETED = 1
    integer(C_SHORT), parameter, public :: SQL_ROW_UPDATED = 2
    integer(C_SHORT), parameter, public :: SQL_ROW_NOROW = 3
    integer(C_SHORT), parameter, public :: SQL_ROW_ADDED = 4
    integer(C_SHORT), parameter, public :: SQL_ROW_ERROR = 5
    integer(C_SHORT), parameter, public :: SQL_ROW_SUCCESS_WITH_INFO = 6
    integer(C_SHORT), parameter, public :: SQL_ROW_PROCEED = 0
    integer(C_SHORT), parameter, public :: SQL_ROW_IGNORE = 1
    integer(C_SHORT), parameter, public :: SQL_PARAM_SUCCESS = 0
    integer(C_SHORT), parameter, public :: SQL_PARAM_SUCCESS_WITH_INFO = 6
    integer(C_SHORT), parameter, public :: SQL_PARAM_ERROR = 5
    integer(C_SHORT), parameter, public :: SQL_PARAM_UNUSED = 7
    integer(C_SHORT), parameter, public :: SQL_PARAM_DIAG_UNAVAILABLE = 1
    integer(C_SHORT), parameter, public :: SQL_PARAM_PROCEED = 0
    integer(C_SHORT), parameter, public :: SQL_PARAM_IGNORE = 1
    integer(C_SHORT), parameter, public :: SQL_CASCADE = 0
    integer(C_SHORT), parameter, public :: SQL_RESTRICT = 1
    integer(C_SHORT), parameter, public :: SQL_SET_NULL = 2
    integer(C_SHORT), parameter, public :: SQL_NO_ACTION = 3
    integer(C_SHORT), parameter, public :: SQL_SET_DEFAULT = 4
    integer(C_SHORT), parameter, public :: SQL_INITIALLY_DEFERRED = 5
    integer(C_SHORT), parameter, public :: SQL_INITIALLY_IMMEDIATE = 6
    integer(C_SHORT), parameter, public :: SQL_NOT_DEFERRABLE = 7
    integer(C_SHORT), parameter, public :: SQL_PARAM_TYPE_UNKNOWN = 0
    integer(C_SHORT), parameter, public :: SQL_PARAM_INPUT = 1
    integer(C_SHORT), parameter, public :: SQL_PARAM_INPUT_OUTPUT = 2
    integer(C_SHORT), parameter, public :: SQL_RESULT_COL = 3
    integer(C_SHORT), parameter, public :: SQL_PARAM_OUTPUT = 4
    integer(C_SHORT), parameter, public :: SQL_RETURN_VALUE = 5
    integer(C_SHORT), parameter, public :: SQL_PARAM_INPUT_OUTPUT_STREAM = 8
    integer(C_SHORT), parameter, public :: SQL_PARAM_OUTPUT_STREAM = 16
    integer(C_SHORT), parameter, public :: SQL_PT_UNKNOWN = 0
    integer(C_SHORT), parameter, public :: SQL_PT_PROCEDURE = 1
    integer(C_SHORT), parameter, public :: SQL_PT_FUNCTION = 2
    character(kind=C_CHAR, len=*), parameter, public :: SQL_ODBC_KEYWORDS = "ABSOLUTE,ACTION,ADA,ADD,ALL,ALLOCATE,ALTER,AND,ANY,ARE,AS,ASC,ASSERTION,AT,AUTHORIZATION,AVG,BEGIN,BETWEEN,BIT,BIT_LENGTH,BOTH,BY,CASCADE,CASCADED,CASE,CAST,CATALOG,CHAR,CHAR_LENGTH,CHARACTER,CHARACTER_LENGTH,CHECK,CLOSE,COALESCE,COLLATE,COLLATION,COLUMN,COMMIT,CONNECT,CONNECTION,CONSTRAINT,CONSTRAINTS,CONTINUE,CONVERT,CORRESPONDING,COUNT,CREATE,CROSS,CURRENT,CURRENT_DATE,CURRENT_TIME,CURRENT_TIMESTAMP,CURRENT_USER,CURSOR,DATE,DAY,DEALLOCATE,DEC,DECIMAL,DECLARE,DEFAULT,DEFERRABLE,DEFERRED,DELETE,DESC,DESCRIBE,DESCRIPTOR,DIAGNOSTICS,DISCONNECT,DISTINCT,DOMAIN,DOUBLE,DROP,ELSE,END,END-EXEC,ESCAPE,EXCEPT,EXCEPTION,EXEC,EXECUTE,EXISTS,EXTERNAL,EXTRACT,FALSE,FETCH,FIRST,FLOAT,FOR,FOREIGN,FORTRAN,FOUND,FROM,FULL,GET,GLOBAL,GO,GOTO,GRANT,GROUP,HAVING,HOUR,IDENTITY,IMMEDIATE,IN,INCLUDE,INDEX,INDICATOR,INITIALLY,INNER,INPUT,INSENSITIVE,INSERT,INT,INTEGER,INTERSECT,INTERVAL,INTO,IS,ISOLATION,JOIN,KEY,LANGUAGE,LAST,LEADING,LEFT,LEVEL,LIKE,LOCAL,LOWER,MATCH,MAX,MIN,MINUTE,MODULE,MONTH,NAMES,NATIONAL,NATURAL,NCHAR,NEXT,NO,NONE,NOT,NULL,NULLIF,NUMERIC,OCTET_LENGTH,OF,ON,ONLY,OPEN,OPTION,OR,ORDER,OUTER,OUTPUT,OVERLAPS,PAD,PARTIAL,PASCAL,PLI,POSITION,PRECISION,PREPARE,PRESERVE,PRIMARY,PRIOR,PRIVILEGES,PROCEDURE,PUBLIC,READ,REAL,REFERENCES,RELATIVE,RESTRICT,REVOKE,RIGHT,ROLLBACK,ROWSSCHEMA,SCROLL,SECOND,SECTION,SELECT,SESSION,SESSION_USER,SET,SIZE,SMALLINT,SOME,SPACE,SQL,SQLCA,SQLCODE,SQLERROR,SQLSTATE,SQLWARNING,SUBSTRING,SUM,SYSTEM_USER,TABLE,TEMPORARY,THEN,TIME,TIMESTAMP,TIMEZONE_HOUR,TIMEZONE_MINUTE,TO,TRAILING,TRANSACTION,TRANSLATE,TRANSLATION,TRIM,TRUE,UNION,UNIQUE,UNKNOWN,UPDATE,UPPER,USAGE,USER,USING,VALUE,VALUES,VARCHAR,VARYING,VIEW,WHEN,WHENEVER,WHERE,WITH,WORK,WRITE,YEAR,ZONE"
 
    interface trim
        module procedure :: trim_c_char
    end interface
 
contains
 
    function trim_c_char(cchar) result(fchar)
        character(kind=c_char, len=1), intent(in) :: cchar(:)
        character(:), allocatable :: fchar
        !private
        integer :: i
 
        allocate (character(size(cchar)) :: fchar)
        do i = 1, size(cchar)
            fchar(i:i) = cchar(i)
        end do
        fchar = trim(fchar)
    end function
end module