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

00001 /*  -*-c-*-  Make sure this file comes up in the C mode of emacs */ 
00002 /* File:      fetch.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: fetch_xsb_i.h,v 1.1 1999/10/25 06:00:33 kifer Exp $
00023 ** 
00024 */
00025 
00026 
00027 switch (cursorHandle) {
00028  case 0:
00029   EXEC SQL FOR :arrayLength FETCH C0 USING DESCRIPTOR sliDesc;  break;
00030  case 1:
00031   EXEC SQL FOR :arrayLength FETCH C1 USING DESCRIPTOR sliDesc;  break;
00032  case 2:
00033   EXEC SQL FOR :arrayLength FETCH C2 USING DESCRIPTOR sliDesc;  break;
00034  case 3:
00035   EXEC SQL FOR :arrayLength FETCH C3 USING DESCRIPTOR sliDesc;  break;
00036  case 4:
00037   EXEC SQL FOR :arrayLength FETCH C4 USING DESCRIPTOR sliDesc;  break;
00038  case 5:
00039   EXEC SQL FOR :arrayLength FETCH C5 USING DESCRIPTOR sliDesc;  break;
00040  case 6:
00041   EXEC SQL FOR :arrayLength FETCH C6 USING DESCRIPTOR sliDesc;  break;
00042  case 7:
00043   EXEC SQL FOR :arrayLength FETCH C7 USING DESCRIPTOR sliDesc;  break;
00044  case 8:
00045   EXEC SQL FOR :arrayLength FETCH C8 USING DESCRIPTOR sliDesc;  break;
00046  case 9:
00047   EXEC SQL FOR :arrayLength FETCH C9 USING DESCRIPTOR sliDesc;  break;
00048  case 10:
00049   EXEC SQL FOR :arrayLength FETCH C10 USING DESCRIPTOR sliDesc;  break;
00050  case 11:
00051   EXEC SQL FOR :arrayLength FETCH C11 USING DESCRIPTOR sliDesc;  break;
00052  case 12:
00053   EXEC SQL FOR :arrayLength FETCH C12 USING DESCRIPTOR sliDesc;  break;
00054  case 13:
00055   EXEC SQL FOR :arrayLength FETCH C13 USING DESCRIPTOR sliDesc;  break;
00056  case 14:
00057   EXEC SQL FOR :arrayLength FETCH C14 USING DESCRIPTOR sliDesc;  break;
00058  case 15:
00059   EXEC SQL FOR :arrayLength FETCH C15 USING DESCRIPTOR sliDesc;  break;
00060  case 16:
00061   EXEC SQL FOR :arrayLength FETCH C16 USING DESCRIPTOR sliDesc;  break;
00062  case 17:
00063   EXEC SQL FOR :arrayLength FETCH C17 USING DESCRIPTOR sliDesc;  break;
00064  case 18:
00065   EXEC SQL FOR :arrayLength FETCH C18 USING DESCRIPTOR sliDesc;  break;
00066  case 19:
00067   EXEC SQL FOR :arrayLength FETCH C19 USING DESCRIPTOR sliDesc;  break;
00068  case 20:
00069   EXEC SQL FOR :arrayLength FETCH C20 USING DESCRIPTOR sliDesc;  break;
00070 }