Header And Logo
|
#include <ecpglib.h>#include <ecpgerrno.h>#include <sqlca.h>#include <ecpg_informix.h>#include <stdlib.h>#include <string.h>#include <limits.h>#include "sqlda-native.h"
Go to the source code of this file.
Defines | |
| #define | ECPGdebug(X, Y) ECPGdebug((X)+100,(Y)) |
| #define | ECPG_SQLTYPES_H |
| #define | CCHARTYPE ECPGt_char |
| #define | CSHORTTYPE ECPGt_short |
| #define | CINTTYPE ECPGt_int |
| #define | CLONGTYPE ECPGt_long |
| #define | CFLOATTYPE ECPGt_float |
| #define | CDOUBLETYPE ECPGt_double |
| #define | CDECIMALTYPE ECPGt_decimal |
| #define | CFIXCHARTYPE 108 |
| #define | CSTRINGTYPE ECPGt_char |
| #define | CDATETYPE ECPGt_date |
| #define | CMONEYTYPE 111 |
| #define | CDTIMETYPE ECPGt_timestamp |
| #define | CLOCATORTYPE 113 |
| #define | CVCHARTYPE ECPGt_varchar |
| #define | CINVTYPE 115 |
| #define | CFILETYPE 116 |
| #define | CINT8TYPE ECPGt_long_long |
| #define | CCOLLTYPE 118 |
| #define | CLVCHARTYPE 119 |
| #define | CFIXBINTYPE 120 |
| #define | CVARBINTYPE 121 |
| #define | CBOOLTYPE ECPGt_bool |
| #define | CROWTYPE 123 |
| #define | CLVCHARPTRTYPE 124 |
| #define | CTYPEMAX 25 |
| #define | SQLCHAR ECPGt_char |
| #define | SQLSMINT ECPGt_short |
| #define | SQLINT ECPGt_int |
| #define | SQLFLOAT ECPGt_double |
| #define | SQLSMFLOAT ECPGt_float |
| #define | SQLDECIMAL ECPGt_decimal |
| #define | SQLSERIAL ECPGt_int |
| #define | SQLDATE ECPGt_date |
| #define | SQLDTIME ECPGt_timestamp |
| #define | SQLTEXT ECPGt_char |
| #define | SQLVCHAR ECPGt_char |
| #define | SQLINTERVAL ECPGt_interval |
| #define | SQLNCHAR ECPGt_char |
| #define | SQLNVCHAR ECPGt_char |
| #define | SQLINT8 ECPGt_long |
| #define | SQLSERIAL8 ECPGt_long |
Typedefs | |
| typedef struct sqlvar_struct | sqlvar_t |
| typedef struct sqlda_struct | sqlda_t |
Functions | |
| static void | dump_sqlda (sqlda_t *sqlda) |
| int | main (void) |
Variables | |
| sqlda_t * | inp_sqlda |
| sqlda_t * | outp_sqlda |
| #define CBOOLTYPE ECPGt_bool |
Definition at line 78 of file compat_informix-sqlda.c.
| #define CCHARTYPE ECPGt_char |
Definition at line 57 of file compat_informix-sqlda.c.
| #define CCOLLTYPE 118 |
Definition at line 74 of file compat_informix-sqlda.c.
| #define CDATETYPE ECPGt_date |
Definition at line 66 of file compat_informix-sqlda.c.
| #define CDECIMALTYPE ECPGt_decimal |
Definition at line 63 of file compat_informix-sqlda.c.
| #define CDOUBLETYPE ECPGt_double |
Definition at line 62 of file compat_informix-sqlda.c.
| #define CDTIMETYPE ECPGt_timestamp |
Definition at line 68 of file compat_informix-sqlda.c.
| #define CFILETYPE 116 |
Definition at line 72 of file compat_informix-sqlda.c.
| #define CFIXBINTYPE 120 |
Definition at line 76 of file compat_informix-sqlda.c.
| #define CFIXCHARTYPE 108 |
Definition at line 64 of file compat_informix-sqlda.c.
| #define CFLOATTYPE ECPGt_float |
Definition at line 61 of file compat_informix-sqlda.c.
| #define CINT8TYPE ECPGt_long_long |
Definition at line 73 of file compat_informix-sqlda.c.
| #define CINTTYPE ECPGt_int |
Definition at line 59 of file compat_informix-sqlda.c.
| #define CINVTYPE 115 |
Definition at line 71 of file compat_informix-sqlda.c.
| #define CLOCATORTYPE 113 |
Definition at line 69 of file compat_informix-sqlda.c.
| #define CLONGTYPE ECPGt_long |
Definition at line 60 of file compat_informix-sqlda.c.
| #define CLVCHARPTRTYPE 124 |
Definition at line 80 of file compat_informix-sqlda.c.
| #define CLVCHARTYPE 119 |
Definition at line 75 of file compat_informix-sqlda.c.
| #define CMONEYTYPE 111 |
Definition at line 67 of file compat_informix-sqlda.c.
| #define CROWTYPE 123 |
Definition at line 79 of file compat_informix-sqlda.c.
| #define CSHORTTYPE ECPGt_short |
Definition at line 58 of file compat_informix-sqlda.c.
| #define CSTRINGTYPE ECPGt_char |
Definition at line 65 of file compat_informix-sqlda.c.
| #define CTYPEMAX 25 |
Definition at line 81 of file compat_informix-sqlda.c.
| #define CVARBINTYPE 121 |
Definition at line 77 of file compat_informix-sqlda.c.
| #define CVCHARTYPE ECPGt_varchar |
Definition at line 70 of file compat_informix-sqlda.c.
| #define ECPG_SQLTYPES_H |
Definition at line 53 of file compat_informix-sqlda.c.
| #define ECPGdebug | ( | X, | ||
| Y | ||||
| ) | ECPGdebug((X)+100,(Y)) |
Definition at line 9 of file compat_informix-sqlda.c.
| #define SQLCHAR ECPGt_char |
Definition at line 86 of file compat_informix-sqlda.c.
Referenced by dump_sqlda().
| #define SQLDATE ECPGt_date |
Definition at line 93 of file compat_informix-sqlda.c.
| #define SQLDECIMAL ECPGt_decimal |
Definition at line 91 of file compat_informix-sqlda.c.
Referenced by dump_sqlda().
| #define SQLDTIME ECPGt_timestamp |
Definition at line 94 of file compat_informix-sqlda.c.
| #define SQLFLOAT ECPGt_double |
Definition at line 89 of file compat_informix-sqlda.c.
Referenced by dump_sqlda().
| #define SQLINT ECPGt_int |
Definition at line 88 of file compat_informix-sqlda.c.
Referenced by dump_sqlda().
| #define SQLINT8 ECPGt_long |
Definition at line 104 of file compat_informix-sqlda.c.
| #define SQLINTERVAL ECPGt_interval |
Definition at line 97 of file compat_informix-sqlda.c.
| #define SQLNCHAR ECPGt_char |
Definition at line 98 of file compat_informix-sqlda.c.
| #define SQLNVCHAR ECPGt_char |
Definition at line 99 of file compat_informix-sqlda.c.
| #define SQLSERIAL ECPGt_int |
Definition at line 92 of file compat_informix-sqlda.c.
| #define SQLSERIAL8 ECPGt_long |
Definition at line 105 of file compat_informix-sqlda.c.
| #define SQLSMFLOAT ECPGt_float |
Definition at line 90 of file compat_informix-sqlda.c.
| #define SQLSMINT ECPGt_short |
Definition at line 87 of file compat_informix-sqlda.c.
| #define SQLTEXT ECPGt_char |
Definition at line 95 of file compat_informix-sqlda.c.
| #define SQLVCHAR ECPGt_char |
Definition at line 96 of file compat_informix-sqlda.c.
| typedef struct sqlda_struct sqlda_t |
Definition at line 42 of file compat_informix-sqlda.c.
| typedef struct sqlvar_struct sqlvar_t |
Definition at line 41 of file compat_informix-sqlda.c.
| static void dump_sqlda | ( | sqlda_t * | sqlda | ) | [static] |
Definition at line 121 of file compat_informix-sqlda.c.
References dectoasc(), i, NULL, SQLCHAR, sqlda_struct::sqld, sqlvar_struct::sqldata, SQLDECIMAL, SQLFLOAT, sqlvar_struct::sqlind, SQLINT, sqlvar_struct::sqlname, sqlvar_struct::sqltype, sqlda_struct::sqlvar, and val.
Referenced by main().
{
int i;
if (sqlda == NULL)
{
printf("dump_sqlda called with NULL sqlda\n");
return;
}
for (i = 0; i < sqlda->sqld; i++)
{
if (sqlda->sqlvar[i].sqlind && *(sqlda->sqlvar[i].sqlind) == -1)
printf("name sqlda descriptor: '%s' value NULL'\n", sqlda->sqlvar[i].sqlname);
else
switch (sqlda->sqlvar[i].sqltype)
{
case SQLCHAR:
printf("name sqlda descriptor: '%s' value '%s'\n", sqlda->sqlvar[i].sqlname, sqlda->sqlvar[i].sqldata);
break;
case SQLINT:
printf("name sqlda descriptor: '%s' value %d\n", sqlda->sqlvar[i].sqlname, *(int *)sqlda->sqlvar[i].sqldata);
break;
case SQLFLOAT:
printf("name sqlda descriptor: '%s' value %lf\n", sqlda->sqlvar[i].sqlname, *(double *)sqlda->sqlvar[i].sqldata);
break;
case SQLDECIMAL:
{
char val[64];
dectoasc((decimal *)sqlda->sqlvar[i].sqldata, val, 64, -1);
printf("name sqlda descriptor: '%s' value DECIMAL '%s'\n", sqlda->sqlvar[i].sqlname, val);
break;
}
}
}
}
| int main | ( | void | ) |
Definition at line 159 of file compat_informix-sqlda.c.
References dump_sqlda(), ECPG_informix_reset_sqlca(), ECPG_NOT_FOUND, ECPGconnect(), ECPGdeallocate(), ECPGdebug, ECPGdisconnect(), ECPGdo(), ECPGprepare(), ECPGprepared_statement(), ECPGst_execute, ECPGst_normal, ECPGt_char_variable, ECPGt_EOIT, ECPGt_EORT, ECPGt_NO_INDICATOR, ECPGt_sqlda, ECPGtrans(), free, malloc, NULL, sqlca, sqlda_struct::sqld, sqlvar_struct::sqldata, sqlvar_struct::sqltype, and sqlda_struct::sqlvar.
{
/* exec sql begin declare section */
#line 57 "sqlda.pgc"
char * stmt1 = "SELECT * FROM t1" ;
#line 58 "sqlda.pgc"
char * stmt2 = "SELECT * FROM t1 WHERE id = ?" ;
#line 59 "sqlda.pgc"
int rec ;
#line 60 "sqlda.pgc"
int id ;
/* exec sql end declare section */
#line 61 "sqlda.pgc"
char msg[128];
ECPGdebug(1, stderr);
strcpy(msg, "connect");
{ ECPGconnect(__LINE__, 1, "regress1" , NULL, NULL , "regress1", 0);
#line 68 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 68 "sqlda.pgc"
strcpy(msg, "set");
{ ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "set datestyle to iso", ECPGt_EOIT, ECPGt_EORT);
#line 71 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 71 "sqlda.pgc"
strcpy(msg, "create");
{ ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "create table t1 ( id integer , t text , d1 numeric , d2 float8 , c char ( 10 ) )", ECPGt_EOIT, ECPGt_EORT);
#line 79 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 79 "sqlda.pgc"
strcpy(msg, "insert");
{ ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "insert into t1 values ( 1 , 'a' , 1.0 , 1 , 'a' ) , ( 2 , null , null , null , null ) , ( 4 , 'd' , 4.0 , 4 , 'd' )", ECPGt_EOIT, ECPGt_EORT);
#line 85 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 85 "sqlda.pgc"
strcpy(msg, "commit");
{ ECPGtrans(__LINE__, NULL, "commit");
#line 88 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 88 "sqlda.pgc"
/* SQLDA test for getting all records from a table */
outp_sqlda = NULL;
strcpy(msg, "prepare");
{ ECPGprepare(__LINE__, NULL, 0, "st_id1", stmt1);
#line 95 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 95 "sqlda.pgc"
strcpy(msg, "declare");
ECPG_informix_reset_sqlca(); /* declare mycur1 cursor for $1 */
#line 98 "sqlda.pgc"
strcpy(msg, "open");
{ ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "declare mycur1 cursor for $1",
ECPGt_char_variable,(ECPGprepared_statement(NULL, "st_id1", __LINE__)),(long)1,(long)1,(1)*sizeof(char),
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 101 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 101 "sqlda.pgc"
/* exec sql whenever not found break ; */
#line 103 "sqlda.pgc"
rec = 0;
while (1)
{
strcpy(msg, "fetch");
{ ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "fetch 1 from mycur1", ECPGt_EOIT,
ECPGt_sqlda, &outp_sqlda, 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
#line 109 "sqlda.pgc"
if (sqlca.sqlcode == ECPG_NOT_FOUND) break;
#line 109 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 109 "sqlda.pgc"
printf("FETCH RECORD %d\n", ++rec);
dump_sqlda(outp_sqlda);
}
/* exec sql whenever not found continue ; */
#line 115 "sqlda.pgc"
strcpy(msg, "close");
{ ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "close mycur1", ECPGt_EOIT, ECPGt_EORT);
#line 118 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 118 "sqlda.pgc"
strcpy(msg, "deallocate");
{ ECPGdeallocate(__LINE__, 1, NULL, "st_id1");
#line 121 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 121 "sqlda.pgc"
free(outp_sqlda);
/* SQLDA test for getting all records from a table
using the Informix-specific FETCH ... USING DESCRIPTOR
*/
outp_sqlda = NULL;
strcpy(msg, "prepare");
{ ECPGprepare(__LINE__, NULL, 0, "st_id2", stmt1);
#line 132 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 132 "sqlda.pgc"
strcpy(msg, "declare");
ECPG_informix_reset_sqlca(); /* declare mycur2 cursor for $1 */
#line 135 "sqlda.pgc"
strcpy(msg, "open");
{ ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "declare mycur2 cursor for $1",
ECPGt_char_variable,(ECPGprepared_statement(NULL, "st_id2", __LINE__)),(long)1,(long)1,(1)*sizeof(char),
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 138 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 138 "sqlda.pgc"
/* exec sql whenever not found break ; */
#line 140 "sqlda.pgc"
rec = 0;
while (1)
{
strcpy(msg, "fetch");
{ ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "fetch from mycur2", ECPGt_EOIT,
ECPGt_sqlda, &outp_sqlda, 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
#line 146 "sqlda.pgc"
if (sqlca.sqlcode == ECPG_NOT_FOUND) break;
#line 146 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 146 "sqlda.pgc"
printf("FETCH RECORD %d\n", ++rec);
dump_sqlda(outp_sqlda);
}
/* exec sql whenever not found continue ; */
#line 152 "sqlda.pgc"
strcpy(msg, "close");
{ ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "close mycur2", ECPGt_EOIT, ECPGt_EORT);
#line 155 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 155 "sqlda.pgc"
strcpy(msg, "deallocate");
{ ECPGdeallocate(__LINE__, 1, NULL, "st_id2");
#line 158 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 158 "sqlda.pgc"
free(outp_sqlda);
/* SQLDA test for getting one record using an input descriptor */
/* Input sqlda has to be built manually */
inp_sqlda = (sqlda_t *)malloc(sizeof(sqlda_t));
memset(inp_sqlda, 0, sizeof(sqlda_t));
inp_sqlda->sqld = 1;
inp_sqlda->sqlvar = malloc(sizeof(sqlvar_t));
memset(inp_sqlda->sqlvar, 0, sizeof(sqlvar_t));
inp_sqlda->sqlvar[0].sqltype = SQLINT;
inp_sqlda->sqlvar[0].sqldata = (char *)&id;
printf("EXECUTE RECORD 4\n");
id = 4;
outp_sqlda = NULL;
strcpy(msg, "prepare");
{ ECPGprepare(__LINE__, NULL, 0, "st_id3", stmt2);
#line 181 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 181 "sqlda.pgc"
strcpy(msg, "execute");
{ ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_execute, "st_id3",
ECPGt_sqlda, &inp_sqlda, 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT,
ECPGt_sqlda, &outp_sqlda, 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
#line 184 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 184 "sqlda.pgc"
dump_sqlda(outp_sqlda);
strcpy(msg, "deallocate");
{ ECPGdeallocate(__LINE__, 1, NULL, "st_id3");
#line 189 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 189 "sqlda.pgc"
free(inp_sqlda->sqlvar);
free(inp_sqlda);
free(outp_sqlda);
/* SQLDA test for getting one record using an input descriptor
* on a named connection
*/
{ ECPGconnect(__LINE__, 1, "regress1" , NULL, NULL , "con2", 0);
#line 199 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 199 "sqlda.pgc"
/* Input sqlda has to be built manually */
inp_sqlda = (sqlda_t *)malloc(sizeof(sqlda_t));
memset(inp_sqlda, 0, sizeof(sqlda_t));
inp_sqlda->sqld = 1;
inp_sqlda->sqlvar = malloc(sizeof(sqlvar_t));
memset(inp_sqlda->sqlvar, 0, sizeof(sqlvar_t));
inp_sqlda->sqlvar[0].sqltype = SQLINT;
inp_sqlda->sqlvar[0].sqldata = (char *)&id;
printf("EXECUTE RECORD 4\n");
id = 4;
outp_sqlda = NULL;
strcpy(msg, "prepare");
{ ECPGprepare(__LINE__, "con2", 0, "st_id4", stmt2);
#line 218 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 218 "sqlda.pgc"
strcpy(msg, "execute");
{ ECPGdo(__LINE__, 1, 1, "con2", 0, ECPGst_execute, "st_id4",
ECPGt_sqlda, &inp_sqlda, 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT,
ECPGt_sqlda, &outp_sqlda, 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
#line 221 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 221 "sqlda.pgc"
dump_sqlda(outp_sqlda);
strcpy(msg, "commit");
{ ECPGtrans(__LINE__, "con2", "commit");
#line 226 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 226 "sqlda.pgc"
strcpy(msg, "deallocate");
{ ECPGdeallocate(__LINE__, 1, NULL, "st_id4");
#line 229 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 229 "sqlda.pgc"
free(inp_sqlda->sqlvar);
free(inp_sqlda);
free(outp_sqlda);
strcpy(msg, "disconnect");
{ ECPGdisconnect(__LINE__, "con2");
#line 236 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 236 "sqlda.pgc"
/* End test */
strcpy(msg, "drop");
{ ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "drop table t1", ECPGt_EOIT, ECPGt_EORT);
#line 241 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 241 "sqlda.pgc"
strcpy(msg, "commit");
{ ECPGtrans(__LINE__, NULL, "commit");
#line 244 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 244 "sqlda.pgc"
strcpy(msg, "disconnect");
{ ECPGdisconnect(__LINE__, "CURRENT");
#line 247 "sqlda.pgc"
if (sqlca.sqlcode < 0) exit (1);}
#line 247 "sqlda.pgc"
return (0);
}
Definition at line 118 of file compat_informix-sqlda.c.
Definition at line 118 of file compat_informix-sqlda.c.
1.7.1