CONST
Char = 1; CChar = Char; (* numeric values of predefined ODBC data types *)
OChar = Char; Numeric = 2; Decimal = 3; Integer = 4; CLong = Integer;
SmallInt = 5; CShort = SmallInt; Float = 6; Real = 7; CFloat = Real; OReal = Real;
Double = 8; CDouble = Double; OLReal = CDouble; Date= 9; CDate = Date;
Time = 10; CTime = Time; TimeStamp = 11; CTimeStamp = TimeStamp;
VarChar = 12; LongVarChar = -1; Binary = -2; CBinary = Binary;
VarBinary = -3; LongVarBinary = -4; BigInt = -5; TinyInt = -6;
CTinyInt = TinyInt; Bit = -7; CBit = Bit; CDefault = 99; CBookmark = -18;
CSShort = -15; CSLong = -16; CUShort = -17; CULong = -18; CSTinyInt = -26;
CUTinyInt = -28; SignedOffset = -20; UnsignedOffset = -22;
InvalidHandle = -2; Error = -1; Success = 0; SuccessWithInfo = 1; (* error codes *)
StillExecuting = 2; NeedData = 99; NoDataFound = 100; NoTotal = -4;
NTS = -3; NullData = -1; (* values for parameter length field *)
NullDBC = 0; NullENV = 0; NullSTMT = 0;
ParamInput = 1; ParamInOut = 2; ParamResultCol = 3; (* kinds of parameters *)
ParamOutput = 4;
FetchNext = 1; FetchFirst = 2; FetchLast = 3; FetchPrior = 4; (* cursor directions *)
FetchAbsolute = 5; FetchRelative = 6; FetchBookmark = 8;
MaxMessageLength = 512; MaxOptionStringLen = 256;
APIAllFunctions = 0; AllTypes = 0;
Commit = 0; RollBack = 1; (* values for SQLTransact(..., type) *)
Close = 0; Drop = 1; Unbind = 2; ResetParams = 3; (* values for SQLFreeStm(..., option) *)
NoNulls = 0; Nullable = 1; NullableUnknown = 2;
DriverNoPrompt = 0; DriverComplete = 1; (* values for SQLDriverConnect(..., completion) *)
DriverPrompt = 2; DriverCompleteRequired = 3;
DataAtExec = -2; DefaultParam = -5; Ignore = -6; LenDataAtExecOffset = -100;
LockNoChange = 0; LockExclusive = 1; LockUnlock = 2;
ConcurReadOnly = 1; ConcurLock = 2; ConcurRowVer = 3; ConcurValues = 4;
ScopeCurRow = 0; ScopeTransaction = 1; ScopeSession = 2;
Unsearchable = 0; LikeOnly = 1; AllExceptLike = 2; Searchable = 3;
Position = 0; Refresh = 1; Update = 2; Delete = 3; Add = 4;
ColumnCount = 0; ColumnName = 1; ColumnType = 2; ColumnLength = 3;
ColumnPrecision = 4; ColumnScale = 5; ColumnDisplaySize = 6; ColumnNullable = 7;
ColumnUnsigned = 8; ColumnMoney = 9; ColumnUpdatable = 10;
ColumnAutoIncrement = 11; ColumnCaseSensitive = 12; ColumnSearchable = 13;
ColumnTypeName = 14; ColumnTableName = 15; ColumnOwnerName = 16;
ColumnQualifierName = 17; ColumnLabel = 18; ColumnDriverStart = 1000;
AttrReadOnly = 0; AttrWrite = 1; AttrReadWriteUnknown = 2;
\
DateRec = RECORD
year, month, day: INTEGER
END ;
TimeRec = RECORD
hour, minute, second: INTEGER
END ;
TimeStampRec = RECORD
year, month, day, hour, minute, second: INTEGER;
fraction: LONGINT
END ;
Ptr = LONGINT;
ENV = LONGINT;
DBC = LONGINT;
STMT = LONGINT;
Retcode = INTEGER;
\
SQLAllocConnect-: PROCEDURE (henv: LONGINT;
VAR hdbc: LONGINT): INTEGER;
SQLAllocEnv-: PROCEDURE (VAR henv: LONGINT): INTEGER;
SQLAllocStmt-: PROCEDURE (hdbc: LONGINT;
VAR hstmt: LONGINT): INTEGER;
SQLBindCol-: PROCEDURE (hstmt: LONGINT; colIdx,
colType: INTEGER; buf, bufMaxLen: LONGINT;
VAR bufActLen: LONGINT): INTEGER;
SQLBindParameter-: PROCEDURE (hstmt: LONGINT; parIdx,
parType, cType, sqlType: INTEGER; prec: LONGINT;
scale: INTEGER; buf, bufMaxLen: LONGINT;
VAR bufActLen: LONGINT): INTEGER;
SQLBrowseConnect-: PROCEDURE (hdbc, connStrIn: LONGINT;
connStrInLen: INTEGER; connStrOut: LONGINT;
connStrOutMaxLen: INTEGER;
VAR connStrOutActLen: INTEGER): INTEGER;
SQLCancel-: PROCEDURE (hstmt: LONGINT): INTEGER;
SQLColAttributes-: PROCEDURE (hstmt: LONGINT; colIdx,
descType: INTEGER; desc: LONGINT; descMaxLen: INTEGER;
VAR descActLen: INTEGER; VAR descFlag: LONGINT): INTEGER;
SQLColumnPrivileges-: PROCEDURE (hstmt, tableQual: LONGINT;
tableQualLen: INTEGER; tableOwner: LONGINT; tableOwnerLen: INTEGER;
table: LONGINT; tableLen: INTEGER; col: LONGINT;
colLen: INTEGER): INTEGER;
SQLColumns-: PROCEDURE (hstmt, tableQual: LONGINT;
tableQualLen: INTEGER; tableOwner: LONGINT; tableOwnerLen: INTEGER;
table: LONGINT; tableLen: INTEGER; col: LONGINT;
colLen: INTEGER): INTEGER;
SQLConnect-: PROCEDURE (hdbc, DSN: LONGINT; DSNLen: INTEGER;
UID: LONGINT; cbUID: INTEGER; AuthStr: LONGINT;
cbAuthStr: INTEGER): INTEGER;
SQLDataSources-: PROCEDURE (henv: LONGINT; direction: INTEGER;
DSN: LONGINT; DSNMaxLen: INTEGER; VAR DSNActLen: INTEGER;
description: LONGINT; descriptMaxLen: INTEGER;
VAR descripActLen: INTEGER): INTEGER;
SQLDescribeCol-: PROCEDURE (hstmt: LONGINT; colIdx: INTEGER;
colName: LONGINT; colNameMaxLen: INTEGER; VAR colNameActLen,
sqlType: INTEGER; VAR prec: LONGINT; VAR scale,
nullable: INTEGER): INTEGER;
SQLDescribeParam-: PROCEDURE (hstmt: LONGINT; parIdx: INTEGER;
VAR sqlType: INTEGER; VAR prec: LONGINT; VAR scale,
nullable: INTEGER): INTEGER;
SQLDisconnect-: PROCEDURE (hdbc: LONGINT): INTEGER;
SQLDriverConnect-: PROCEDURE (hdbc, hwnd, connStrIn: LONGINT;
connStrInLen: INTEGER; connStrOut: LONGINT;
connStrOutMaxLen: INTEGER; VAR connStrOutActLen: INTEGER;
completion: INTEGER): INTEGER;
SQLDrivers-: PROCEDURE (henv: LONGINT; direction: INTEGER;
driver: LONGINT; driverMaxLen: INTEGER; VAR driverActLen: INTEGER;
attributes: LONGINT; attribMaxLen: INTEGER;
VAR attribActLen: INTEGER): INTEGER;
SQLError-: PROCEDURE (henv, hdbc, hstmt, sqlState: LONGINT;
VAR nativeErr: LONGINT; errMsg: LONGINT; errMsgMaxLen: INTEGER;
VAR errMsgActLen: INTEGER): INTEGER;
SQLExecDirect-: PROCEDURE (stmt, sqlStr, sqlStrLen: LONGINT): INTEGER;
SQLExecute-: PROCEDURE (hstmt: LONGINT): INTEGER;
SQLExtendedFetch-: PROCEDURE (stmt: LONGINT; fetchType: INTEGER;
rowIn: LONGINT; VAR rowOut: LONGINT;
VAR status: ARRAY OF INTEGER): INTEGER;
SQLFetch-: PROCEDURE (hstmt: LONGINT): INTEGER;
SQLForeignKeys-: PROCEDURE (hstmt, pkTabQual: LONGINT;
pkTabQualLen: INTEGER; pkTabOwner: LONGINT; pkTabOwnerLen: INTEGER;
pkTable: LONGINT; pkTabLen: INTEGER; fkTabQual: LONGINT;
fkTabQualLen: INTEGER; fkTabOwner: LONGINT; fkTabOwnerLen: INTEGER;
fkTable: LONGINT; fkTabLen: INTEGER): INTEGER;
SQLFreeConnect-: PROCEDURE (hdbc: LONGINT): INTEGER;
SQLFreeEnv-: PROCEDURE (henv: LONGINT): INTEGER;
SQLFreeStmt-: PROCEDURE (hstmt: LONGINT; option: INTEGER): INTEGER;
SQLGetConnectOption-: PROCEDURE (hdbc: LONGINT; option: INTEGER;
bufAdr: LONGINT): INTEGER;
SQLGetCursorName-: PROCEDURE (hstmt, cursor: LONGINT;
cursorMaxLen: INTEGER; VAR cursorActLen: INTEGER): INTEGER;
SQLGetData-: PROCEDURE (hstmt: LONGINT; colIdx, type: INTEGER; buf,
bufMaxLen: LONGINT; VAR bufActLen: LONGINT): INTEGER;
SQLGetFunctions-: PROCEDURE (hdbc: LONGINT; functionNr: INTEGER;
VAR exists: INTEGER): INTEGER;
SQLGetInfo-: PROCEDURE (hdbc: LONGINT; infoType: INTEGER;
buf: LONGINT; bufMaxLen: INTEGER;
VAR bufActLen: INTEGER): INTEGER;
SQLGetStmtOption-: PROCEDURE (hstmt: LONGINT; option: INTEGER;
buf: LONGINT): INTEGER;
SQLGetTypeInfo-: PROCEDURE (hstmt: LONGINT;
sqlType: INTEGER): INTEGER;
SQLMoreResults-: PROCEDURE (hstmt: LONGINT): INTEGER;
SQLNativeSql-: PROCEDURE (hdbc, stat, statActLen, nativeStat,
nativeStatMaxLen: LONGINT;
VAR nativeStatActLen: LONGINT): INTEGER;
SQLNumParams-: PROCEDURE (hstmt: LONGINT;
VAR params: INTEGER): INTEGER;
SQLNumResultCols-: PROCEDURE (hstmt: LONGINT;
VAR cols: INTEGER): INTEGER;
SQLParamData-: PROCEDURE (hstmt, adr: LONGINT): INTEGER;
SQLParamOptions-: PROCEDURE (stmt, row: LONGINT;
VAR num: LONGINT): INTEGER;
SQLPrepare-: PROCEDURE (hstmt, sqlStr, sqlStrLen: LONGINT): INTEGER;
SQLPrimaryKeys-: PROCEDURE (hstmt, tableQual: LONGINT;
tableQualLen: INTEGER; tableOwner: LONGINT; tableOwnerLen: INTEGER;
table: LONGINT;
tableLen: INTEGER): INTEGER;
SQLProcedureColumns-: PROCEDURE (hstmt, procQual: LONGINT;
procQualLen: INTEGER; procOwnerPat: LONGINT; procOwnerLen: INTEGER;
procPat: LONGINT; procLen: INTEGER; colPat: LONGINT;
colLen: INTEGER): INTEGER;
SQLProcedures-: PROCEDURE (hstmt, procQual: LONGINT;
procQualLen: INTEGER; procOwnerPat: LONGINT; procOwnerLen: INTEGER;
procPat: LONGINT;
procLen: INTEGER): INTEGER;
SQLPutData-: PROCEDURE (hstmt, buf, bufLen: LONGINT): INTEGER;
SQLRowCount-: PROCEDURE (hstmt: LONGINT;
VAR rows: LONGINT): INTEGER;
SQLSetConnectOption-: PROCEDURE (hdbc: LONGINT; option: INTEGER;
val: LONGINT): INTEGER;
SQLSetCursorName-: PROCEDURE (hstmt, cursorName: LONGINT;
cursorNameActLen: INTEGER): INTEGER;
SQLSetPos-: PROCEDURE (hstmt: LONGINT; rowIdx, option,
lock: INTEGER): INTEGER;
SQLSetScrollOptions-: PROCEDURE (hstmt: LONGINT; concurrency: INTEGER;
rowsInKeyset: LONGINT; rowsInRowset: INTEGER): INTEGER;
SQLSetStmtOption-: PROCEDURE (hstmt: LONGINT; option: INTEGER;
val: LONGINT): INTEGER;
SQLSpecialColumns-: PROCEDURE (hstmt: LONGINT; colType: INTEGER;
tableQual: LONGINT; tableQualLen: INTEGER; tableOwner: LONGINT;
tableOwnerLen: INTEGER; table: LONGINT; tableLen, scope,
nullable: INTEGER): INTEGER;
SQLStatistics-: PROCEDURE (hstmt, tableQual: LONGINT;
tableQualLen: INTEGER; tableOwnerPat: LONGINT; tableOwnerLen: INTEGER;
table: LONGINT; tableLen, indexType, accuracy: INTEGER): INTEGER;
SQLTablePrivileges-: PROCEDURE (hstmt, tableQual: LONGINT;
tableQualLen: INTEGER; tableOwnerPat: LONGINT; tableOwnerLen: INTEGER;
table: LONGINT; tableLen: INTEGER): INTEGER;
SQLTables-: PROCEDURE (hstmt, tableQual: LONGINT; tableQualLen: INTEGER;
tableOwnerPat: LONGINT; tableOwnerLen: INTEGER; tablePat: LONGINT;
tableLen: INTEGER; typesList: LONGINT; typesListLen: INTEGER): INTEGER;
SQLTransact-: PROCEDURE (henv, hdbc: LONGINT; type: INTEGER): INTEGER;
END ODBC.
nnnnnn¯
DEFINITION ODBC;