#define SQL_ATTR_ODBC_VERSION  200 
#define	SQL_OV_ODBC3  3 
#define SQL_IS_UINTEGER - 5 

DB_Handle=SQLSTRINGCONNECT(lcDSN1)
InternalHandle=SQLGETPROP(DB_Handle,"ODBChdbc")

DECLARE SHORT SQLSetEnvAttr IN odbc32;
    INTEGER EnvironmentHandle,; 
    integer Attribute,; 
    INTEGER ValuePtr,; 
    INTEGER StringLength

ResultSet=SQLSetEnvAttr(InternalHandle,SQL_ATTR_ODBC_VERSION,SQL_OV_ODBC3,SQL_IS_UINTEGER)

#DEFINE SQL_DRIVER_ODBC_VER					 77  

CREATE CURSOR csResult (infotype C( 30 ), datatype C( 1 ), infovalue C( 254 ), largevalue M)
=AddInfo("ODBC version",SQL_DRIVER_ODBC_VER,"C") 
BROWSE
RETURN

FUNCTION AddInfo (lcInfoType, lnInfoType, lcDataType) 
    LOCAL lcResult 

    DO CASE 
    CASE lcDataType = "C" 
        lcResult = GetInfoStr(lnInfoType) 
        INSERT INTO csResult (infotype, datatype, infovalue); 
            VALUES (lcInfoType, lcDataType, lcResult) 

    CASE lcDataType = "M" 
        lcResult = GetInfoStr(lnInfoType) 
        INSERT INTO csResult (infotype, datatype, infovalue, largevalue); 
            VALUES (lcInfoType, lcDataType, "See memo field", lcResult) 

    CASE lcDataType = "I" 
        lcResult = GetInfoInt(lnInfoType, @lcDataType) 
        INSERT INTO csResult (infotype, datatype, infovalue); 
            VALUES (lcInfoType, lcDataType, lcResult) 
    ENDCASE 
RETURN 

FUNCTION GetInfoStr (lnInfoType) 
    DECLARE SHORT SQLGetInfo IN odbc32; 
        INTEGER ConnectionHandle, INTEGER InfoType,; 
        STRING @InfoValuePtr, INTEGER BufLen, INTEGER @StrLenPtr 

    LOCAL lcBuffer, lnBufLen 
    lcBuffer = REPLI(Chr( 0 ),  4096 ) 
    lnBufLen =  0  
    = SQLGetInfo (InternalHandle, lnInfoType, @lcBuffer, Len(lcBuffer), @lnBufLen) 
RETURN Iif(lnBufLen> 0 , Left(lcBuffer, lnBufLen), "#error#")