Hi,
a customer of us complained a behavioural difference
between ESQL/C and ECPG. They check sqlca.sqlcode
almost everywhere in their application currently under
porting to PostgreSQL. Somewhere in their code
however there was a place where a statement error
was ignored and the error was reported when the code
reached the next DECLARE statement.
It seems that this pseudo-statement is the only one that
doesn't set/reset sqlca, I was thinking about adding that
in a way that a call to ecpg_init() gets emitted.
The attached patch implements this. The only downside
is that now DECLARE CURSOR cannot appear outside
of a function, a change in test/preproc/variable.pgc reflects
this fact. The largest part of the patch is the change in the
expected C source outcome of the regression tests. The only
test where the ecpg_log output has changed is variable.pgc.
Best regards,
Zoltán Böszörményi
--
Bible has answers for everything. Proof:
"But let your communication be, Yea, yea; Nay, nay: for whatsoever is more
than these cometh of evil." (Matthew 5:37) - basics of digital technology.
"May your kingdom come" - superficial description of plate tectonics
----------------------------------
Zoltán Böszörményi
Cybertec Schönig & Schönig GmbH
http://www.postgresql.at/
diff -dcrpN pgsql.describe/src/interfaces/ecpg/ecpglib/exports.txt pgsql.declare-reset-sqlca/src/interfaces/ecpg/ecpglib/exports.txt
*** pgsql.describe/src/interfaces/ecpg/ecpglib/exports.txt 2008-03-25 13:58:49.000000000 +0100
--- pgsql.declare-reset-sqlca/src/interfaces/ecpg/ecpglib/exports.txt 2009-08-12 18:13:11.000000000 +0200
*************** ECPGstatus 23
*** 26,28 ****
--- 26,29 ----
ECPGtrans 24
sqlprint 25
ECPGget_PGconn 26
+ ECPGreset_sqlca 27
diff -dcrpN pgsql.describe/src/interfaces/ecpg/ecpglib/misc.c pgsql.declare-reset-sqlca/src/interfaces/ecpg/ecpglib/misc.c
*** pgsql.describe/src/interfaces/ecpg/ecpglib/misc.c 2009-08-07 13:06:28.000000000 +0200
--- pgsql.declare-reset-sqlca/src/interfaces/ecpg/ecpglib/misc.c 2009-08-12 18:22:35.000000000 +0200
*************** ecpg_gettext(const char *msgid)
*** 489,491 ****
--- 489,499 ----
}
#endif /* ENABLE_NLS */
+
+ bool
+ ECPGreset_sqlca(int lineno, const char *connection_name)
+ {
+ struct connection *con = ecpg_get_connection(connection_name);
+
+ return ecpg_init(con, connection_name, lineno);
+ }
diff -dcrpN pgsql.describe/src/interfaces/ecpg/include/ecpglib.h pgsql.declare-reset-sqlca/src/interfaces/ecpg/include/ecpglib.h
*** pgsql.describe/src/interfaces/ecpg/include/ecpglib.h 2009-08-11 14:34:03.000000000 +0200
--- pgsql.declare-reset-sqlca/src/interfaces/ecpg/include/ecpglib.h 2009-08-12 18:21:06.000000000 +0200
*************** bool ECPGset_desc(int, const char *, in
*** 84,89 ****
--- 84,90 ----
void ECPGset_noind_null(enum ECPGttype, void *);
bool ECPGis_noind_null(enum ECPGttype, void *);
bool ECPGdescribe(int, bool, const char *, const char *, ...);
+ bool ECPGreset_sqlca(int, const char *);
/* dynamic result allocation */
void ECPGfree_auto_mem(void);
diff -dcrpN pgsql.describe/src/interfaces/ecpg/preproc/ecpg.addons pgsql.declare-reset-sqlca/src/interfaces/ecpg/preproc/ecpg.addons
*** pgsql.describe/src/interfaces/ecpg/preproc/ecpg.addons 2009-08-11 14:34:03.000000000 +0200
--- pgsql.declare-reset-sqlca/src/interfaces/ecpg/preproc/ecpg.addons 2009-08-12 18:59:22.000000000 +0200
*************** ECPG: DeclareCursorStmtDECLAREcursor_nam
*** 298,303 ****
--- 298,306 ----
{
struct cursor *ptr, *this;
char *cursor_marker = $2[0] == ':' ? make_str("$0") : mm_strdup($2);
+ char *command, *comment;
+
+ const char *con = connection ? connection : "NULL";
for (ptr = cur; ptr != NULL; ptr = ptr->next)
{
*************** ECPG: DeclareCursorStmtDECLAREcursor_nam
*** 317,326 ****
argsinsert = argsresult = NULL;
cur = this;
if (INFORMIX_MODE)
! $$ = cat_str(5, adjust_informix(this->argsinsert), adjust_informix(this->argsresult), make_str("/*"), mm_strdup(this->command), make_str("*/"));
else
! $$ = cat_str(3, make_str("/*"), mm_strdup(this->command), make_str("*/"));
}
ECPG: ClosePortalStmtCLOSEcursor_name block
{
--- 320,333 ----
argsinsert = argsresult = NULL;
cur = this;
+ command = (char *)mm_alloc(sizeof("ECPGreset_sqlca(__LINE__, );") + strlen(con));
+ sprintf(command, "ECPGreset_sqlca(__LINE__, %s);", con);
+ comment = cat_str(3, make_str("/*"), mm_strdup(this->command), make_str("*/"));
+
if (INFORMIX_MODE)
! $$ = cat_str(4, adjust_informix(this->argsinsert), adjust_informix(this->argsresult), command, comment);
else
! $$ = cat2_str(command, comment);
}
ECPG: ClosePortalStmtCLOSEcursor_name block
{
diff -dcrpN pgsql.describe/src/interfaces/ecpg/preproc/ecpg.trailer pgsql.declare-reset-sqlca/src/interfaces/ecpg/preproc/ecpg.trailer
*** pgsql.describe/src/interfaces/ecpg/preproc/ecpg.trailer 2009-08-11 17:18:31.000000000 +0200
--- pgsql.declare-reset-sqlca/src/interfaces/ecpg/preproc/ecpg.trailer 2009-08-12 18:48:07.000000000 +0200
*************** ECPGCursorStmt: DECLARE cursor_name cur
*** 323,328 ****
--- 323,329 ----
char *cursor_marker = $2[0] == ':' ? make_str("$0") : mm_strdup($2);
struct variable *thisquery = (struct variable *)mm_alloc(sizeof(struct variable));
const char *con = connection ? connection : "NULL";
+ char *command;
for (ptr = cur; ptr != NULL; ptr = ptr->next)
{
*************** ECPGCursorStmt: DECLARE cursor_name cur
*** 356,362 ****
add_variable_to_head(&(this->argsinsert), thisquery, &no_indicator);
cur = this;
! $$ = cat_str(3, make_str("/*"), mm_strdup(this->command), make_str("*/"));
}
;
--- 357,366 ----
add_variable_to_head(&(this->argsinsert), thisquery, &no_indicator);
cur = this;
! command = (char *)mm_alloc(sizeof("ECPGreset_sqlca(__LINE__, );") + strlen(con));
! sprintf(command, "ECPGreset_sqlca(__LINE__, %s);", con);
!
! $$ = cat_str(4, command, make_str("/*"), mm_strdup(this->command), make_str("*/"));
}
;
diff -dcrpN pgsql.describe/src/interfaces/ecpg/test/expected/compat_informix-cursor.c pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/compat_informix-cursor.c
*** pgsql.describe/src/interfaces/ecpg/test/expected/compat_informix-cursor.c 2009-08-10 18:06:56.000000000 +0200
--- pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/compat_informix-cursor.c 2009-08-12 18:55:23.000000000 +0200
*************** if (sqlca.sqlcode < 0) exit (1);}
*** 156,162 ****
strcpy(msg, "declare");
ECPG_informix_set_var( 0, &( curname1 ), __LINE__);\
! /* declare $0 cursor for select id , t from t1 */
#line 59 "cursor.pgc"
--- 156,162 ----
strcpy(msg, "declare");
ECPG_informix_set_var( 0, &( curname1 ), __LINE__);\
! ECPGreset_sqlca(__LINE__, NULL); /* declare $0 cursor for select id , t from t1 */
#line 59 "cursor.pgc"
*************** if (sqlca.sqlcode < 0) exit (1);}
*** 292,298 ****
ECPG_informix_set_var( 3, &( curname2 ), __LINE__);\
ECPG_informix_set_var( 1, ( t ), __LINE__);\
ECPG_informix_set_var( 2, &( id ), __LINE__);\
! /* declare $0 cursor for select id , t from t1 */
#line 100 "cursor.pgc"
--- 292,298 ----
ECPG_informix_set_var( 3, &( curname2 ), __LINE__);\
ECPG_informix_set_var( 1, ( t ), __LINE__);\
ECPG_informix_set_var( 2, &( id ), __LINE__);\
! ECPGreset_sqlca(__LINE__, NULL); /* declare $0 cursor for select id , t from t1 */
#line 100 "cursor.pgc"
*************** if (sqlca.sqlcode < 0) exit (1);}
*** 441,447 ****
strcpy(msg, "declare");
! /* declare $0 cursor for $1 */
#line 143 "cursor.pgc"
--- 441,447 ----
strcpy(msg, "declare");
! ECPGreset_sqlca(__LINE__, NULL); /* declare $0 cursor for $1 */
#line 143 "cursor.pgc"
*************** if (sqlca.sqlcode < 0) exit (1);}
*** 596,602 ****
strcpy(msg, "declare");
! /* declare $0 cursor for $1 */
#line 193 "cursor.pgc"
--- 596,602 ----
strcpy(msg, "declare");
! ECPGreset_sqlca(__LINE__, NULL); /* declare $0 cursor for $1 */
#line 193 "cursor.pgc"
diff -dcrpN pgsql.describe/src/interfaces/ecpg/test/expected/compat_informix-sqlda.c pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/compat_informix-sqlda.c
*** pgsql.describe/src/interfaces/ecpg/test/expected/compat_informix-sqlda.c 2009-08-11 14:24:20.000000000 +0200
--- pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/compat_informix-sqlda.c 2009-08-12 18:55:25.000000000 +0200
*************** if (sqlca.sqlcode < 0) exit (1);}
*** 291,297 ****
strcpy(msg, "declare");
! /* declare mycur1 cursor for $1 */
#line 100 "sqlda.pgc"
--- 291,297 ----
strcpy(msg, "declare");
! ECPGreset_sqlca(__LINE__, NULL); /* declare mycur1 cursor for $1 */
#line 100 "sqlda.pgc"
*************** if (sqlca.sqlcode < 0) exit (1);}
*** 366,372 ****
strcpy(msg, "declare");
! /* declare mycur2 cursor for $1 */
#line 137 "sqlda.pgc"
--- 366,372 ----
strcpy(msg, "declare");
! ECPGreset_sqlca(__LINE__, NULL); /* declare mycur2 cursor for $1 */
#line 137 "sqlda.pgc"
diff -dcrpN pgsql.describe/src/interfaces/ecpg/test/expected/compat_informix-test_informix.c pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/compat_informix-test_informix.c
*** pgsql.describe/src/interfaces/ecpg/test/expected/compat_informix-test_informix.c 2009-08-09 22:00:45.000000000 +0200
--- pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/compat_informix-test_informix.c 2009-08-12 18:55:26.000000000 +0200
*************** if (sqlca.sqlcode < 0) dosqlprint ( );}
*** 147,153 ****
ECPG_informix_set_var( 0, &( i ), __LINE__);\
! /* declare c cursor for select * from test where i <= $1 */
#line 48 "test_informix.pgc"
openit();
--- 147,153 ----
ECPG_informix_set_var( 0, &( i ), __LINE__);\
! ECPGreset_sqlca(__LINE__, NULL); /* declare c cursor for select * from test where i <= $1 */
#line 48 "test_informix.pgc"
openit();
diff -dcrpN pgsql.describe/src/interfaces/ecpg/test/expected/preproc-autoprep.c pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/preproc-autoprep.c
*** pgsql.describe/src/interfaces/ecpg/test/expected/preproc-autoprep.c 2009-05-25 12:08:49.000000000 +0200
--- pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/preproc-autoprep.c 2009-08-12 18:55:29.000000000 +0200
*************** if (sqlca.sqlcode < 0) sqlprint();}
*** 121,127 ****
for (i=0; i<4; i++)
printf("item[%d] = %d\n", i, ind[i] ? -1 : item[i]);
! /* declare C cursor for select Item1 from T */
#line 33 "autoprep.pgc"
--- 121,127 ----
for (i=0; i<4; i++)
printf("item[%d] = %d\n", i, ind[i] ? -1 : item[i]);
! ECPGreset_sqlca(__LINE__, NULL); /* declare C cursor for select Item1 from T */
#line 33 "autoprep.pgc"
diff -dcrpN pgsql.describe/src/interfaces/ecpg/test/expected/preproc-cursor.c pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/preproc-cursor.c
*** pgsql.describe/src/interfaces/ecpg/test/expected/preproc-cursor.c 2009-08-10 18:04:28.000000000 +0200
--- pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/preproc-cursor.c 2009-08-12 18:55:30.000000000 +0200
*************** if (sqlca.sqlcode < 0) exit (1);}
*** 153,159 ****
/* Dynamic cursorname test with INTO list in FETCH stmts */
strcpy(msg, "declare");
! /* declare $0 cursor for select id , t from t1 */
#line 59 "cursor.pgc"
--- 153,159 ----
/* Dynamic cursorname test with INTO list in FETCH stmts */
strcpy(msg, "declare");
! ECPGreset_sqlca(__LINE__, NULL); /* declare $0 cursor for select id , t from t1 */
#line 59 "cursor.pgc"
*************** if (sqlca.sqlcode < 0) exit (1);}
*** 286,292 ****
/* Dynamic cursorname test with INTO list in DECLARE stmt */
strcpy(msg, "declare");
! /* declare $0 cursor for select id , t from t1 */
#line 100 "cursor.pgc"
--- 286,292 ----
/* Dynamic cursorname test with INTO list in DECLARE stmt */
strcpy(msg, "declare");
! ECPGreset_sqlca(__LINE__, NULL); /* declare $0 cursor for select id , t from t1 */
#line 100 "cursor.pgc"
*************** if (sqlca.sqlcode < 0) exit (1);}
*** 435,441 ****
strcpy(msg, "declare");
! /* declare $0 cursor for $1 */
#line 143 "cursor.pgc"
--- 435,441 ----
strcpy(msg, "declare");
! ECPGreset_sqlca(__LINE__, NULL); /* declare $0 cursor for $1 */
#line 143 "cursor.pgc"
*************** if (sqlca.sqlcode < 0) exit (1);}
*** 590,596 ****
strcpy(msg, "declare");
! /* declare $0 cursor for $1 */
#line 193 "cursor.pgc"
--- 590,596 ----
strcpy(msg, "declare");
! ECPGreset_sqlca(__LINE__, NULL); /* declare $0 cursor for $1 */
#line 193 "cursor.pgc"
diff -dcrpN pgsql.describe/src/interfaces/ecpg/test/expected/preproc-variable.c pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/preproc-variable.c
*** pgsql.describe/src/interfaces/ecpg/test/expected/preproc-variable.c 2008-12-30 15:28:02.000000000 +0100
--- pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/preproc-variable.c 2009-08-12 18:55:32.000000000 +0200
*************** typedef union { int integer; short small
*** 46,66 ****
#line 15 "variable.pgc"
- /* declare cur cursor for select name , born , age , married , children from family */
- #line 18 "variable.pgc"
-
-
int
main (void)
{
struct birthinfo {
! #line 23 "variable.pgc"
long born ;
! #line 23 "variable.pgc"
short age ;
} ;
! #line 23 "variable.pgc"
/* exec sql begin declare section */
--- 46,62 ----
#line 15 "variable.pgc"
int
main (void)
{
struct birthinfo {
! #line 20 "variable.pgc"
long born ;
! #line 20 "variable.pgc"
short age ;
} ;
! #line 20 "variable.pgc"
/* exec sql begin declare section */
*************** main (void)
*** 71,117 ****
! #line 27 "variable.pgc"
struct personal_struct {
! #line 25 "variable.pgc"
! struct varchar_name_25 { int len; char arr[ BUFFERSIZ ]; } name ;
! #line 26 "variable.pgc"
struct birthinfo birth ;
} personal , * p ;
! #line 30 "variable.pgc"
struct personal_indicator {
! #line 28 "variable.pgc"
int ind_name ;
! #line 29 "variable.pgc"
struct birthinfo ind_birth ;
} ind_personal , * i ;
! #line 31 "variable.pgc"
ind ind_children ;
/* exec sql end declare section */
! #line 32 "variable.pgc"
! #line 34 "variable.pgc"
char * married = NULL ;
! #line 34 "variable.pgc"
! #line 35 "variable.pgc"
long ind_married ;
! #line 35 "variable.pgc"
! #line 36 "variable.pgc"
ind children ;
! #line 36 "variable.pgc"
char msg[128];
--- 67,113 ----
! #line 24 "variable.pgc"
struct personal_struct {
! #line 22 "variable.pgc"
! struct varchar_name_22 { int len; char arr[ BUFFERSIZ ]; } name ;
! #line 23 "variable.pgc"
struct birthinfo birth ;
} personal , * p ;
! #line 27 "variable.pgc"
struct personal_indicator {
! #line 25 "variable.pgc"
int ind_name ;
! #line 26 "variable.pgc"
struct birthinfo ind_birth ;
} ind_personal , * i ;
! #line 28 "variable.pgc"
ind ind_children ;
/* exec sql end declare section */
! #line 29 "variable.pgc"
! #line 31 "variable.pgc"
char * married = NULL ;
! #line 31 "variable.pgc"
! #line 32 "variable.pgc"
long ind_married ;
! #line 32 "variable.pgc"
! #line 33 "variable.pgc"
ind children ;
! #line 33 "variable.pgc"
char msg[128];
*************** main (void)
*** 120,197 ****
strcpy(msg, "connect");
{ ECPGconnect(__LINE__, 0, "regress1" , NULL, NULL , NULL, 0);
! #line 43 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 43 "variable.pgc"
strcpy(msg, "set");
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "set datestyle to iso", ECPGt_EOIT, ECPGt_EORT);
! #line 46 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 46 "variable.pgc"
strcpy(msg, "create");
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "create table family ( name char ( 8 ) , born integer , age smallint , married date , children integer )", ECPGt_EOIT, ECPGt_EORT);
! #line 49 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 49 "variable.pgc"
strcpy(msg, "insert");
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into family ( name , married , children ) values ( 'Mum' , '19870714' , 3 )", ECPGt_EOIT, ECPGt_EORT);
! #line 52 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 52 "variable.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into family ( name , born , married , children ) values ( 'Dad' , '19610721' , '19870714' , 3 )", ECPGt_EOIT, ECPGt_EORT);
! #line 53 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 53 "variable.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into family ( name , age ) values ( 'Child 1' , 16 )", ECPGt_EOIT, ECPGt_EORT);
! #line 54 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 54 "variable.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into family ( name , age ) values ( 'Child 2' , 14 )", ECPGt_EOIT, ECPGt_EORT);
! #line 55 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 55 "variable.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into family ( name , age ) values ( 'Child 3' , 9 )", ECPGt_EOIT, ECPGt_EORT);
! #line 56 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 56 "variable.pgc"
strcpy(msg, "commit");
{ ECPGtrans(__LINE__, NULL, "commit");
! #line 59 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 59 "variable.pgc"
strcpy(msg, "open");
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare cur cursor for select name , born , age , married , children from family", ECPGt_EOIT, ECPGt_EORT);
! #line 62 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 62 "variable.pgc"
/* exec sql whenever not found break ; */
! #line 64 "variable.pgc"
p=&personal;
--- 116,198 ----
strcpy(msg, "connect");
{ ECPGconnect(__LINE__, 0, "regress1" , NULL, NULL , NULL, 0);
! #line 40 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 40 "variable.pgc"
strcpy(msg, "set");
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "set datestyle to iso", ECPGt_EOIT, ECPGt_EORT);
! #line 43 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 43 "variable.pgc"
strcpy(msg, "create");
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "create table family ( name char ( 8 ) , born integer , age smallint , married date , children integer )", ECPGt_EOIT, ECPGt_EORT);
! #line 46 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 46 "variable.pgc"
strcpy(msg, "insert");
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into family ( name , married , children ) values ( 'Mum' , '19870714' , 3 )", ECPGt_EOIT, ECPGt_EORT);
! #line 49 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 49 "variable.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into family ( name , born , married , children ) values ( 'Dad' , '19610721' , '19870714' , 3 )", ECPGt_EOIT, ECPGt_EORT);
! #line 50 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 50 "variable.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into family ( name , age ) values ( 'Child 1' , 16 )", ECPGt_EOIT, ECPGt_EORT);
! #line 51 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 51 "variable.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into family ( name , age ) values ( 'Child 2' , 14 )", ECPGt_EOIT, ECPGt_EORT);
! #line 52 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 52 "variable.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into family ( name , age ) values ( 'Child 3' , 9 )", ECPGt_EOIT, ECPGt_EORT);
! #line 53 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 53 "variable.pgc"
strcpy(msg, "commit");
{ ECPGtrans(__LINE__, NULL, "commit");
! #line 56 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 56 "variable.pgc"
!
!
! strcpy(msg, "declare");
! ECPGreset_sqlca(__LINE__, NULL); /* declare cur cursor for select name , born , age , married , children from family */
! #line 60 "variable.pgc"
strcpy(msg, "open");
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare cur cursor for select name , born , age , married , children from family", ECPGt_EOIT, ECPGt_EORT);
! #line 63 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 63 "variable.pgc"
/* exec sql whenever not found break ; */
! #line 65 "variable.pgc"
p=&personal;
*************** if (sqlca.sqlcode < 0) exit (1);}
*** 200,206 ****
while (1) {
strcpy(msg, "fetch");
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "fetch cur", ECPGt_EOIT,
! ECPGt_varchar,&(p->name),(long)BUFFERSIZ,(long)1,sizeof(struct varchar_name_25),
ECPGt_int,&(i->ind_name),(long)1,(long)1,sizeof(int),
ECPGt_long,&(p->birth.born),(long)1,(long)1,sizeof(long),
ECPGt_long,&(i->ind_birth.born),(long)1,(long)1,sizeof(long),
--- 201,207 ----
while (1) {
strcpy(msg, "fetch");
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "fetch cur", ECPGt_EOIT,
! ECPGt_varchar,&(p->name),(long)BUFFERSIZ,(long)1,sizeof(struct varchar_name_22),
ECPGt_int,&(i->ind_name),(long)1,(long)1,sizeof(int),
ECPGt_long,&(p->birth.born),(long)1,(long)1,sizeof(long),
ECPGt_long,&(i->ind_birth.born),(long)1,(long)1,sizeof(long),
*************** if (sqlca.sqlcode < 0) exit (1);}
*** 210,222 ****
ECPGt_long,&(ind_married),(long)1,(long)1,sizeof(long),
ECPGt_int,&(children.integer),(long)1,(long)1,sizeof(int),
ECPGt_short,&(ind_children.smallint),(long)1,(long)1,sizeof(short), ECPGt_EORT);
! #line 71 "variable.pgc"
if (sqlca.sqlcode == ECPG_NOT_FOUND) break;
! #line 71 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 71 "variable.pgc"
printf("%8.8s", personal.name.arr);
if (i->ind_birth.born >= 0)
--- 211,223 ----
ECPGt_long,&(ind_married),(long)1,(long)1,sizeof(long),
ECPGt_int,&(children.integer),(long)1,(long)1,sizeof(int),
ECPGt_short,&(ind_children.smallint),(long)1,(long)1,sizeof(short), ECPGt_EORT);
! #line 72 "variable.pgc"
if (sqlca.sqlcode == ECPG_NOT_FOUND) break;
! #line 72 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 72 "variable.pgc"
printf("%8.8s", personal.name.arr);
if (i->ind_birth.born >= 0)
*************** if (sqlca.sqlcode < 0) exit (1);}
*** 235,268 ****
strcpy(msg, "close");
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "close cur", ECPGt_EOIT, ECPGt_EORT);
! #line 88 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 88 "variable.pgc"
strcpy(msg, "drop");
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "drop table family", ECPGt_EOIT, ECPGt_EORT);
! #line 91 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 91 "variable.pgc"
strcpy(msg, "commit");
{ ECPGtrans(__LINE__, NULL, "commit");
! #line 94 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 94 "variable.pgc"
strcpy(msg, "disconnect");
{ ECPGdisconnect(__LINE__, "CURRENT");
! #line 97 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 97 "variable.pgc"
return (0);
--- 236,269 ----
strcpy(msg, "close");
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "close cur", ECPGt_EOIT, ECPGt_EORT);
! #line 89 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 89 "variable.pgc"
strcpy(msg, "drop");
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "drop table family", ECPGt_EOIT, ECPGt_EORT);
! #line 92 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 92 "variable.pgc"
strcpy(msg, "commit");
{ ECPGtrans(__LINE__, NULL, "commit");
! #line 95 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 95 "variable.pgc"
strcpy(msg, "disconnect");
{ ECPGdisconnect(__LINE__, "CURRENT");
! #line 98 "variable.pgc"
if (sqlca.sqlcode < 0) exit (1);}
! #line 98 "variable.pgc"
return (0);
diff -dcrpN pgsql.describe/src/interfaces/ecpg/test/expected/preproc-variable.stderr pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/preproc-variable.stderr
*** pgsql.describe/src/interfaces/ecpg/test/expected/preproc-variable.stderr 2008-12-30 15:28:02.000000000 +0100
--- pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/preproc-variable.stderr 2009-08-12 18:55:54.000000000 +0200
***************
*** 2,168 ****
[NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGconnect: opening database regress1 on <DEFAULT> port <DEFAULT>
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 46: query: set datestyle to iso; with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 46: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 46: OK: SET
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 49: query: create table family ( name char ( 8 ) , born integer , age smallint , married date , children integer ); with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 49: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 49: OK: CREATE TABLE
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 52: query: insert into family ( name , married , children ) values ( 'Mum' , '19870714' , 3 ); with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 52: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 52: OK: INSERT 0 1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 53: query: insert into family ( name , born , married , children ) values ( 'Dad' , '19610721' , '19870714' , 3 ); with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 53: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 53: OK: INSERT 0 1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 54: query: insert into family ( name , age ) values ( 'Child 1' , 16 ); with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 54: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 54: OK: INSERT 0 1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 55: query: insert into family ( name , age ) values ( 'Child 2' , 14 ); with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 55: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 55: OK: INSERT 0 1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 56: query: insert into family ( name , age ) values ( 'Child 3' , 9 ); with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 56: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 56: OK: INSERT 0 1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ECPGtrans on line 59: action "commit"; connection "regress1"
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 62: query: declare cur cursor for select name , born , age , married , children from family; with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 62: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 62: OK: DECLARE CURSOR
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 71: query: fetch cur; with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 71: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 71: correctly got 1 tuples with 5 fields
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: Mum offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_store_result on line 71: allocating memory for 1 tuples
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: 1987-07-14 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: 3 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 71: query: fetch cur; with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 71: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 71: correctly got 1 tuples with 5 fields
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: Dad offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: 19610721 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_store_result on line 71: allocating memory for 1 tuples
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: 1987-07-14 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: 3 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 71: query: fetch cur; with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 71: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 71: correctly got 1 tuples with 5 fields
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: Child 1 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: 16 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_store_result on line 71: allocating memory for 1 tuples
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 71: query: fetch cur; with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 71: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 71: correctly got 1 tuples with 5 fields
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: Child 2 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: 14 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_store_result on line 71: allocating memory for 1 tuples
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 71: query: fetch cur; with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 71: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 71: correctly got 1 tuples with 5 fields
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: Child 3 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: 9 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_store_result on line 71: allocating memory for 1 tuples
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 71: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 71: query: fetch cur; with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 71: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 71: correctly got 0 tuples with 5 fields
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: raising sqlcode 100 on line 71: no data found on line 71
[NO_PID]: sqlca: code: 100, state: 02000
! [NO_PID]: ecpg_execute on line 88: query: close cur; with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 88: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 88: OK: CLOSE CURSOR
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 91: query: drop table family; with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 91: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 91: OK: DROP TABLE
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ECPGtrans on line 94: action "commit"; connection "regress1"
[NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_finish: connection regress1 closed
[NO_PID]: sqlca: code: 0, state: 00000
--- 2,168 ----
[NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGconnect: opening database regress1 on <DEFAULT> port <DEFAULT>
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 43: query: set datestyle to iso; with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 43: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 43: OK: SET
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 46: query: create table family ( name char ( 8 ) , born integer , age smallint , married date , children integer ); with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 46: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 46: OK: CREATE TABLE
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 49: query: insert into family ( name , married , children ) values ( 'Mum' , '19870714' , 3 ); with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 49: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 49: OK: INSERT 0 1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 50: query: insert into family ( name , born , married , children ) values ( 'Dad' , '19610721' , '19870714' , 3 ); with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 50: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 50: OK: INSERT 0 1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 51: query: insert into family ( name , age ) values ( 'Child 1' , 16 ); with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 51: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 51: OK: INSERT 0 1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 52: query: insert into family ( name , age ) values ( 'Child 2' , 14 ); with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 52: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 52: OK: INSERT 0 1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 53: query: insert into family ( name , age ) values ( 'Child 3' , 9 ); with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 53: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 53: OK: INSERT 0 1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ECPGtrans on line 56: action "commit"; connection "regress1"
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 63: query: declare cur cursor for select name , born , age , married , children from family; with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 63: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 63: OK: DECLARE CURSOR
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 72: query: fetch cur; with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 72: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 72: correctly got 1 tuples with 5 fields
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: Mum offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_store_result on line 72: allocating memory for 1 tuples
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: 1987-07-14 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: 3 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 72: query: fetch cur; with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 72: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 72: correctly got 1 tuples with 5 fields
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: Dad offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: 19610721 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_store_result on line 72: allocating memory for 1 tuples
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: 1987-07-14 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: 3 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 72: query: fetch cur; with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 72: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 72: correctly got 1 tuples with 5 fields
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: Child 1 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: 16 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_store_result on line 72: allocating memory for 1 tuples
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 72: query: fetch cur; with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 72: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 72: correctly got 1 tuples with 5 fields
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: Child 2 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: 14 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_store_result on line 72: allocating memory for 1 tuples
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 72: query: fetch cur; with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 72: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 72: correctly got 1 tuples with 5 fields
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: Child 3 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: 9 offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_store_result on line 72: allocating memory for 1 tuples
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_get_data on line 72: RESULT: offset: -1; array: yes
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 72: query: fetch cur; with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 72: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 72: correctly got 0 tuples with 5 fields
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: raising sqlcode 100 on line 72: no data found on line 72
[NO_PID]: sqlca: code: 100, state: 02000
! [NO_PID]: ecpg_execute on line 89: query: close cur; with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 89: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 89: OK: CLOSE CURSOR
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 92: query: drop table family; with 0 parameter(s) on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 92: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ecpg_execute on line 92: OK: DROP TABLE
[NO_PID]: sqlca: code: 0, state: 00000
! [NO_PID]: ECPGtrans on line 95: action "commit"; connection "regress1"
[NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_finish: connection regress1 closed
[NO_PID]: sqlca: code: 0, state: 00000
diff -dcrpN pgsql.describe/src/interfaces/ecpg/test/expected/sql-binary.c pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/sql-binary.c
*** pgsql.describe/src/interfaces/ecpg/test/expected/sql-binary.c 2009-08-07 13:06:28.000000000 +0200
--- pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/sql-binary.c 2009-08-12 18:55:33.000000000 +0200
*************** main (void)
*** 107,113 ****
exit (sqlca.sqlcode);
}
! /* declare C cursor for select name , accs , byte from empl where idnum = $1 */
#line 58 "binary.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare C cursor for select name , accs , byte from empl where idnum = $1 ",
--- 107,113 ----
exit (sqlca.sqlcode);
}
! ECPGreset_sqlca(__LINE__, NULL); /* declare C cursor for select name , accs , byte from empl where idnum = $1 */
#line 58 "binary.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare C cursor for select name , accs , byte from empl where idnum = $1 ",
*************** main (void)
*** 133,139 ****
printf ("name=%s, accs=%d byte=%s\n", empl.name, empl.accs, empl.byte);
memset(empl.name, 0, 21L);
! /* declare B binary cursor for select name , accs , byte from empl where idnum = $1 */
#line 70 "binary.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare B binary cursor for select name , accs , byte from empl where idnum = $1 ",
--- 133,139 ----
printf ("name=%s, accs=%d byte=%s\n", empl.name, empl.accs, empl.byte);
memset(empl.name, 0, 21L);
! ECPGreset_sqlca(__LINE__, NULL); /* declare B binary cursor for select name , accs , byte from empl where idnum = $1 */
#line 70 "binary.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare B binary cursor for select name , accs , byte from empl where idnum = $1 ",
*************** main (void)
*** 166,172 ****
printf("(%o)", (unsigned char)empl.byte[i]);
printf("\n");
! /* declare A binary cursor for select byte from empl where idnum = $1 */
#line 87 "binary.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare A binary cursor for select byte from empl where idnum = $1 ",
--- 166,172 ----
printf("(%o)", (unsigned char)empl.byte[i]);
printf("\n");
! ECPGreset_sqlca(__LINE__, NULL); /* declare A binary cursor for select byte from empl where idnum = $1 */
#line 87 "binary.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare A binary cursor for select byte from empl where idnum = $1 ",
diff -dcrpN pgsql.describe/src/interfaces/ecpg/test/expected/sql-desc.c pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/sql-desc.c
*** pgsql.describe/src/interfaces/ecpg/test/expected/sql-desc.c 2008-12-30 15:28:02.000000000 +0100
--- pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/sql-desc.c 2009-08-12 18:55:34.000000000 +0200
*************** if (sqlca.sqlcode < 0) sqlprint();}
*** 242,248 ****
printf("output = %s\n", val2output);
! /* declare c1 cursor for $1 */
#line 57 "desc.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare c1 cursor for $1",
--- 242,248 ----
printf("output = %s\n", val2output);
! ECPGreset_sqlca(__LINE__, NULL); /* declare c1 cursor for $1 */
#line 57 "desc.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare c1 cursor for $1",
*************** if (sqlca.sqlcode < 0) sqlprint();}
*** 292,298 ****
#line 67 "desc.pgc"
! /* declare c2 cursor for $1 */
#line 69 "desc.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare c2 cursor for $1",
--- 292,298 ----
#line 67 "desc.pgc"
! ECPGreset_sqlca(__LINE__, NULL); /* declare c2 cursor for $1 */
#line 69 "desc.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare c2 cursor for $1",
diff -dcrpN pgsql.describe/src/interfaces/ecpg/test/expected/sql-dyntest.c pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/sql-dyntest.c
*** pgsql.describe/src/interfaces/ecpg/test/expected/sql-dyntest.c 2009-05-25 12:08:49.000000000 +0200
--- pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/sql-dyntest.c 2009-08-12 18:55:35.000000000 +0200
*************** if (sqlca.sqlcode < 0) error ( );}
*** 257,263 ****
if (sqlca.sqlcode < 0) error ( );}
#line 57 "dyntest.pgc"
! /* declare MYCURS cursor for $1 */
#line 58 "dyntest.pgc"
--- 257,263 ----
if (sqlca.sqlcode < 0) error ( );}
#line 57 "dyntest.pgc"
! ECPGreset_sqlca(__LINE__, NULL); /* declare MYCURS cursor for $1 */
#line 58 "dyntest.pgc"
diff -dcrpN pgsql.describe/src/interfaces/ecpg/test/expected/sql-execute.c pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/sql-execute.c
*** pgsql.describe/src/interfaces/ecpg/test/expected/sql-execute.c 2008-12-30 15:28:02.000000000 +0100
--- pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/sql-execute.c 2009-08-12 18:55:35.000000000 +0200
*************** if (sqlca.sqlcode < 0) sqlprint();}
*** 136,142 ****
if (sqlca.sqlcode < 0) sqlprint();}
#line 49 "execute.pgc"
! /* declare CUR cursor for $1 */
#line 50 "execute.pgc"
--- 136,142 ----
if (sqlca.sqlcode < 0) sqlprint();}
#line 49 "execute.pgc"
! ECPGreset_sqlca(__LINE__, NULL); /* declare CUR cursor for $1 */
#line 50 "execute.pgc"
*************** if (sqlca.sqlcode < 0) sqlprint();}
*** 201,207 ****
if (sqlca.sqlcode < 0) sqlprint();}
#line 71 "execute.pgc"
! /* declare CUR2 cursor for $1 */
#line 72 "execute.pgc"
--- 201,207 ----
if (sqlca.sqlcode < 0) sqlprint();}
#line 71 "execute.pgc"
! ECPGreset_sqlca(__LINE__, NULL); /* declare CUR2 cursor for $1 */
#line 72 "execute.pgc"
diff -dcrpN pgsql.describe/src/interfaces/ecpg/test/expected/sql-fetch.c pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/sql-fetch.c
*** pgsql.describe/src/interfaces/ecpg/test/expected/sql-fetch.c 2009-05-25 12:08:49.000000000 +0200
--- pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/sql-fetch.c 2009-08-12 18:55:36.000000000 +0200
*************** if (sqlca.sqlcode < 0) sqlprint();}
*** 95,101 ****
#line 24 "fetch.pgc"
! /* declare C cursor for select * from My_Table */
#line 26 "fetch.pgc"
--- 95,101 ----
#line 24 "fetch.pgc"
! ECPGreset_sqlca(__LINE__, NULL); /* declare C cursor for select * from My_Table */
#line 26 "fetch.pgc"
*************** if (sqlca.sqlcode < 0) sqlprint();}
*** 162,168 ****
printf("%d: %s\n", i, str);
! /* declare D cursor for select * from My_Table where Item1 = $1 */
#line 42 "fetch.pgc"
--- 162,168 ----
printf("%d: %s\n", i, str);
! ECPGreset_sqlca(__LINE__, NULL); /* declare D cursor for select * from My_Table where Item1 = $1 */
#line 42 "fetch.pgc"
diff -dcrpN pgsql.describe/src/interfaces/ecpg/test/expected/sql-oldexec.c pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/sql-oldexec.c
*** pgsql.describe/src/interfaces/ecpg/test/expected/sql-oldexec.c 2008-12-30 15:28:02.000000000 +0100
--- pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/sql-oldexec.c 2009-08-12 18:55:37.000000000 +0200
*************** if (sqlca.sqlcode < 0) sqlprint();}
*** 136,142 ****
if (sqlca.sqlcode < 0) sqlprint();}
#line 49 "oldexec.pgc"
! /* declare CUR cursor for $1 */
#line 50 "oldexec.pgc"
--- 136,142 ----
if (sqlca.sqlcode < 0) sqlprint();}
#line 49 "oldexec.pgc"
! ECPGreset_sqlca(__LINE__, NULL); /* declare CUR cursor for $1 */
#line 50 "oldexec.pgc"
*************** if (sqlca.sqlcode < 0) sqlprint();}
*** 195,201 ****
if (sqlca.sqlcode < 0) sqlprint();}
#line 70 "oldexec.pgc"
! /* declare CUR3 cursor for $1 */
#line 71 "oldexec.pgc"
--- 195,201 ----
if (sqlca.sqlcode < 0) sqlprint();}
#line 70 "oldexec.pgc"
! ECPGreset_sqlca(__LINE__, NULL); /* declare CUR3 cursor for $1 */
#line 71 "oldexec.pgc"
diff -dcrpN pgsql.describe/src/interfaces/ecpg/test/expected/sql-quote.c pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/sql-quote.c
*** pgsql.describe/src/interfaces/ecpg/test/expected/sql-quote.c 2009-05-25 12:08:49.000000000 +0200
--- pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/expected/sql-quote.c 2009-08-12 18:55:37.000000000 +0200
*************** if (sqlca.sqlwarn[0] == 'W') sqlprint();
*** 135,141 ****
if (sqlca.sqlcode < 0) sqlprint();}
#line 37 "quote.pgc"
! /* declare C cursor for select * from \"My_Table\" */
#line 38 "quote.pgc"
--- 135,141 ----
if (sqlca.sqlcode < 0) sqlprint();}
#line 37 "quote.pgc"
! ECPGreset_sqlca(__LINE__, NULL); /* declare C cursor for select * from \"My_Table\" */
#line 38 "quote.pgc"
diff -dcrpN pgsql.describe/src/interfaces/ecpg/test/preproc/variable.pgc pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/preproc/variable.pgc
*** pgsql.describe/src/interfaces/ecpg/test/preproc/variable.pgc 2007-05-27 13:16:41.000000000 +0200
--- pgsql.declare-reset-sqlca/src/interfaces/ecpg/test/preproc/variable.pgc 2009-08-12 18:50:43.000000000 +0200
*************** typedef union { int integer; short small
*** 14,22 ****
#define BUFFERSIZ 8
exec sql type str is varchar[BUFFERSIZ];
- exec sql declare cur cursor for
- select name, born, age, married, children from family;
-
int
main (void)
{
--- 14,19 ----
*************** exec sql end declare section;
*** 58,63 ****
--- 55,64 ----
strcpy(msg, "commit");
exec sql commit;
+ strcpy(msg, "declare");
+ exec sql declare cur cursor for
+ select name, born, age, married, children from family;
+
strcpy(msg, "open");
exec sql open cur;
--
Sent via pgsql-hackers mailing list (pgsql-hackers@postgresql.org)
To make changes to your subscription:
http://www.postgresql.org/mailpref/pgsql-hackers
