*** oracle_dsql.pc.old	Thu Jul  1 23:02:56 1993
--- oracle_dsql.pc	Thu Jul  1 23:03:15 1993
***************
*** 24,30 ****
   */
  
  #ifdef RCSID
! static char *RCSid = "$Header: /usr/src/local/sbin/dsql/srvr/src/RCS/oracle_dsql.pc,v 3.2 93/06/23 12:01:18 dm Exp $";
  #endif 
  
  /* Commands to handle Oracle RDBMS operations.  This module is specific
--- 24,30 ----
   */
  
  #ifdef RCSID
! static char *RCSid = "$Header: /usr/src/local/sbin/dsql/srvr/src/RCS/oracle_dsql.pc,v 3.3 93/07/01 14:45:12 dm Exp $";
  #endif 
  
  /* Commands to handle Oracle RDBMS operations.  This module is specific
***************
*** 39,44 ****
--- 39,47 ----
  /*
   * Changes ---
   * $Log:	oracle_dsql.pc,v $
+  * Revision 3.3  93/07/01  14:45:12  dm
+  * complete functions appended; name clean up.
+  * 
   * Revision 3.2  93/06/23  12:01:18  dm
   * bring revision up to date with V3 in rcs.
   * 
***************
*** 116,123 ****
  int Oinfo();
  int Osql_retrieve();
  int Oabrt();
! void Oclosedb();
! void close_cursor();
  void commit_work();
  void rollback_work();
  static void Oflushsqldata();
--- 119,128 ----
  int Oinfo();
  int Osql_retrieve();
  int Oabrt();
! int Ofetch();
! int Oclose_cursor();
! void Oclose_db();
! void closecursor();
  void commit_work();
  void rollback_work();
  static void Oflushsqldata();
***************
*** 226,232 ****
                                return est;
                          }
                          else {
!                              close_cursor();
                          }
  			break;
  
--- 231,237 ----
                                return est;
                          }
                          else {
!                              closecursor();
                          }
  			break;
  
***************
*** 240,246 ****
  				if (datapending) {
  					reply(R_WARN, R_DBMS, I_TWOSELECTS,
  					  "multiple select statements");
! 					Iflushsql();
  
  					rtype = R_WARN;
  					rcode = O_TWOSELECTS;
--- 245,251 ----
  				if (datapending) {
  					reply(R_WARN, R_DBMS, I_TWOSELECTS,
  					  "multiple select statements");
! 					Oflushsqldata();
  
  					rtype = R_WARN;
  					rcode = O_TWOSELECTS;
***************
*** 401,416 ****
  	int nst, est;
  {
  	Oflushsqldata(); /* free up storage used for oracle */
!         close_cursor(); /* Close out of Oracle */
  	reply(R_GOOD, R_DSQL, D_ISOK, "sql abort ok");
  	return nst;
  }
  
    void
! Oclosedb()
  {
  
!    close_cursor();
     commit_work();
     oraconnect_status=0;
  
--- 406,421 ----
  	int nst, est;
  {
  	Oflushsqldata(); /* free up storage used for oracle */
!         closecursor(); /* Close out of Oracle */
  	reply(R_GOOD, R_DSQL, D_ISOK, "sql abort ok");
  	return nst;
  }
  
    void
! Oclose_db()
  {
  
!    closecursor();
     commit_work();
     oraconnect_status=0;
  
***************
*** 417,423 ****
  }
  
    void
! close_cursor()
  {
     exec sql close C;
     return;
--- 422,428 ----
  }
  
    void
! closecursor()
  {
     exec sql close C;
     return;
***************
*** 608,610 ****
--- 613,631 ----
  
  }
  
+   int
+ Ofetch(cmd, nst, est)
+          char *cmd;
+ 	 int nst, est;
+ {
+ 	reply(R_FAIL, R_DSQL, D_NOTIMPL, "INFO not implemented for Oracle");
+ 	return est;
+ }
+   int
+ Oclose_cursor(cmd, nst, est)
+ 	        char *cmd;
+ 	        int nst, est;
+ {
+ 	reply(R_FAIL, R_DSQL, D_NOTIMPL, "INFO not implemented for Oracle");
+ 	return est;
+ }