outofscope.c-esql
text/plain
#include <stdlib.h>
#include <sqlhdr.h>
#include <sqliapi.h>
static const char _Cn1[] = "mycur";
#line 1 "outofscope.ec"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <inttypes.h>
/*
* exec sql begin declare section;
*/
#line 6 "outofscope.ec"
/*
* exec sql include struct.h;
*/
#line 7 "outofscope.ec"
#line 7 "outofscope.ec"
#line 127 "struct.h"
#line 1 "outofscope.ec"
struct mytype
{
int id;
char t[64];
double d1;
double d2;
char c[30];
} ;
typedef struct mytype MYTYPE;
struct mynulltype
{
int id;
int t;
int d1;
int d2;
int c;
} ;
typedef struct mynulltype MYNULLTYPE;
/*
* exec sql end declare section;
*/
#line 8 "outofscope.ec"
#line 9 "outofscope.ec"
/*
* exec sql whenever sqlerror stop;
*/
#line 10 "outofscope.ec"
static void
get_var1(MYTYPE **myvar0, MYNULLTYPE **mynullvar0)
{
/*
* exec sql begin declare section;
*/
#line 15 "outofscope.ec"
#line 16 "outofscope.ec"
MYTYPE *myvar = malloc(sizeof(MYTYPE));
MYNULLTYPE *mynullvar = malloc(sizeof(MYNULLTYPE));
/*
* exec sql end declare section;
*/
#line 18 "outofscope.ec"
/* Test DECLARE ... SELECT ... INTO with pointers */
/*
* exec sql declare mycur cursor for select * INTO :myvar :mynullvar from a1;
*/
#line 22 "outofscope.ec"
{
#line 22 "outofscope.ec"
static const char *sqlcmdtxt[] =
#line 22 "outofscope.ec"
{
#line 22 "outofscope.ec"
"select * from a1",
0
};
#line 22 "outofscope.ec"
static ifx_sqlvar_t _sqobind[] =
{
{ 102, sizeof((myvar)->id), 0, 0, 0, 0, 102, sizeof((mynullvar)->id), 0, 0, 0, 0, 0, 0, 0, 0 },
{ 100, 64, 0, 0, 0, 0, 102, sizeof((mynullvar)->t), 0, 0, 0, 0, 0, 0, 0, 0 },
{ 105, sizeof((myvar)->d1), 0, 0, 0, 0, 102, sizeof((mynullvar)->d1), 0, 0, 0, 0, 0, 0, 0, 0 },
{ 105, sizeof((myvar)->d2), 0, 0, 0, 0, 102, sizeof((mynullvar)->d2), 0, 0, 0, 0, 0, 0, 0, 0 },
{ 100, 30, 0, 0, 0, 0, 102, sizeof((mynullvar)->c), 0, 0, 0, 0, 0, 0, 0, 0 },
#line 22 "outofscope.ec"
};
static ifx_sqlda_t _SD0 = { 5, _sqobind, {0}, 5, 0 };
#line 22 "outofscope.ec"
_sqobind[0].sqldata = (char *) &(myvar)->id;
_sqobind[0].sqlidata = (char *) &(mynullvar)->id;
#line 22 "outofscope.ec"
_sqobind[1].sqldata = (myvar)->t;
_sqobind[1].sqlidata = (char *) &(mynullvar)->t;
#line 22 "outofscope.ec"
_sqobind[2].sqldata = (char *) &(myvar)->d1;
_sqobind[2].sqlidata = (char *) &(mynullvar)->d1;
#line 22 "outofscope.ec"
_sqobind[3].sqldata = (char *) &(myvar)->d2;
_sqobind[3].sqlidata = (char *) &(mynullvar)->d2;
#line 22 "outofscope.ec"
_sqobind[4].sqldata = (myvar)->c;
_sqobind[4].sqlidata = (char *) &(mynullvar)->c;
#line 22 "outofscope.ec"
sqli_curs_decl_stat(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn1, 512), _Cn1, sqlcmdtxt, (ifx_sqlda_t *)0, &_SD0, 0, (ifx_literal_t *)0, (ifx_namelist_t *)0, 2, 0, 0);
#line 22 "outofscope.ec"
{ if (SQLCODE < 0) { sqli_stop_whenever(); exit(1);} }
#line 22 "outofscope.ec"
}
if (sqlca.sqlcode != 0)
exit(1);
*myvar0 = myvar;
*mynullvar0 = mynullvar;
}
static void
open_cur1(void)
{
/*
* exec sql open mycur;
*/
#line 34 "outofscope.ec"
{
#line 34 "outofscope.ec"
sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn1, 768), (ifx_sqlda_t *)0, (char *)0, (struct value *)0, 0, 0);
#line 34 "outofscope.ec"
{ if (SQLCODE < 0) { sqli_stop_whenever(); exit(1);} }
#line 34 "outofscope.ec"
}
if (sqlca.sqlcode != 0)
exit(1);
}
static void
get_record1(void)
{
/*
* exec sql fetch mycur;
*/
#line 43 "outofscope.ec"
{
#line 43 "outofscope.ec"
static _FetchSpec _FS0 = { 0, 1, 0 };
sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn1, 768), (ifx_sqlda_t *)0, (ifx_sqlda_t *)0, (char *)0, &_FS0);
#line 43 "outofscope.ec"
{ if (SQLCODE < 0) { sqli_stop_whenever(); exit(1);} }
#line 43 "outofscope.ec"
}
if (sqlca.sqlcode != 0 && sqlca.sqlcode != SQLNOTFOUND)
exit(1);
}
static void
close_cur1(void)
{
/*
* exec sql close mycur;
*/
#line 52 "outofscope.ec"
{
#line 52 "outofscope.ec"
sqli_curs_close(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn1, 768));
#line 52 "outofscope.ec"
{ if (SQLCODE < 0) { sqli_stop_whenever(); exit(1);} }
#line 52 "outofscope.ec"
}
if (sqlca.sqlcode != 0)
exit(1);
}
int
main (void)
{
MYTYPE *myvar;
MYNULLTYPE *mynullvar;
char msg[128];
ECPGdebug(1, stderr);
/*
* exec sql connect to "test";
*/
#line 68 "outofscope.ec"
{
#line 68 "outofscope.ec"
sqli_connect_open(ESQLINTVERSION, 0, "test", (char *)0, (ifx_conn_t *)0, 0);
#line 68 "outofscope.ec"
{ if (SQLCODE < 0) { sqli_stop_whenever(); exit(1);} }
#line 68 "outofscope.ec"
}
/*
* exec sql create table a1(id serial primary key, t text, d1 numeric, d2 float8, c character(10));
*/
#line 71 "outofscope.ec"
{
#line 71 "outofscope.ec"
static const char *sqlcmdtxt[] =
#line 71 "outofscope.ec"
{
#line 71 "outofscope.ec"
"create table a1 ( id serial primary key , t text , d1 numeric , d2 float8 , c character ( 10 ) )",
0
};
#line 71 "outofscope.ec"
static ifx_statement_t _SQ0 = {0};
#line 71 "outofscope.ec"
sqli_stmt(ESQLINTVERSION, &_SQ0, sqlcmdtxt, 0, (ifx_sqlvar_t *)0, (struct value *)0, (ifx_literal_t *)0, (ifx_namelist_t *)0, (ifx_cursor_t *)0, -1, 0, 0);
#line 71 "outofscope.ec"
{ if (SQLCODE < 0) { sqli_stop_whenever(); exit(1);} }
#line 71 "outofscope.ec"
}
/*
* exec sql insert into a1(id, t, d1, d2, c) values (default, 'a', 1.0, 2, 'a');
*/
#line 73 "outofscope.ec"
{
#line 73 "outofscope.ec"
static const char *sqlcmdtxt[] =
#line 73 "outofscope.ec"
{
#line 73 "outofscope.ec"
"insert into a1 ( id , t , d1 , d2 , c ) values ( default , 'a' , 1.0 , 2 , 'a' )",
0
};
#line 73 "outofscope.ec"
static ifx_statement_t _SQ0 = {0};
#line 73 "outofscope.ec"
sqli_stmt(ESQLINTVERSION, &_SQ0, sqlcmdtxt, 0, (ifx_sqlvar_t *)0, (struct value *)0, (ifx_literal_t *)0, (ifx_namelist_t *)0, (ifx_cursor_t *)0, 6, 0, 0);
#line 73 "outofscope.ec"
{ if (SQLCODE < 0) { sqli_stop_whenever(); exit(1);} }
#line 73 "outofscope.ec"
}
/*
* exec sql insert into a1(id, t, d1, d2, c) values (default, null, null, null, null);
*/
#line 74 "outofscope.ec"
{
#line 74 "outofscope.ec"
static const char *sqlcmdtxt[] =
#line 74 "outofscope.ec"
{
#line 74 "outofscope.ec"
"insert into a1 ( id , t , d1 , d2 , c ) values ( default , null , null , null , null )",
0
};
#line 74 "outofscope.ec"
static ifx_statement_t _SQ0 = {0};
#line 74 "outofscope.ec"
sqli_stmt(ESQLINTVERSION, &_SQ0, sqlcmdtxt, 0, (ifx_sqlvar_t *)0, (struct value *)0, (ifx_literal_t *)0, (ifx_namelist_t *)0, (ifx_cursor_t *)0, 6, 0, 0);
#line 74 "outofscope.ec"
{ if (SQLCODE < 0) { sqli_stop_whenever(); exit(1);} }
#line 74 "outofscope.ec"
}
/*
* exec sql insert into a1(id, t, d1, d2, c) values (default, '"a"', -1.0, 'nan'::float8, 'a');
*/
#line 75 "outofscope.ec"
{
#line 75 "outofscope.ec"
static const char *sqlcmdtxt[] =
#line 75 "outofscope.ec"
{
#line 75 "outofscope.ec"
"insert into a1 ( id , t , d1 , d2 , c ) values ( default , '"a"' , - 1.0 , 'nan' :: float8 , 'a' )",
0
};
#line 75 "outofscope.ec"
static ifx_statement_t _SQ0 = {0};
#line 75 "outofscope.ec"
sqli_stmt(ESQLINTVERSION, &_SQ0, sqlcmdtxt, 0, (ifx_sqlvar_t *)0, (struct value *)0, (ifx_literal_t *)0, (ifx_namelist_t *)0, (ifx_cursor_t *)0, 6, 0, 0);
#line 75 "outofscope.ec"
{ if (SQLCODE < 0) { sqli_stop_whenever(); exit(1);} }
#line 75 "outofscope.ec"
}
/*
* exec sql insert into a1(id, t, d1, d2, c) values (default, 'b', 2.0, 3, 'b');
*/
#line 76 "outofscope.ec"
{
#line 76 "outofscope.ec"
static const char *sqlcmdtxt[] =
#line 76 "outofscope.ec"
{
#line 76 "outofscope.ec"
"insert into a1 ( id , t , d1 , d2 , c ) values ( default , 'b' , 2.0 , 3 , 'b' )",
0
};
#line 76 "outofscope.ec"
static ifx_statement_t _SQ0 = {0};
#line 76 "outofscope.ec"
sqli_stmt(ESQLINTVERSION, &_SQ0, sqlcmdtxt, 0, (ifx_sqlvar_t *)0, (struct value *)0, (ifx_literal_t *)0, (ifx_namelist_t *)0, (ifx_cursor_t *)0, 6, 0, 0);
#line 76 "outofscope.ec"
{ if (SQLCODE < 0) { sqli_stop_whenever(); exit(1);} }
#line 76 "outofscope.ec"
}
/*
* exec sql commit;
*/
#line 78 "outofscope.ec"
{
#line 78 "outofscope.ec"
sqli_trans_commit();
#line 78 "outofscope.ec"
{ if (SQLCODE < 0) { sqli_stop_whenever(); exit(1);} }
#line 78 "outofscope.ec"
}
/* Test out-of-scope DECLARE/OPEN/FETCH/CLOSE */
get_var1(&myvar, &mynullvar);
open_cur1();
while (1)
{
memset(myvar, 0, sizeof(MYTYPE));
get_record1();
if (sqlca.sqlcode == SQLNOTFOUND)
break;
printf("id=%d%s t='%s'%s d1=%lf%s d2=%lf%s c = '%s'%s\n",
myvar->id, mynullvar->id ? " (NULL)" : "",
myvar->t, mynullvar->t ? " (NULL)" : "",
myvar->d1, mynullvar->d1 ? " (NULL)" : "",
myvar->d2, mynullvar->d2 ? " (NULL)" : "",
myvar->c, mynullvar->c ? " (NULL)" : "");
}
close_cur1();
/*
* exec sql drop table a1;
*/
#line 101 "outofscope.ec"
{
#line 101 "outofscope.ec"
static const char *sqlcmdtxt[] =
#line 101 "outofscope.ec"
{
#line 101 "outofscope.ec"
"drop table a1",
0
};
#line 101 "outofscope.ec"
static ifx_statement_t _SQ0 = {0};
#line 101 "outofscope.ec"
sqli_stmt(ESQLINTVERSION, &_SQ0, sqlcmdtxt, 0, (ifx_sqlvar_t *)0, (struct value *)0, (ifx_literal_t *)0, (ifx_namelist_t *)0, (ifx_cursor_t *)0, -1, 0, 0);
#line 101 "outofscope.ec"
{ if (SQLCODE < 0) { sqli_stop_whenever(); exit(1);} }
#line 101 "outofscope.ec"
}
/*
* exec sql commit;
*/
#line 103 "outofscope.ec"
{
#line 103 "outofscope.ec"
sqli_trans_commit();
#line 103 "outofscope.ec"
{ if (SQLCODE < 0) { sqli_stop_whenever(); exit(1);} }
#line 103 "outofscope.ec"
}
/*
* exec sql disconnect all;
*/
#line 105 "outofscope.ec"
{
#line 105 "outofscope.ec"
sqli_connect_close(2, (char *)0, 0, 0);
#line 105 "outofscope.ec"
{ if (SQLCODE < 0) { sqli_stop_whenever(); exit(1);} }
#line 105 "outofscope.ec"
}
return (0);
}
#line 108 "outofscope.ec"