X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/0d73e5a104a6c61d942c223d053a38626599b893..d86ab8e29f25edc23e99725f7474c95120e8f862:/src/iodbc/prepare.c

diff --git a/src/iodbc/prepare.c b/src/iodbc/prepare.c
index 9e71ea0c4a..59aa4de13a 100644
--- a/src/iodbc/prepare.c
+++ b/src/iodbc/prepare.c
@@ -1,537 +1,525 @@
-/** Prepare a query
-
-    Copyright (C) 1995 by Ke Jin <kejin@empress.com> 
-
-    This program is free software; you can redistribute it and/or modify
-    it under the terms of the GNU General Public License as published by
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU General Public License for more details.
-**/
-
-#include	<../iodbc/iodbc.h>
-
-#include	<../iodbc/isql.h>
-#include	<../iodbc/isqlext.h>
-
-#include        <../iodbc/dlproc.h>
-
-#include	<../iodbc/herr.h>
-#include	<../iodbc/henv.h>
-#include	<../iodbc/hdbc.h>
-#include	<../iodbc/hstmt.h>
-
-#include	<../iodbc/itrace.h>
-
-RETCODE SQL_API	SQLPrepare (
-			HSTMT		hstmt,
-			UCHAR FAR*	szSqlStr,
-			SDWORD		cbSqlStr )
+/*
+ *  prepare.c
+ *
+ *  $Id$
+ *
+ *  Prepare a query
+ *
+ *  The iODBC driver manager.
+ *  
+ *  Copyright (C) 1995 by Ke Jin <kejin@empress.com> 
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Library General Public
+ *  License as published by the Free Software Foundation; either
+ *  version 2 of the License, or (at your option) any later version.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Library General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Library General Public
+ *  License along with this library; if not, write to the Free
+ *  Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ */
+
+#include	"config.h"
+
+#include	"isql.h"
+#include	"isqlext.h"
+
+#include        "dlproc.h"
+
+#include	"herr.h"
+#include	"henv.h"
+#include	"hdbc.h"
+#include	"hstmt.h"
+
+#include	"itrace.h"
+
+#include        <unistd.h>
+
+RETCODE SQL_API 
+SQLPrepare (
+    HSTMT hstmt,
+    UCHAR FAR * szSqlStr,
+    SDWORD cbSqlStr)
 {
-	STMT_t FAR*	pstmt 	= (STMT_t*)hstmt;
-
-	HPROC		hproc	= SQL_NULL_HPROC;
-	RETCODE		retcode	= SQL_SUCCESS;
-	int		sqlstat = en_00000;
-
-	if( hstmt == SQL_NULL_HSTMT 
-	 || pstmt->hdbc == SQL_NULL_HDBC )
-	{
-		return SQL_INVALID_HANDLE;
-	}
-
-	/* check state */
-	if( pstmt->asyn_on == en_NullProc )
-	{
-		/* not on asyn state */
-		switch( pstmt->state )
-		{	
-			case en_stmt_fetched:
-			case en_stmt_xfetched:
-				sqlstat = en_24000;
-				break;
-
-			case en_stmt_needdata:
-			case en_stmt_mustput:
-			case en_stmt_canput:
-				sqlstat = en_S1010;
-				break;
-
-			default:
-				break;
-		}
-	}
-	else if( pstmt->asyn_on != en_Prepare )
-	{
-		/* asyn on other */
-		sqlstat = en_S1010;
-	}
-
-	if( sqlstat != en_00000 )
-	{
-		PUSHSQLERR ( pstmt->herr, sqlstat );
-		
-		return SQL_ERROR;
-	}
-	
-	if( szSqlStr == NULL )
-	{
-		PUSHSQLERR ( pstmt->herr, en_S1009 );
-
-		return SQL_ERROR;
-	}
-
-	if( cbSqlStr < 0 && cbSqlStr != SQL_NTS )
-	{
-		PUSHSQLERR ( pstmt->herr, en_S1090 );
-
-		return SQL_ERROR;
-	}
-
-	hproc = _iodbcdm_getproc( pstmt->hdbc, en_Prepare );
-
-	if( hproc == SQL_NULL_HPROC )
-	{
-		PUSHSQLERR ( pstmt->herr, en_IM001 );
-		return SQL_ERROR;
-	}
-
-	CALL_DRIVER ( pstmt->hdbc, retcode, hproc, en_Prepare, (
-			pstmt->dhstmt, szSqlStr, cbSqlStr) )
-
-#if 0
-	retcode = hproc ( pstmt->dhstmt, szSqlStr, cbSqlStr );
-#endif
-
-	/* stmt state transition */
-	if( pstmt->asyn_on == en_Prepare )
-	{
-		switch( retcode )
-		{
-			case SQL_SUCCESS:
-			case SQL_SUCCESS_WITH_INFO:
-			case SQL_ERROR:
-				pstmt->asyn_on = en_NullProc;
-				return retcode;
-
-			case SQL_STILL_EXECUTING:
-			default:
-				return retcode;
-		}
-	}
-
-	switch( retcode )
-	{
-		case SQL_STILL_EXECUTING: 
-			pstmt->asyn_on = en_Prepare;
-			break;
-
-		case SQL_SUCCESS: 
-	 	case SQL_SUCCESS_WITH_INFO:
-			pstmt->state = en_stmt_prepared;
-			pstmt->prep_state = 1;
-			break;
-
-		case SQL_ERROR:
-			switch( pstmt->state )
-			{
-				case en_stmt_prepared:
-				case en_stmt_executed:
-					pstmt->state = en_stmt_allocated;
-					pstmt->prep_state = 0;
-					break;
-
-				default:
-					break;
-			}
-
-		default:
-			break;
-	}
-
-	return retcode;
+  STMT_t FAR *pstmt = (STMT_t *) hstmt;
+
+  HPROC hproc = SQL_NULL_HPROC;
+  RETCODE retcode = SQL_SUCCESS;
+  int sqlstat = en_00000;
+
+  if (hstmt == SQL_NULL_HSTMT || pstmt->hdbc == SQL_NULL_HDBC)
+    {
+      return SQL_INVALID_HANDLE;
+    }
+
+  /* check state */
+  if (pstmt->asyn_on == en_NullProc)
+    {
+      /* not on asyn state */
+      switch (pstmt->state)
+	 {
+	 case en_stmt_fetched:
+	 case en_stmt_xfetched:
+	   sqlstat = en_24000;
+	   break;
+
+	 case en_stmt_needdata:
+	 case en_stmt_mustput:
+	 case en_stmt_canput:
+	   sqlstat = en_S1010;
+	   break;
+
+	 default:
+	   break;
+	 }
+    }
+  else if (pstmt->asyn_on != en_Prepare)
+    {
+      /* asyn on other */
+      sqlstat = en_S1010;
+    }
+
+  if (sqlstat != en_00000)
+    {
+      PUSHSQLERR (pstmt->herr, sqlstat);
+
+      return SQL_ERROR;
+    }
+
+  if (szSqlStr == NULL)
+    {
+      PUSHSQLERR (pstmt->herr, en_S1009);
+
+      return SQL_ERROR;
+    }
+
+  if (cbSqlStr < 0 && cbSqlStr != SQL_NTS)
+    {
+      PUSHSQLERR (pstmt->herr, en_S1090);
+
+      return SQL_ERROR;
+    }
+
+  hproc = _iodbcdm_getproc (pstmt->hdbc, en_Prepare);
+
+  if (hproc == SQL_NULL_HPROC)
+    {
+      PUSHSQLERR (pstmt->herr, en_IM001);
+      return SQL_ERROR;
+    }
+
+  CALL_DRIVER (pstmt->hdbc, retcode, hproc, en_Prepare,
+    (pstmt->dhstmt, szSqlStr, cbSqlStr))
+
+  /* stmt state transition */
+  if (pstmt->asyn_on == en_Prepare)
+    {
+      switch (retcode)
+	 {
+	 case SQL_SUCCESS:
+	 case SQL_SUCCESS_WITH_INFO:
+	 case SQL_ERROR:
+	   pstmt->asyn_on = en_NullProc;
+	   return retcode;
+
+	 case SQL_STILL_EXECUTING:
+	 default:
+	   return retcode;
+	 }
+    }
+
+  switch (retcode)
+     {
+     case SQL_STILL_EXECUTING:
+       pstmt->asyn_on = en_Prepare;
+       break;
+
+     case SQL_SUCCESS:
+     case SQL_SUCCESS_WITH_INFO:
+       pstmt->state = en_stmt_prepared;
+       pstmt->prep_state = 1;
+       break;
+
+     case SQL_ERROR:
+       switch (pstmt->state)
+	  {
+	  case en_stmt_prepared:
+	  case en_stmt_executed:
+	    pstmt->state = en_stmt_allocated;
+	    pstmt->prep_state = 0;
+	    break;
+
+	  default:
+	    break;
+	  }
+
+     default:
+       break;
+     }
+
+  return retcode;
 }
 
-RETCODE SQL_API	SQLSetCursorName (
-			HSTMT		hstmt,
-			UCHAR FAR*	szCursor,
-			SWORD		cbCursor )
-{
-	STMT_t FAR*	pstmt 	= (STMT_t*)hstmt;
-	HPROC		hproc	= SQL_NULL_HPROC;
-
-	RETCODE		retcode = SQL_SUCCESS;
-	int		sqlstat	= en_00000;
-
-	if( hstmt == SQL_NULL_HSTMT 
-	 || pstmt->hdbc == SQL_NULL_HDBC )
-	{
-		return SQL_INVALID_HANDLE;
-	}
-
-	if( szCursor == NULL )
-	{
-		PUSHSQLERR ( pstmt->herr, en_S1009 );
-
-		return SQL_ERROR;
-	}
-
-	if( cbCursor < 0 && cbCursor != SQL_NTS )
-	{
-		PUSHSQLERR ( pstmt->herr, en_S1090 );
-
-		return SQL_ERROR;
-	}
-
-	/* check state */
-	if( pstmt->asyn_on != en_NullProc )
-	{
-		sqlstat = en_S1010;
-	}
-	else
-	{
-		switch( pstmt->state )
-		{
-			case en_stmt_executed:
-			case en_stmt_cursoropen:
-			case en_stmt_fetched:
-			case en_stmt_xfetched:
-				sqlstat = en_24000;
-				break;
-
-			case en_stmt_needdata:
-			case en_stmt_mustput:
-			case en_stmt_canput:
-				sqlstat = en_S1010;
-				break;
-
-			default:
-				break;
-		}
-	}
-
-	if( sqlstat != en_00000 )
-	{
-		PUSHSQLERR ( pstmt->herr, sqlstat );
-
-		return SQL_ERROR;
-	}
-
-	hproc = _iodbcdm_getproc( pstmt->hdbc, en_SetCursorName);
 
-	if( hproc == SQL_NULL_HPROC )
-	{
-		PUSHSQLERR ( pstmt->herr, en_IM001 );
-
-		return SQL_ERROR;
-	}
-
-	CALL_DRIVER ( pstmt->hdbc, retcode, hproc, en_SetCursorName, (
-			pstmt->dhstmt, szCursor, cbCursor ) )
-
-#if 0
-	retcode = hproc ( pstmt->dhstmt, szCursor, cbCursor );
-#endif
-
-	if( retcode == SQL_SUCCESS
-	 || retcode == SQL_SUCCESS_WITH_INFO )
-	{
-		pstmt->cursor_state = en_stmt_cursor_named;
-	}
-
-	return retcode;
-}
-
-RETCODE SQL_API	SQLBindParameter (
-			HSTMT		hstmt,
-			UWORD		ipar,
-			SWORD		fParamType,
-			SWORD		fCType,
-			SWORD		fSqlType,
-			UDWORD		cbColDef,
-			SWORD		ibScale,
-			PTR		rgbValue,
-			SDWORD		cbValueMax,
-			SDWORD FAR*	pcbValue )
+RETCODE SQL_API 
+SQLSetCursorName (
+    HSTMT hstmt,
+    UCHAR FAR * szCursor,
+    SWORD cbCursor)
 {
-	STMT_t FAR*	pstmt	= (STMT_t FAR*)hstmt;
-	HPROC		hproc	= SQL_NULL_HPROC;
-
-	int		sqlstat	= en_00000;
-	RETCODE		retcode = SQL_SUCCESS;
+  STMT_t FAR *pstmt = (STMT_t *) hstmt;
+  HPROC hproc = SQL_NULL_HPROC;
+
+  RETCODE retcode = SQL_SUCCESS;
+  int sqlstat = en_00000;
+
+  if (hstmt == SQL_NULL_HSTMT || pstmt->hdbc == SQL_NULL_HDBC)
+    {
+      return SQL_INVALID_HANDLE;
+    }
+
+  if (szCursor == NULL)
+    {
+      PUSHSQLERR (pstmt->herr, en_S1009);
+
+      return SQL_ERROR;
+    }
+
+  if (cbCursor < 0 && cbCursor != SQL_NTS)
+    {
+      PUSHSQLERR (pstmt->herr, en_S1090);
+
+      return SQL_ERROR;
+    }
+
+  /* check state */
+  if (pstmt->asyn_on != en_NullProc)
+    {
+      sqlstat = en_S1010;
+    }
+  else
+    {
+      switch (pstmt->state)
+	 {
+	 case en_stmt_executed:
+	 case en_stmt_cursoropen:
+	 case en_stmt_fetched:
+	 case en_stmt_xfetched:
+	   sqlstat = en_24000;
+	   break;
+
+	 case en_stmt_needdata:
+	 case en_stmt_mustput:
+	 case en_stmt_canput:
+	   sqlstat = en_S1010;
+	   break;
+
+	 default:
+	   break;
+	 }
+    }
+
+  if (sqlstat != en_00000)
+    {
+      PUSHSQLERR (pstmt->herr, sqlstat);
+
+      return SQL_ERROR;
+    }
+
+  hproc = _iodbcdm_getproc (pstmt->hdbc, en_SetCursorName);
+
+  if (hproc == SQL_NULL_HPROC)
+    {
+      PUSHSQLERR (pstmt->herr, en_IM001);
+
+      return SQL_ERROR;
+    }
+
+  CALL_DRIVER (pstmt->hdbc, retcode, hproc, en_SetCursorName,
+    (pstmt->dhstmt, szCursor, cbCursor))
+
+  if (retcode == SQL_SUCCESS || retcode == SQL_SUCCESS_WITH_INFO)
+    {
+      pstmt->cursor_state = en_stmt_cursor_named;
+    }
+
+  return retcode;
+}
 
-	if( hstmt == SQL_NULL_HSTMT 
-	 || pstmt->hdbc == SQL_NULL_HDBC )
-	{
-		return SQL_INVALID_HANDLE;
-	}
 
-	/* check param */
-	if( fSqlType > SQL_TYPE_MAX
-	 || ( fSqlType < SQL_TYPE_MIN 
-	   && fSqlType > SQL_TYPE_DRIVER_START ) )
-	/* Note: SQL_TYPE_DRIVER_START is a nagtive number 
-	 * So, we use ">" */
-	{
-		sqlstat = en_S1004;
-	}
-	else if ( ipar < 1 ) 
-	{
-		sqlstat = en_S1093;
-	}
-	else if( (rgbValue == NULL && pcbValue == NULL) 
-	      && fParamType != SQL_PARAM_OUTPUT )
-	{
-		sqlstat = en_S1009;
-		/* This means, I allow output to nowhere
-		 * (i.e. * junk output result). But I can't  
-		 * allow input from nowhere. 
-		 */ 
-	}
+RETCODE SQL_API 
+SQLBindParameter (
+    HSTMT hstmt,
+    UWORD ipar,
+    SWORD fParamType,
+    SWORD fCType,
+    SWORD fSqlType,
+    UDWORD cbColDef,
+    SWORD ibScale,
+    PTR rgbValue,
+    SDWORD cbValueMax,
+    SDWORD FAR * pcbValue)
+{
+  STMT_t FAR *pstmt = (STMT_t FAR *) hstmt;
+  HPROC hproc = SQL_NULL_HPROC;
+
+  int sqlstat = en_00000;
+  RETCODE retcode = SQL_SUCCESS;
+
+  if (hstmt == SQL_NULL_HSTMT || pstmt->hdbc == SQL_NULL_HDBC)
+    {
+      return SQL_INVALID_HANDLE;
+    }
+
+  /* check param */
+  if (fSqlType > SQL_TYPE_MAX || 
+	(fSqlType < SQL_TYPE_MIN && fSqlType > SQL_TYPE_DRIVER_START))
+    /* Note: SQL_TYPE_DRIVER_START is a nagtive number 
+     * So, we use ">" */
+    {
+      sqlstat = en_S1004;
+    }
+  else if (ipar < 1)
+    {
+      sqlstat = en_S1093;
+    }
+  else if ((rgbValue == NULL && pcbValue == NULL)
+      && fParamType != SQL_PARAM_OUTPUT)
+    {
+      sqlstat = en_S1009;
+      /* This means, I allow output to nowhere
+       * (i.e. * junk output result). But I can't  
+       * allow input from nowhere. 
+       */
+    }
 /**********
 	else if( cbValueMax < 0L && cbValueMax != SQL_SETPARAM_VALUE_MAX )
 	{
 		sqlstat = en_S1090;
 	}
 **********/
-	else if( fParamType != SQL_PARAM_INPUT
-	      && fParamType != SQL_PARAM_OUTPUT
-	      && fParamType != SQL_PARAM_INPUT_OUTPUT )
-	{
-		sqlstat = en_S1105;
-        }
-	else
-	{
-		switch( fCType )
-		{
-			case SQL_C_DEFAULT:
-			case SQL_C_CHAR:
-			case SQL_C_BINARY:
-			case SQL_C_BIT:
-			case SQL_C_TINYINT:
-			case SQL_C_STINYINT:
-			case SQL_C_UTINYINT:
-			case SQL_C_SHORT:
-			case SQL_C_SSHORT:
-			case SQL_C_USHORT:
-			case SQL_C_LONG:
-			case SQL_C_SLONG:
-			case SQL_C_ULONG:
-			case SQL_C_FLOAT:
-			case SQL_C_DOUBLE:
-			case SQL_C_DATE:
-			case SQL_C_TIME:
-			case SQL_C_TIMESTAMP:
-				break;
-
-			default:
-				sqlstat = en_S1003;
-				break;
-		}
-	}
+  else if (fParamType != SQL_PARAM_INPUT
+	&& fParamType != SQL_PARAM_OUTPUT
+      && fParamType != SQL_PARAM_INPUT_OUTPUT)
+    {
+      sqlstat = en_S1105;
+    }
+  else
+    {
+      switch (fCType)
+	 {
+	 case SQL_C_DEFAULT:
+	 case SQL_C_CHAR:
+	 case SQL_C_BINARY:
+	 case SQL_C_BIT:
+	 case SQL_C_TINYINT:
+	 case SQL_C_STINYINT:
+	 case SQL_C_UTINYINT:
+	 case SQL_C_SHORT:
+	 case SQL_C_SSHORT:
+	 case SQL_C_USHORT:
+	 case SQL_C_LONG:
+	 case SQL_C_SLONG:
+	 case SQL_C_ULONG:
+	 case SQL_C_FLOAT:
+	 case SQL_C_DOUBLE:
+	 case SQL_C_DATE:
+	 case SQL_C_TIME:
+	 case SQL_C_TIMESTAMP:
+	   break;
+
+	 default:
+	   sqlstat = en_S1003;
+	   break;
+	 }
+    }
+
+  if (sqlstat != en_00000)
+    {
+      PUSHSQLERR (pstmt->herr, sqlstat);
+
+      return SQL_ERROR;
+    }
+
+  /* check state */
+  if (pstmt->state >= en_stmt_needdata || pstmt->asyn_on != en_NullProc)
+    {
+      PUSHSQLERR (pstmt->herr, en_S1010);
+
+      retcode = SQL_ERROR;
+    }
+
+  hproc = _iodbcdm_getproc (pstmt->hdbc, en_BindParameter);
+
+  if (hproc == SQL_NULL_HPROC)
+    {
+      PUSHSQLERR (pstmt->herr, en_IM001);
+
+      return SQL_ERROR;
+    }
+
+  CALL_DRIVER (pstmt->hdbc, retcode, hproc, en_BindParameter,
+    (pstmt->dhstmt, ipar, fParamType, fCType, fSqlType, cbColDef,
+      ibScale, rgbValue, cbValueMax, pcbValue))
+
+  return retcode;
+}
 
-	if(sqlstat != en_00000 )
-	{
-		PUSHSQLERR ( pstmt->herr, sqlstat );
 
-		return SQL_ERROR;
-	}
+RETCODE SQL_API 
+SQLParamOptions (
+    HSTMT hstmt,
+    UDWORD crow,
+    UDWORD FAR * pirow)
+{
+  STMT_t FAR *pstmt = (STMT_t FAR *) hstmt;
+  HPROC hproc;
+  RETCODE retcode;
 
-	/* check state */
-	if( pstmt->state >= en_stmt_needdata 
-	 || pstmt->asyn_on != en_NullProc )
-	{
-		PUSHSQLERR ( pstmt->herr, en_S1010 );
+  if (hstmt == SQL_NULL_HSTMT || pstmt->hdbc == SQL_NULL_HDBC)
+    {
+      return SQL_INVALID_HANDLE;
+    }
 
-		retcode = SQL_ERROR;
-	}
+  if (crow == (UDWORD) 0UL)
+    {
+      PUSHSQLERR (pstmt->herr, en_S1107);
 
-	hproc = _iodbcdm_getproc( pstmt->hdbc, en_BindParameter );
+      return SQL_ERROR;
+    }
 
-	if( hproc == SQL_NULL_HPROC )
-	{
-		PUSHSQLERR ( pstmt->herr, en_IM001 );
+  if (pstmt->state >= en_stmt_needdata || pstmt->asyn_on != en_NullProc)
+    {
+      PUSHSQLERR (pstmt->herr, en_S1010);
 
-		return SQL_ERROR;
-	}
+      return SQL_ERROR;
+    }
 
-	CALL_DRIVER ( pstmt->hdbc, retcode, hproc, en_BindParameter, (
-			pstmt->dhstmt, ipar, fParamType, fCType, fSqlType, 
-			cbColDef, ibScale, rgbValue, cbValueMax, pcbValue ) )
+  hproc = _iodbcdm_getproc (pstmt->hdbc, en_ParamOptions);
 
-#if 0
-	retcode = hproc(pstmt->dhstmt, ipar, fParamType, fCType, fSqlType, 
-			cbColDef, ibScale, rgbValue, cbValueMax, pcbValue );
-#endif
+  if (hproc == SQL_NULL_HPROC)
+    {
+      PUSHSQLERR (pstmt->herr, en_IM001);
 
-	return retcode;
+      return SQL_ERROR;
+    }
+
+  CALL_DRIVER (pstmt->hdbc, retcode, hproc, en_ParamOptions,
+    (pstmt->dhstmt, crow, pirow))
+
+  return retcode;
 }
 
-RETCODE SQL_API SQLParamOptions(
-			HSTMT		hstmt,
-			UDWORD		crow,
-			UDWORD FAR*	pirow )
+
+RETCODE SQL_API 
+SQLSetScrollOptions (
+    HSTMT hstmt,
+    UWORD fConcurrency,
+    SDWORD crowKeyset,
+    UWORD crowRowset)
 {
-	STMT_t FAR*	pstmt	= (STMT_t FAR*)hstmt;
-	HPROC		hproc;
-	RETCODE		retcode;
+  STMT_t FAR *pstmt = (STMT_t FAR *) hstmt;
+  HPROC hproc;
+  int sqlstat = en_00000;
+  RETCODE retcode;
 
-	if( hstmt == SQL_NULL_HSTMT 
-	 || pstmt->hdbc == SQL_NULL_HDBC )
+  if (hstmt == SQL_NULL_HSTMT || pstmt->hdbc == SQL_NULL_HDBC)
+    {
+      return SQL_INVALID_HANDLE;
+    }
+
+  for (;;)
+    {
+      if (crowRowset == (UWORD) 0)
 	{
-		return SQL_INVALID_HANDLE;
+	  sqlstat = en_S1107;
+	  break;
 	}
 
-	if( crow == (UDWORD)0UL )
+      if (crowKeyset > (SDWORD) 0L && crowKeyset < (SDWORD) crowRowset)
 	{
-		PUSHSQLERR ( pstmt->herr, en_S1107 );
-
-		return SQL_ERROR;
+	  sqlstat = en_S1107;
+	  break;
 	}
 
-	if( pstmt->state >= en_stmt_needdata
-	 || pstmt->asyn_on != en_NullProc )
+      if (crowKeyset < 1)
 	{
-		PUSHSQLERR ( pstmt->herr, en_S1010 );
-
-		return SQL_ERROR;
+	  if (crowKeyset != SQL_SCROLL_FORWARD_ONLY
+	      && crowKeyset != SQL_SCROLL_STATIC
+	      && crowKeyset != SQL_SCROLL_KEYSET_DRIVEN
+	      && crowKeyset != SQL_SCROLL_DYNAMIC)
+	    {
+	      sqlstat = en_S1107;
+	      break;
+	    }
 	}
 
-	hproc = _iodbcdm_getproc ( pstmt->hdbc, en_ParamOptions );
-
-	if( hproc == SQL_NULL_HPROC )
+      if (fConcurrency != SQL_CONCUR_READ_ONLY
+	  && fConcurrency != SQL_CONCUR_LOCK
+	  && fConcurrency != SQL_CONCUR_ROWVER
+	  && fConcurrency != SQL_CONCUR_VALUES)
 	{
-		PUSHSQLERR ( pstmt->herr, en_IM001 );
-
-		return SQL_ERROR;
+	  sqlstat = en_S1108;
+	  break;
 	}
 
-	CALL_DRIVER ( pstmt->hdbc, retcode, hproc, en_ParamOptions, (
-			pstmt->dhstmt, crow, pirow) )
-
-#if 0
-	retcode = hproc ( pstmt->dhstmt, crow, pirow );
-#endif
-
-	return retcode;
-}
-
-RETCODE SQL_API	SQLSetScrollOptions( 
-			HSTMT		hstmt,
-			UWORD		fConcurrency,
-			SDWORD		crowKeyset,
-			UWORD		crowRowset )
-{
-	STMT_t FAR*	pstmt	= (STMT_t FAR*)hstmt;
-	HPROC		hproc;
-	int		sqlstat	= en_00000;
-	RETCODE		retcode;
-	
-	if( hstmt == SQL_NULL_HSTMT
-	 || pstmt->hdbc == SQL_NULL_HDBC )
+      if (pstmt->state != en_stmt_allocated)
 	{
-		return SQL_INVALID_HANDLE;
+	  sqlstat = en_S1010;
+	  break;
 	}
 
-	for(;;)
+      hproc = _iodbcdm_getproc (pstmt->hdbc, en_SetScrollOptions);
+
+      if (hproc == SQL_NULL_HPROC)
 	{
-		if( crowRowset == (UWORD)0 )
-		{
-			sqlstat = en_S1107;
-			break;
-		}
-
-		if( crowKeyset > (SDWORD)0L && crowKeyset < (SDWORD)crowRowset )
-		{
-			sqlstat = en_S1107;
-			break;
-		}
-
-		if( crowKeyset < 1 )
-		{
-			if( crowKeyset != SQL_SCROLL_FORWARD_ONLY
-			 && crowKeyset != SQL_SCROLL_STATIC
-			 && crowKeyset != SQL_SCROLL_KEYSET_DRIVEN
-			 && crowKeyset != SQL_SCROLL_DYNAMIC )
-			{
-				sqlstat = en_S1107;
-				break;
-			}
-		}
-		
-		if( fConcurrency != SQL_CONCUR_READ_ONLY
-		 && fConcurrency != SQL_CONCUR_LOCK
-		 && fConcurrency != SQL_CONCUR_ROWVER
-		 && fConcurrency != SQL_CONCUR_VALUES )
-		{
-			sqlstat = en_S1108;
-			break;
-		}
-
-		if( pstmt->state != en_stmt_allocated )
-		{
-			sqlstat = en_S1010;
-			break;
-		}
-
-		hproc = _iodbcdm_getproc( pstmt->hdbc, en_SetScrollOptions );
-
-		if( hproc == SQL_NULL_HPROC )
-		{
-			sqlstat = en_IM001;
-			break;
-		}
-
-		sqlstat = en_00000;
-		if( 1 )	/* turn off solaris warning message */
-			break;
+	  sqlstat = en_IM001;
+	  break;
 	}
 
-	if( sqlstat != en_00000 )
-	{
-		PUSHSQLERR ( pstmt->herr, sqlstat );
+      sqlstat = en_00000;
+      if (1)			/* turn off solaris warning message */
+	break;
+    }
 
-		return SQL_ERROR;
-	}
+  if (sqlstat != en_00000)
+    {
+      PUSHSQLERR (pstmt->herr, sqlstat);
 
-	CALL_DRIVER ( pstmt->hdbc, retcode, hproc, en_SetScrollOptions, (
-			pstmt->dhstmt, 
-			fConcurrency, 
-			crowKeyset,
-			crowRowset ) )
+      return SQL_ERROR;
+    }
 
-#if 0
-	retcode = hproc(pstmt->dhstmt, 
-			fConcurrency, 
-			crowKeyset,
-			crowRowset );
-#endif
+  CALL_DRIVER (pstmt->hdbc, retcode, hproc, en_SetScrollOptions,
+    (pstmt->dhstmt, fConcurrency, crowKeyset, crowRowset))
 
-	return retcode;
+  return retcode;
 }
 
-RETCODE SQL_API	SQLSetParam (
-			HSTMT       hstmt,
-			UWORD       ipar,
-			SWORD       fCType,
-			SWORD       fSqlType,
-			UDWORD      cbColDef,
-			SWORD       ibScale,
-			PTR         rgbValue,
-			SDWORD FAR *pcbValue)
+
+RETCODE SQL_API 
+SQLSetParam (
+    HSTMT hstmt,
+    UWORD ipar,
+    SWORD fCType,
+    SWORD fSqlType,
+    UDWORD cbColDef,
+    SWORD ibScale,
+    PTR rgbValue,
+    SDWORD FAR * pcbValue)
 {
-	return SQLBindParameter(hstmt, 
-				ipar, 
-				(SWORD)SQL_PARAM_INPUT_OUTPUT,
-				fCType,
-				fSqlType,
-				cbColDef,
-				ibScale,
-				rgbValue,
-				SQL_SETPARAM_VALUE_MAX,
-				pcbValue );
+  return SQLBindParameter (hstmt,
+      ipar,
+      (SWORD) SQL_PARAM_INPUT_OUTPUT,
+      fCType,
+      fSqlType,
+      cbColDef,
+      ibScale,
+      rgbValue,
+      SQL_SETPARAM_VALUE_MAX,
+      pcbValue);
 }