int main(void) { #line 14 "test_informix.pgc" int i = 14 ; #line 14 "test_informix.pgc" #line 15 "test_informix.pgc" decimal j , m , n ; #line 15 "test_informix.pgc" #line 16 "test_informix.pgc" char c [ 10 ] ; #line 16 "test_informix.pgc" ECPGdebug(1, stderr); /* exec sql whenever sqlerror do dosqlprint ( ) ; */ #line 19 "test_informix.pgc" { ECPGconnect(__LINE__, 1, "ecpg1_regression" , NULL, NULL , NULL, 0); #line 21 "test_informix.pgc" if (sqlca.sqlcode < 0) dosqlprint ( );} #line 21 "test_informix.pgc" if (sqlca.sqlcode != 0) exit(1); { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "create table test ( i int primary key , j int , c text )", ECPGt_EOIT, ECPGt_EORT); #line 24 "test_informix.pgc" if (sqlca.sqlcode < 0) dosqlprint ( );} #line 24 "test_informix.pgc" /* this INSERT works */ rsetnull(CDECIMALTYPE, (char *)&j); { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "insert into test ( i , j , c ) values ( 7 , $1 , 'test ' )", ECPGt_decimal,&(j),(long)1,(long)1,sizeof(decimal), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT); #line 28 "test_informix.pgc" if (sqlca.sqlcode < 0) dosqlprint ( );} #line 28 "test_informix.pgc" { ECPGtrans(__LINE__, NULL, "commit"); #line 29 "test_informix.pgc" if (sqlca.sqlcode < 0) dosqlprint ( );} #line 29 "test_informix.pgc" /* this INSERT should fail because i is a unique column */ { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "insert into test ( i , j , c ) values ( 7 , 12 , 'a' )", ECPGt_EOIT, ECPGt_EORT); #line 32 "test_informix.pgc" if (sqlca.sqlcode < 0) dosqlprint ( );} #line 32 "test_informix.pgc" printf("INSERT: %ld=%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); if (sqlca.sqlcode != 0) { ECPGtrans(__LINE__, NULL, "rollback"); #line 34 "test_informix.pgc" if (sqlca.sqlcode < 0) dosqlprint ( );} #line 34 "test_informix.pgc" { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "insert into test ( i , j , c ) values ( $1 , 1 , 'a ' )", ECPGt_int,&(i),(long)1,(long)1,sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT); #line 36 "test_informix.pgc" if (sqlca.sqlcode < 0) dosqlprint ( );} #line 36 "test_informix.pgc" { ECPGtrans(__LINE__, NULL, "commit"); #line 37 "test_informix.pgc" if (sqlca.sqlcode < 0) dosqlprint ( );} #line 37 "test_informix.pgc" /* this will fail (more than one row in subquery) */ { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "select i from test where j = ( select j from test )", ECPGt_EOIT, ECPGt_EORT); #line 40 "test_informix.pgc" if (sqlca.sqlcode < 0) dosqlprint ( );} #line 40 "test_informix.pgc" { ECPGtrans(__LINE__, NULL, "rollback"); #line 41 "test_informix.pgc" if (sqlca.sqlcode < 0) dosqlprint ( );} #line 41 "test_informix.pgc" /* this however should be ok */ { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "select i from test where j = ( select j from test order by i limit 1 )", ECPGt_EOIT, ECPGt_EORT); #line 44 "test_informix.pgc" if (sqlca.sqlcode < 0) dosqlprint ( );} #line 44 "test_informix.pgc" printf("SELECT: %ld=%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); if (sqlca.sqlcode != 0) { ECPGtrans(__LINE__, NULL, "rollback"); #line 46 "test_informix.pgc" if (sqlca.sqlcode < 0) dosqlprint ( );} #line 46 "test_informix.pgc" sqlca.sqlcode = 100; ECPGset_var( 0, &( i ), __LINE__);\ ECPG_informix_reset_sqlca(); /* declare c cursor for select * from test where i <= $1 */ #line 49 "test_informix.pgc" printf ("%ld\n", sqlca.sqlcode); openit(); deccvint(0, &j); while (1) { { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "fetch forward c", ECPGt_EOIT, ECPGt_int,&(i),(long)1,(long)1,sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_decimal,&(j),(long)1,(long)1,sizeof(decimal), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_string,(c),(long)10,(long)1,(10)*sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT); #line 57 "test_informix.pgc" if (sqlca.sqlcode < 0) dosqlprint ( );} #line 57 "test_informix.pgc" if (sqlca.sqlcode == 100) break; else if (sqlca.sqlcode != 0) printf ("Error: %ld\n", sqlca.sqlcode); if (risnull(CDECIMALTYPE, (char *)&j)) printf("%d NULL\n", i); else { int a; dectoint(&j, &a); printf("%d %d \"%s\"\n", i, a, c); } } deccvint(7, &j); deccvint(14, &m); decadd(&j, &m, &n); { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "delete from test where i = $1 :: decimal", ECPGt_decimal,&(n),(long)1,(long)1,sizeof(decimal), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT); #line 75 "test_informix.pgc" if (sqlca.sqlcode < 0) dosqlprint ( );} #line 75 "test_informix.pgc" printf("DELETE: %ld\n", sqlca.sqlcode); { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "select 1 from test where i = 14", ECPGt_EOIT, ECPGt_EORT); #line 78 "test_informix.pgc" if (sqlca.sqlcode < 0) dosqlprint ( );} #line 78 "test_informix.pgc" printf("Exists: %ld\n", sqlca.sqlcode); { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "select 1 from test where i = 147", ECPGt_EOIT, ECPGt_EORT); #line 81 "test_informix.pgc" if (sqlca.sqlcode < 0) dosqlprint ( );} #line 81 "test_informix.pgc" printf("Does not exist: %ld\n", sqlca.sqlcode); { ECPGtrans(__LINE__, NULL, "commit"); #line 84 "test_informix.pgc" if (sqlca.sqlcode < 0) dosqlprint ( );} #line 84 "test_informix.pgc" { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "drop table test", ECPGt_EOIT, ECPGt_EORT); #line 85 "test_informix.pgc" if (sqlca.sqlcode < 0) dosqlprint ( );} #line 85 "test_informix.pgc" { ECPGtrans(__LINE__, NULL, "commit"); #line 86 "test_informix.pgc" if (sqlca.sqlcode < 0) dosqlprint ( );} #line 86 "test_informix.pgc" { ECPGdisconnect(__LINE__, "CURRENT"); #line 88 "test_informix.pgc" if (sqlca.sqlcode < 0) dosqlprint ( );} #line 88 "test_informix.pgc" return 0; }
int main (void) { /* 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); }