 : succeeded? ( n -- bool )
     ! Did the call succeed (SQL-SUCCESS or SQL-SUCCESS-WITH-INFO)
     {
-        { SQL-SUCCESS [ t ] }
-        { SQL-SUCCESS-WITH-INFO [ t ] }
+        { SQL_SUCCESS [ t ] }
+        { SQL_SUCCESS_WITH_INFO [ t ] }
         [ drop f ]
     } case ;
 

: SQL-OV-ODBC2 ( -- number ) 2 <alien> ; inline
: SQL-OV-ODBC3 ( -- number ) 3 <alien> ; inline

CONSTANT: SQL-SUCCESS 0
CONSTANT: SQL-SUCCESS-WITH-INFO 1
CONSTANT: SQL-NO-DATA-FOUND 100

CONSTANT: SQL-DRIVER-NOPROMPT 0
CONSTANT: SQL-DRIVER-PROMPT 2

FUNCTION: SQLRETURN SQLNumResultCols ( SQLHSTMT statementHandle, SQLSMALLINT* columnCountPtr )
FUNCTION: SQLRETURN SQLDescribeCol ( SQLHSTMT statementHandle, SQLSMALLINT columnNumber, SQLCHAR* columnName, SQLSMALLINT bufferLength, SQLSMALLINT* nameLengthPtr, SQLSMALLINT* dataTypePtr, SQLUINTEGER* columnSizePtr, SQLSMALLINT* decimalDigitsPtr, SQLSMALLINT* nullablePtr )
FUNCTION: SQLRETURN SQLGetData ( SQLHSTMT statementHandle, SQLUSMALLINT columnNumber, SQLSMALLINT targetType, SQLPOINTER targetValuePtr, SQLINTEGER bufferLength, SQLINTEGER* strlen_or_indPtr )
FUNCTION: SQLRETURN SQLGetDiagRec (
     SQLSMALLINT     HandleType,
     SQLHANDLE       Handle,
     SQLSMALLINT     RecNumber,
     SQLCHAR*       SQLState,
     SQLINTEGER*    NativeErrorPtr,
     SQLCHAR*       MessageText,
     SQLSMALLINT     BufferLength,
     SQLSMALLINT*   TextLengthPtr )

: alloc-handle ( type parent -- handle )
    f void* <ref> [ SQLAllocHandle ] keep swap succeeded? [
