/* Processed by ecpg (regression mode) */
/* These include files are added by the preprocessor */
#include <ecpglib.h>
#include <ecpgerrno.h>
#include <sqlca.h>
/* End of automatic include section */
#define ECPGdebug(X,Y) ECPGdebug((X)+100 ,(Y))
#line 1 "cursor.pgc"
#include <stdlib.h>
#include <string.h>
#line 1 "regression.h"
#line 4 "cursor.pgc"
/* exec sql whenever sqlerror stop ; */
#line 6 "cursor.pgc"
/* exec sql type c is char reference */
#line 8 "cursor.pgc"
typedef char * c;
/* exec sql type ind is union {
# line 11 " cursor . pgc "
int integer ;
# line 11 " cursor . pgc "
short smallint ;
} */
#line 11 "cursor.pgc"
typedef union { int integer; short smallint; } ind;
#define BUFFERSIZ 8
/* exec sql type str is [ BUFFERSIZ ] */
#line 15 "cursor.pgc"
#define CURNAME "mycur"
int
main (void )
{
/* exec sql begin declare section */
#line 23 "cursor.pgc"
char * stmt1 = "SELECT id, t FROM t1" ;
#line 24 "cursor.pgc"
char * curname1 = CURNAME ;
#line 25 "cursor.pgc"
char * curname2 = CURNAME ;
#line 26 "cursor.pgc"
char * curname3 = CURNAME ;
#line 27 "cursor.pgc"
struct varchar_1 { int len; char arr[ 50 ]; } curname4 ;
#line 28 "cursor.pgc"
char * curname5 = CURNAME ;
#line 29 "cursor.pgc"
int count ;
#line 30 "cursor.pgc"
int id ;
#line 31 "cursor.pgc"
char t [ 64 ] ;
/* exec sql end declare section */
#line 32 "cursor.pgc"
char msg[128 ];
ECPGdebug(1 , stderr);
strcpy(msg, "connect" );
{ ECPGconnect(__LINE__, 0 , "ecpg1_regression" , NULL, NULL , "test1" , 0 );
#line 39 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 39 "cursor.pgc"
{ ECPGconnect(__LINE__, 0 , "ecpg2_regression" , NULL, NULL , "test2" , 0 );
#line 40 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 40 "cursor.pgc"
strcpy(msg, "set" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "set datestyle to iso" , ECPGt_EOIT, ECPGt_EORT);
#line 43 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 43 "cursor.pgc"
strcpy(msg, "create" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "create table t1 ( id serial primary key , t text )" , ECPGt_EOIT, ECPGt_EORT);
#line 46 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 46 "cursor.pgc"
{ ECPGdo(__LINE__, 0 , 1 , "test2" , 0 , ECPGst_normal, "create table t1 ( id serial primary key , t text )" , ECPGt_EOIT, ECPGt_EORT);
#line 47 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 47 "cursor.pgc"
strcpy(msg, "insert" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "insert into t1 ( id , t ) values ( default , 'a' )" , ECPGt_EOIT, ECPGt_EORT);
#line 50 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 50 "cursor.pgc"
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "insert into t1 ( id , t ) values ( default , 'b' )" , ECPGt_EOIT, ECPGt_EORT);
#line 51 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 51 "cursor.pgc"
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "insert into t1 ( id , t ) values ( default , 'c' )" , ECPGt_EOIT, ECPGt_EORT);
#line 52 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 52 "cursor.pgc"
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "insert into t1 ( id , t ) values ( default , 'd' )" , ECPGt_EOIT, ECPGt_EORT);
#line 53 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 53 "cursor.pgc"
{ ECPGdo(__LINE__, 0 , 1 , "test2" , 0 , ECPGst_normal, "insert into t1 ( id , t ) values ( default , 'e' )" , ECPGt_EOIT, ECPGt_EORT);
#line 54 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 54 "cursor.pgc"
strcpy(msg, "commit" );
{ ECPGtrans(__LINE__, "test1" , "commit" );
#line 57 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 57 "cursor.pgc"
{ ECPGtrans(__LINE__, "test2" , "commit" );
#line 58 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 58 "cursor.pgc"
/* Dynamic cursorname test with INTO list in FETCH stmts */
strcpy(msg, "declare" );
ECPGset_var( 0 , &( curname1 ), __LINE__);\
/* declare $0 cursor for select id , t from t1 */
#line 64 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );
#line 64 "cursor.pgc"
#line 64 "cursor.pgc"
strcpy(msg, "open" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "declare $0 cursor for select id , t from t1" ,
ECPGt_char,&(curname1),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT, ECPGt_EORT);
#line 67 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 67 "cursor.pgc"
strcpy(msg, "fetch from" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch forward from $0" ,
ECPGt_char,&(curname1),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 70 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 70 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "fetch" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch forward $0" ,
ECPGt_char,&(curname1),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 74 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 74 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "fetch 1 from" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch 1 from $0" ,
ECPGt_char,&(curname1),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 78 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 78 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "fetch :count from" );
count = 1 ;
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch $0 from $0" ,
ECPGt_int,&(count),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,&(curname1),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 83 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 83 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "move in" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "move absolute 0 in $0" ,
ECPGt_char,&(curname1),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT, ECPGt_EORT);
#line 87 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 87 "cursor.pgc"
strcpy(msg, "fetch 1" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch 1 $0" ,
ECPGt_char,&(curname1),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 90 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 90 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "fetch :count" );
count = 1 ;
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch $0 $0" ,
ECPGt_int,&(count),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,&(curname1),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 95 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 95 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "close" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "close $0" ,
ECPGt_char,&(curname1),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT, ECPGt_EORT);
#line 99 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 99 "cursor.pgc"
/* Dynamic cursorname test with INTO list in DECLARE stmt */
strcpy(msg, "declare" );
ECPGset_var( 1 , &( curname2 ), __LINE__);\
ECPGset_var( 2 , ( t ), __LINE__);\
ECPGset_var( 3 , &( id ), __LINE__);\
/* declare $0 cursor for select id , t from t1 */
#line 105 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );
#line 105 "cursor.pgc"
#line 105 "cursor.pgc"
strcpy(msg, "open" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "declare $0 cursor for select id , t from t1" ,
ECPGt_char,&(curname2),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 108 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 108 "cursor.pgc"
strcpy(msg, "fetch from" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch from $0" ,
ECPGt_char,&(curname2),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 111 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 111 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "fetch" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch $0" ,
ECPGt_char,&(curname2),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 115 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 115 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "fetch 1 from" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch 1 from $0" ,
ECPGt_char,&(curname2),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 119 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 119 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "fetch :count from" );
count = 1 ;
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch $0 from $0" ,
ECPGt_int,&(count),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,&(curname2),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 124 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 124 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "move" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "move absolute 0 $0" ,
ECPGt_char,&(curname2),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 128 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 128 "cursor.pgc"
strcpy(msg, "fetch 1" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch 1 $0" ,
ECPGt_char,&(curname2),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 131 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 131 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "fetch :count" );
count = 1 ;
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch $0 $0" ,
ECPGt_int,&(count),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,&(curname2),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 136 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 136 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "close" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "close $0" ,
ECPGt_char,&(curname2),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT, ECPGt_EORT);
#line 140 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 140 "cursor.pgc"
/* Dynamic cursorname test with PREPARED stmt */
strcpy(msg, "prepare" );
{ ECPGprepare(__LINE__, "test1" , 0 , "st_id1" , stmt1);
#line 145 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 145 "cursor.pgc"
{ ECPGprepare(__LINE__, "test2" , 0 , "st_id1" , stmt1);
#line 146 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 146 "cursor.pgc"
strcpy(msg, "declare" );
ECPGset_var( 4 , &( curname3 ), __LINE__);\
/* declare $0 cursor for $1 */
#line 149 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );
#line 149 "cursor.pgc"
#line 149 "cursor.pgc"
ECPGset_var( 5 , &( curname5 ), __LINE__);\
/* declare $0 cursor for $1 */
#line 150 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );
#line 150 "cursor.pgc"
#line 150 "cursor.pgc"
strcpy(msg, "open" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "declare $0 cursor for $1" ,
ECPGt_char,&(curname3),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char_variable,(ECPGprepared_statement("test1" , "st_id1" , __LINE__)),(long )1 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT, ECPGt_EORT);
#line 153 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 153 "cursor.pgc"
{ ECPGdo(__LINE__, 0 , 1 , "test2" , 0 , ECPGst_normal, "declare $0 cursor for $1" ,
ECPGt_char,&(curname5),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char_variable,(ECPGprepared_statement("test2" , "st_id1" , __LINE__)),(long )1 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT, ECPGt_EORT);
#line 154 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 154 "cursor.pgc"
strcpy(msg, "fetch" );
{ ECPGdo(__LINE__, 0 , 1 , "test2" , 0 , ECPGst_normal, "fetch $0" ,
ECPGt_char,&(curname5),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 157 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 157 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "fetch from" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch from $0" ,
ECPGt_char,&(curname3),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 161 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 161 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "fetch 1 from" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch 1 from $0" ,
ECPGt_char,&(curname3),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 165 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 165 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "fetch :count from" );
count = 1 ;
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch $0 from $0" ,
ECPGt_int,&(count),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,&(curname3),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 170 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 170 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "move" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "move absolute 0 $0" ,
ECPGt_char,&(curname3),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT, ECPGt_EORT);
#line 174 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 174 "cursor.pgc"
strcpy(msg, "fetch 1" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch 1 $0" ,
ECPGt_char,&(curname3),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 177 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 177 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "fetch :count" );
count = 1 ;
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch $0 $0" ,
ECPGt_int,&(count),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,&(curname3),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 182 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 182 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "close" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "close $0" ,
ECPGt_char,&(curname3),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT, ECPGt_EORT);
#line 186 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 186 "cursor.pgc"
{ ECPGdo(__LINE__, 0 , 1 , "test2" , 0 , ECPGst_normal, "close $0" ,
ECPGt_char,&(curname5),(long )0 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT, ECPGt_EORT);
#line 187 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 187 "cursor.pgc"
strcpy(msg, "deallocate prepare" );
{ ECPGdeallocate(__LINE__, 0 , "test1" , "st_id1" );
#line 190 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 190 "cursor.pgc"
{ ECPGdeallocate(__LINE__, 0 , "test2" , "st_id1" );
#line 191 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 191 "cursor.pgc"
/* Dynamic cursorname test with PREPARED stmt,
cursor name in varchar */
curname4.len = strlen(CURNAME);
strcpy(curname4.arr, CURNAME);
strcpy(msg, "prepare" );
{ ECPGprepare(__LINE__, "test1" , 0 , "st_id2" , stmt1);
#line 200 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 200 "cursor.pgc"
strcpy(msg, "declare" );
ECPGset_var( 6 , &( curname4 ), __LINE__);\
/* declare $0 cursor for $1 */
#line 203 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );
#line 203 "cursor.pgc"
#line 203 "cursor.pgc"
strcpy(msg, "open" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "declare $0 cursor for $1" ,
ECPGt_varchar,&(curname4),(long )50 ,(long )1 ,sizeof (struct varchar_1),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char_variable,(ECPGprepared_statement("test1" , "st_id2" , __LINE__)),(long )1 ,(long )1 ,(1 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT, ECPGt_EORT);
#line 206 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 206 "cursor.pgc"
strcpy(msg, "fetch from" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch from $0" ,
ECPGt_varchar,&(curname4),(long )50 ,(long )1 ,sizeof (struct varchar_1),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 209 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 209 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "fetch" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch $0" ,
ECPGt_varchar,&(curname4),(long )50 ,(long )1 ,sizeof (struct varchar_1),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 213 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 213 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "fetch 1 from" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch 1 from $0" ,
ECPGt_varchar,&(curname4),(long )50 ,(long )1 ,sizeof (struct varchar_1),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 217 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 217 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "fetch :count from" );
count = 1 ;
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch $0 from $0" ,
ECPGt_int,&(count),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_varchar,&(curname4),(long )50 ,(long )1 ,sizeof (struct varchar_1),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 222 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 222 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "move" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "move absolute 0 $0" ,
ECPGt_varchar,&(curname4),(long )50 ,(long )1 ,sizeof (struct varchar_1),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT, ECPGt_EORT);
#line 226 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 226 "cursor.pgc"
strcpy(msg, "fetch 1" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch 1 $0" ,
ECPGt_varchar,&(curname4),(long )50 ,(long )1 ,sizeof (struct varchar_1),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 229 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 229 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "fetch :count" );
count = 1 ;
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "fetch $0 $0" ,
ECPGt_int,&(count),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_varchar,&(curname4),(long )50 ,(long )1 ,sizeof (struct varchar_1),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT,
ECPGt_int,&(id),(long )1 ,(long )1 ,sizeof (int ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L,
ECPGt_char,(t),(long )64 ,(long )1 ,(64 )*sizeof (char ),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EORT);
#line 234 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 234 "cursor.pgc"
printf("%d %s\n" , id, t);
strcpy(msg, "close" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "close $0" ,
ECPGt_varchar,&(curname4),(long )50 ,(long )1 ,sizeof (struct varchar_1),
ECPGt_NO_INDICATOR, NULL , 0 L, 0 L, 0 L, ECPGt_EOIT, ECPGt_EORT);
#line 238 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 238 "cursor.pgc"
strcpy(msg, "deallocate prepare" );
{ ECPGdeallocate(__LINE__, 0 , "test1" , "st_id2" );
#line 241 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 241 "cursor.pgc"
/* End test */
strcpy(msg, "drop" );
{ ECPGdo(__LINE__, 0 , 1 , "test1" , 0 , ECPGst_normal, "drop table t1" , ECPGt_EOIT, ECPGt_EORT);
#line 246 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 246 "cursor.pgc"
{ ECPGdo(__LINE__, 0 , 1 , "test2" , 0 , ECPGst_normal, "drop table t1" , ECPGt_EOIT, ECPGt_EORT);
#line 247 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 247 "cursor.pgc"
strcpy(msg, "commit" );
{ ECPGtrans(__LINE__, "test1" , "commit" );
#line 250 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 250 "cursor.pgc"
strcpy(msg, "disconnect" );
{ ECPGdisconnect(__LINE__, "ALL" );
#line 253 "cursor.pgc"
if (sqlca.sqlcode < 0 ) exit (1 );}
#line 253 "cursor.pgc"
return 0 ;
}
Messung V0.5 in Prozent C=97 H=100 G=98
¤ Dauer der Verarbeitung: 0.17 Sekunden
(vorverarbeitet am 2026-08-08)
¤
*© Formatika GbR, Deutschland