XSB: C:/dev/sandbox/xsb_release/XSB/emu/orastuff/open_xsb

00001 /*  -*-c-*-  Make sure this file comes up in the C mode of emacs */ 
00002 /* File:      open.i
00003 ** Author(s): Ernie Johnson
00004 ** Contact:   xsb-contact@cs.sunysb.edu
00005 ** 
00006 ** Copyright (C) The Research Foundation of SUNY, 1997-1998
00007 ** 
00008 ** XSB is free software; you can redistribute it and/or modify it under the
00009 ** terms of the GNU Library General Public License as published by the Free
00010 ** Software Foundation; either version 2 of the License, or (at your option)
00011 ** any later version.
00012 ** 
00013 ** XSB is distributed in the hope that it will be useful, but WITHOUT ANY
00014 ** WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
00015 ** FOR A PARTICULAR PURPOSE.  See the GNU Library General Public License for
00016 ** more details.
00017 ** 
00018 ** You should have received a copy of the GNU Library General Public License
00019 ** along with XSB; if not, write to the Free Software Foundation,
00020 ** Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
00021 **
00022 ** $Id: open_xsb_i.h,v 1.1 1999/10/25 06:00:35 kifer Exp $
00023 ** 
00024 */
00025 
00026 
00027 /*
00028  * OPEN a Cursor
00029  * -------------
00030  *  OPEN allocates an Oracle cursor, binds input values to placeholders,
00031  *  executes the associated SQL statement, and if this statement is a
00032  *  query, identifies the active set and positions the cursor on its
00033  *  first row.  The rows-processed count of the SQLCA is also zeroed-out.
00034  */
00035 
00036   switch (cursorHandle) {
00037   case  0:
00038     EXEC SQL FOR :numTuples OPEN C0 USING DESCRIPTOR bindDesc;
00039     break;
00040   case  1:
00041     EXEC SQL FOR :numTuples OPEN C1 USING DESCRIPTOR bindDesc;
00042     break;
00043   case  2:
00044     EXEC SQL FOR :numTuples OPEN C2 USING DESCRIPTOR bindDesc;
00045     break;
00046   case  3:
00047     EXEC SQL FOR :numTuples OPEN C3 USING DESCRIPTOR bindDesc;
00048     break;
00049   case  4:
00050     EXEC SQL FOR :numTuples OPEN C4 USING DESCRIPTOR bindDesc;
00051     break;
00052   case  5:
00053     EXEC SQL FOR :numTuples OPEN C5 USING DESCRIPTOR bindDesc;
00054     break;
00055   case  6:
00056     EXEC SQL FOR :numTuples OPEN C6 USING DESCRIPTOR bindDesc;
00057     break;
00058   case  7:
00059     EXEC SQL FOR :numTuples OPEN C7 USING DESCRIPTOR bindDesc;
00060     break;
00061   case  8:
00062     EXEC SQL FOR :numTuples OPEN C8 USING DESCRIPTOR bindDesc;
00063     break;
00064   case  9:
00065     EXEC SQL FOR :numTuples OPEN C9 USING DESCRIPTOR bindDesc;
00066     break;
00067   case 10:
00068     EXEC SQL FOR :numTuples OPEN C10 USING DESCRIPTOR bindDesc;
00069     break;
00070   case 11:
00071     EXEC SQL FOR :numTuples OPEN C11 USING DESCRIPTOR bindDesc;
00072     break;
00073   case 12:
00074     EXEC SQL FOR :numTuples OPEN C12 USING DESCRIPTOR bindDesc;
00075     break;
00076   case 13:
00077     EXEC SQL FOR :numTuples OPEN C13 USING DESCRIPTOR bindDesc;
00078     break;
00079   case 14:
00080     EXEC SQL FOR :numTuples OPEN C14 USING DESCRIPTOR bindDesc;
00081     break;
00082   case 15:
00083     EXEC SQL FOR :numTuples OPEN C15 USING DESCRIPTOR bindDesc;
00084     break;
00085   case 16:
00086     EXEC SQL FOR :numTuples OPEN C16 USING DESCRIPTOR bindDesc;
00087     break;
00088   case 17:
00089     EXEC SQL FOR :numTuples OPEN C17 USING DESCRIPTOR bindDesc;
00090     break;
00091   case 18:
00092     EXEC SQL FOR :numTuples OPEN C18 USING DESCRIPTOR bindDesc;
00093     break;
00094   case 19:
00095     EXEC SQL FOR :numTuples OPEN C19 USING DESCRIPTOR bindDesc;
00096     break;
00097   case 20:
00098     EXEC SQL FOR :numTuples OPEN C20 USING DESCRIPTOR bindDesc;
00099     break;
00100   }