int main(void) { /* exec sql begin declare section */ #line 8 "desc.pgc" char * stmt1 = "INSERT INTO test1 VALUES ($1, $2)" ; #line 9 "desc.pgc" char * stmt2 = "SELECT * from test1 where a = $1 and b = $2" ; #line 10 "desc.pgc" char * stmt3 = "SELECT * from test1 where :var = a" ; #line 12 "desc.pgc" int val1 = 1 ; #line 13 "desc.pgc" char val2 [ 4 ] = "one" , val2output [] = "AAA" ; #line 14 "desc.pgc" int val1output = 2 , val2i = 0 ; #line 15 "desc.pgc" int val2null = - 1 ; #line 16 "desc.pgc" int ind1 , ind2 ; #line 17 "desc.pgc" char desc1 [ 8 ] = "outdesc" ; /* exec sql end declare section */ #line 18 "desc.pgc" ECPGdebug(1, stderr); ECPGallocate_desc(__LINE__, "indesc"); #line 22 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint(); #line 22 "desc.pgc" ECPGallocate_desc(__LINE__, (desc1)); #line 23 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint(); #line 23 "desc.pgc" { ECPGset_desc(__LINE__, "indesc", 1,ECPGd_data, ECPGt_int,&(val1),(long)1,(long)1,sizeof(int), ECPGd_EODT); #line 25 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 25 "desc.pgc" { ECPGset_desc(__LINE__, "indesc", 2,ECPGd_data, ECPGt_char,(val2),(long)4,(long)1,(4)*sizeof(char), ECPGd_indicator, ECPGt_int,&(val2i),(long)1,(long)1,sizeof(int), ECPGd_EODT); #line 26 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 26 "desc.pgc" { ECPGconnect(__LINE__, 0, "regress1" , NULL, NULL , NULL, 0); #line 28 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 28 "desc.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "create table test1 ( a int , b text )", ECPGt_EOIT, ECPGt_EORT); #line 30 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 30 "desc.pgc" { ECPGprepare(__LINE__, NULL, 0, "foo1", stmt1); #line 31 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 31 "desc.pgc" { ECPGprepare(__LINE__, NULL, 0, "Foo-1", stmt1); #line 32 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 32 "desc.pgc" { ECPGprepare(__LINE__, NULL, 0, "foo2", stmt2); #line 33 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 33 "desc.pgc" { ECPGprepare(__LINE__, NULL, 0, "foo3", stmt3); #line 34 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 34 "desc.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_execute, "foo1", ECPGt_descriptor, "indesc", 1L, 1L, 1L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT); #line 36 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 36 "desc.pgc" { ECPGset_desc(__LINE__, "indesc", 1,ECPGd_data, ECPGt_const,"2",(long)1,(long)1,strlen("2"), ECPGd_EODT); #line 38 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 38 "desc.pgc" { ECPGset_desc(__LINE__, "indesc", 2,ECPGd_data, ECPGt_char,(val2),(long)4,(long)1,(4)*sizeof(char), ECPGd_indicator, ECPGt_int,&(val2null),(long)1,(long)1,sizeof(int), ECPGd_EODT); #line 39 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 39 "desc.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_execute, "foo1", ECPGt_descriptor, "indesc", 1L, 1L, 1L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT); #line 41 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 41 "desc.pgc" { ECPGset_desc(__LINE__, "indesc", 1,ECPGd_data, ECPGt_const,"3",(long)1,(long)1,strlen("3"), ECPGd_EODT); #line 43 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 43 "desc.pgc" { ECPGset_desc(__LINE__, "indesc", 2,ECPGd_data, ECPGt_const,"this is a long test",(long)19,(long)1,strlen("this is a long test"), ECPGd_indicator, ECPGt_int,&(val1),(long)1,(long)1,sizeof(int), ECPGd_EODT); #line 44 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 44 "desc.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_execute, "Foo-1", ECPGt_descriptor, "indesc", 1L, 1L, 1L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT); #line 46 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 46 "desc.pgc" { ECPGdeallocate(__LINE__, 0, NULL, "Foo-1"); #line 48 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 48 "desc.pgc" { ECPGset_desc(__LINE__, "indesc", 1,ECPGd_data, ECPGt_int,&(val1),(long)1,(long)1,sizeof(int), ECPGd_EODT); #line 50 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 50 "desc.pgc" { ECPGset_desc(__LINE__, "indesc", 2,ECPGd_data, ECPGt_char,(val2),(long)4,(long)1,(4)*sizeof(char), ECPGd_indicator, ECPGt_int,&(val2i),(long)1,(long)1,sizeof(int), ECPGd_EODT); #line 51 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 51 "desc.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_execute, "foo2", ECPGt_descriptor, "indesc", 1L, 1L, 1L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_descriptor, "outdesc", 1L, 1L, 1L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT); #line 53 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 53 "desc.pgc" { ECPGget_desc(__LINE__, "outdesc", 1,ECPGd_data, ECPGt_char,(val2output),(long)sizeof("AAA"),(long)1,(sizeof("AAA"))*sizeof(char), ECPGd_EODT); #line 55 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 55 "desc.pgc" printf("output = %s\n", val2output); /* declare c1 cursor for $1 */ #line 58 "desc.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare c1 cursor for $1", ECPGt_char_variable,(ECPGprepared_statement(NULL, "foo2", __LINE__)),(long)1,(long)1,(1)*sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_descriptor, "indesc", 1L, 1L, 1L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT); #line 59 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 59 "desc.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "fetch next from c1", ECPGt_EOIT, ECPGt_int,&(val1output),(long)1,(long)1,sizeof(int), ECPGt_int,&(ind1),(long)1,(long)1,sizeof(int), ECPGt_char,(val2output),(long)sizeof("AAA"),(long)1,(sizeof("AAA"))*sizeof(char), ECPGt_int,&(ind2),(long)1,(long)1,sizeof(int), ECPGt_EORT); #line 61 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 61 "desc.pgc" printf("val1=%d (ind1: %d) val2=%s (ind2: %d)\n", val1output, ind1, val2output, ind2); { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "close c1", ECPGt_EOIT, ECPGt_EORT); #line 65 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 65 "desc.pgc" { ECPGset_desc_header(__LINE__, "indesc", (int)(1)); #line 67 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 67 "desc.pgc" { ECPGset_desc(__LINE__, "indesc", 1,ECPGd_data, ECPGt_const,"2",(long)1,(long)1,strlen("2"), ECPGd_EODT); #line 68 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 68 "desc.pgc" /* declare c2 cursor for $1 */ #line 70 "desc.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare c2 cursor for $1", ECPGt_char_variable,(ECPGprepared_statement(NULL, "foo3", __LINE__)),(long)1,(long)1,(1)*sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_descriptor, "indesc", 1L, 1L, 1L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT); #line 71 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 71 "desc.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "fetch next from c2", ECPGt_EOIT, ECPGt_int,&(val1output),(long)1,(long)1,sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_char,(val2output),(long)sizeof("AAA"),(long)1,(sizeof("AAA"))*sizeof(char), ECPGt_int,&(val2i),(long)1,(long)1,sizeof(int), ECPGt_EORT); #line 73 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 73 "desc.pgc" printf("val1=%d val2=%s\n", val1output, val2i ? "null" : val2output); { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "close c2", ECPGt_EOIT, ECPGt_EORT); #line 76 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 76 "desc.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select * from test1 where a = 3", ECPGt_EOIT, ECPGt_int,&(val1output),(long)1,(long)1,sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_char,(val2output),(long)sizeof("AAA"),(long)1,(sizeof("AAA"))*sizeof(char), ECPGt_int,&(val2i),(long)1,(long)1,sizeof(int), ECPGt_EORT); #line 78 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 78 "desc.pgc" printf("val1=%d val2=%c%c%c%c warn=%c truncate=%d\n", val1output, val2output[0], val2output[1], val2output[2], val2output[3], sqlca.sqlwarn[0], val2i); { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "drop table test1", ECPGt_EOIT, ECPGt_EORT); #line 81 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 81 "desc.pgc" { ECPGdeallocate_all(__LINE__, 0, NULL); #line 82 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 82 "desc.pgc" { ECPGdisconnect(__LINE__, "CURRENT"); #line 83 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint();} #line 83 "desc.pgc" ECPGdeallocate_desc(__LINE__, "indesc"); #line 85 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint(); #line 85 "desc.pgc" ECPGdeallocate_desc(__LINE__, "outdesc"); #line 86 "desc.pgc" if (sqlca.sqlcode < 0) sqlprint(); #line 86 "desc.pgc" return 0; }
int main (void) { /* exec sql begin declare section */ #line 15 "describe.pgc" char * stmt1 = "SELECT id, t FROM descr_t1" ; #line 16 "describe.pgc" char * stmt2 = "SELECT id, t FROM descr_t1 WHERE id = -1" ; #line 17 "describe.pgc" int i , count1 , count2 ; #line 18 "describe.pgc" char field_name1 [ 30 ] = "not set" ; #line 19 "describe.pgc" char field_name2 [ 30 ] = "not set" ; /* exec sql end declare section */ #line 20 "describe.pgc" char msg[128]; ECPGdebug(1, stderr); strcpy(msg, "connect"); { ECPGconnect(__LINE__, 1, "ecpg1_regression" , NULL, NULL , NULL, 0); #line 27 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 27 "describe.pgc" strcpy(msg, "set"); { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "set datestyle to iso", ECPGt_EOIT, ECPGt_EORT); #line 30 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 30 "describe.pgc" strcpy(msg, "create"); { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "create table descr_t1 ( id serial primary key , t text )", ECPGt_EOIT, ECPGt_EORT); #line 33 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 33 "describe.pgc" strcpy(msg, "insert"); { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "insert into descr_t1 ( id , t ) values ( default , 'a' )", ECPGt_EOIT, ECPGt_EORT); #line 36 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 36 "describe.pgc" { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "insert into descr_t1 ( id , t ) values ( default , 'b' )", ECPGt_EOIT, ECPGt_EORT); #line 37 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 37 "describe.pgc" { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "insert into descr_t1 ( id , t ) values ( default , 'c' )", ECPGt_EOIT, ECPGt_EORT); #line 38 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 38 "describe.pgc" { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "insert into descr_t1 ( id , t ) values ( default , 'd' )", ECPGt_EOIT, ECPGt_EORT); #line 39 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 39 "describe.pgc" strcpy(msg, "commit"); { ECPGtrans(__LINE__, NULL, "commit"); #line 42 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 42 "describe.pgc" /* * Test DESCRIBE with a query producing tuples. * DESCRIPTOR and SQL DESCRIPTOR are NOT the same in * Informix-compat mode. */ strcpy(msg, "allocate"); ECPGallocate_desc(__LINE__, "desc1"); #line 51 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 51 "describe.pgc" ECPGallocate_desc(__LINE__, "desc2"); #line 52 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 52 "describe.pgc" strcpy(msg, "prepare"); { ECPGprepare(__LINE__, NULL, 0, "st_id1", stmt1); #line 55 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 55 "describe.pgc" sqlda1 = sqlda2 = sqlda3 = NULL; strcpy(msg, "describe"); { ECPGdescribe(__LINE__, 1, 0, NULL, "st_id1", ECPGt_descriptor, "desc1", 1L, 1L, 1L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 60 "describe.pgc" { ECPGdescribe(__LINE__, 1, 0, NULL, "st_id1", ECPGt_descriptor, "desc2", 1L, 1L, 1L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 61 "describe.pgc" { ECPGdescribe(__LINE__, 1, 0, NULL, "st_id1", ECPGt_sqlda, &sqlda1, 0L, 0L, 0L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 63 "describe.pgc" { ECPGdescribe(__LINE__, 1, 0, NULL, "st_id1", ECPGt_sqlda, &sqlda2, 0L, 0L, 0L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 64 "describe.pgc" { ECPGdescribe(__LINE__, 1, 0, NULL, "st_id1", ECPGt_sqlda, &sqlda3, 0L, 0L, 0L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 65 "describe.pgc" if (sqlda1 == NULL) { printf("sqlda1 NULL\n"); exit(1); } if (sqlda2 == NULL) { printf("sqlda2 NULL\n"); exit(1); } if (sqlda3 == NULL) { printf("sqlda3 NULL\n"); exit(1); } strcpy(msg, "get descriptor"); { ECPGget_desc_header(__LINE__, "desc1", &(count1)); #line 86 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 86 "describe.pgc" { ECPGget_desc_header(__LINE__, "desc1", &(count2)); #line 87 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 87 "describe.pgc" if (count1 != count2) { printf("count1 (%d) != count2 (%d)\n", count1, count2); exit(1); } if (count1 != sqlda1->sqld) { printf("count1 (%d) != sqlda1->sqld (%d)\n", count1, sqlda1->sqld); exit(1); } if (count1 != sqlda2->sqld) { printf("count1 (%d) != sqlda2->sqld (%d)\n", count1, sqlda2->sqld); exit(1); } if (count1 != sqlda3->sqld) { printf("count1 (%d) != sqlda3->sqld (%d)\n", count1, sqlda3->sqld); exit(1); } for (i = 1; i <= count1; i++) { { ECPGget_desc(__LINE__, "desc1", i,ECPGd_name, ECPGt_char,(field_name1),(long)30,(long)1,(30)*sizeof(char), ECPGd_EODT); #line 115 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 115 "describe.pgc" { ECPGget_desc(__LINE__, "desc2", i,ECPGd_name, ECPGt_char,(field_name2),(long)30,(long)1,(30)*sizeof(char), ECPGd_EODT); #line 116 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 116 "describe.pgc" printf("%d\n\tfield_name1 '%s'\n\tfield_name2 '%s'\n\t" "sqlda1 '%s'\n\tsqlda2 '%s'\n\tsqlda3 '%s'\n", i, field_name1, field_name2, sqlda1->sqlvar[i-1].sqlname, sqlda2->sqlvar[i-1].sqlname, sqlda3->sqlvar[i-1].sqlname); } strcpy(msg, "deallocate"); ECPGdeallocate_desc(__LINE__, "desc1"); #line 126 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 126 "describe.pgc" ECPGdeallocate_desc(__LINE__, "desc2"); #line 127 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 127 "describe.pgc" free(sqlda1); free(sqlda2); free(sqlda3); { ECPGdeallocate(__LINE__, 1, NULL, "st_id1"); #line 132 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 132 "describe.pgc" /* Test DESCRIBE with a query not producing tuples */ strcpy(msg, "allocate"); ECPGallocate_desc(__LINE__, "desc1"); #line 137 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 137 "describe.pgc" ECPGallocate_desc(__LINE__, "desc2"); #line 138 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 138 "describe.pgc" strcpy(msg, "prepare"); { ECPGprepare(__LINE__, NULL, 0, "st_id2", stmt2); #line 141 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 141 "describe.pgc" sqlda1 = sqlda2 = sqlda3 = NULL; strcpy(msg, "describe"); { ECPGdescribe(__LINE__, 1, 0, NULL, "st_id2", ECPGt_descriptor, "desc1", 1L, 1L, 1L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 146 "describe.pgc" { ECPGdescribe(__LINE__, 1, 0, NULL, "st_id2", ECPGt_descriptor, "desc2", 1L, 1L, 1L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 147 "describe.pgc" { ECPGdescribe(__LINE__, 1, 0, NULL, "st_id2", ECPGt_sqlda, &sqlda1, 0L, 0L, 0L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 149 "describe.pgc" { ECPGdescribe(__LINE__, 1, 0, NULL, "st_id2", ECPGt_sqlda, &sqlda2, 0L, 0L, 0L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 150 "describe.pgc" { ECPGdescribe(__LINE__, 1, 0, NULL, "st_id2", ECPGt_sqlda, &sqlda3, 0L, 0L, 0L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 151 "describe.pgc" if (sqlda1 == NULL || sqlda2 == NULL || sqlda3 == NULL) exit(1); strcpy(msg, "get descriptor"); { ECPGget_desc_header(__LINE__, "desc1", &(count1)); #line 157 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 157 "describe.pgc" { ECPGget_desc_header(__LINE__, "desc1", &(count2)); #line 158 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 158 "describe.pgc" if (!( count1 == count2 && count1 == sqlda1->sqld && count1 == sqlda2->sqld && count1 == sqlda3->sqld)) exit(1); for (i = 1; i <= count1; i++) { { ECPGget_desc(__LINE__, "desc1", i,ECPGd_name, ECPGt_char,(field_name1),(long)30,(long)1,(30)*sizeof(char), ECPGd_EODT); #line 168 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 168 "describe.pgc" { ECPGget_desc(__LINE__, "desc2", i,ECPGd_name, ECPGt_char,(field_name2),(long)30,(long)1,(30)*sizeof(char), ECPGd_EODT); #line 169 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 169 "describe.pgc" printf("%d\n\tfield_name1 '%s'\n\tfield_name2 '%s'\n\t" "sqlda1 '%s'\n\tsqlda2 '%s'\n\tsqlda3 '%s'\n", i, field_name1, field_name2, sqlda1->sqlvar[i-1].sqlname, sqlda2->sqlvar[i-1].sqlname, sqlda3->sqlvar[i-1].sqlname); } strcpy(msg, "deallocate"); ECPGdeallocate_desc(__LINE__, "desc1"); #line 179 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 179 "describe.pgc" ECPGdeallocate_desc(__LINE__, "desc2"); #line 180 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 180 "describe.pgc" free(sqlda1); free(sqlda2); free(sqlda3); { ECPGdeallocate(__LINE__, 1, NULL, "st_id2"); #line 185 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 185 "describe.pgc" /* End test */ strcpy(msg, "drop"); { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "drop table descr_t1", ECPGt_EOIT, ECPGt_EORT); #line 190 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 190 "describe.pgc" strcpy(msg, "commit"); { ECPGtrans(__LINE__, NULL, "commit"); #line 193 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 193 "describe.pgc" strcpy(msg, "disconnect"); { ECPGdisconnect(__LINE__, "CURRENT"); #line 196 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 196 "describe.pgc" return 0; }
int main(void) { /* exec sql begin declare section */ /* char **d8=0; */ /* int *i8=0; */ #line 9 "dynalloc.pgc" int * d1 = 0 ; #line 10 "dynalloc.pgc" double * d2 = 0 ; #line 11 "dynalloc.pgc" char ** d3 = 0 ; #line 12 "dynalloc.pgc" char ** d4 = 0 ; #line 13 "dynalloc.pgc" char ** d5 = 0 ; #line 14 "dynalloc.pgc" char ** d6 = 0 ; #line 15 "dynalloc.pgc" char ** d7 = 0 ; #line 17 "dynalloc.pgc" char ** d9 = 0 ; #line 18 "dynalloc.pgc" int * i1 = 0 ; #line 19 "dynalloc.pgc" int * i2 = 0 ; #line 20 "dynalloc.pgc" int * i3 = 0 ; #line 21 "dynalloc.pgc" int * i4 = 0 ; #line 22 "dynalloc.pgc" int * i5 = 0 ; #line 23 "dynalloc.pgc" int * i6 = 0 ; #line 24 "dynalloc.pgc" int * i7 = 0 ; #line 26 "dynalloc.pgc" int * i9 = 0 ; /* exec sql end declare section */ #line 27 "dynalloc.pgc" int i; ECPGdebug(1, stderr); /* exec sql whenever sqlerror do sqlprint ( ) ; */ #line 32 "dynalloc.pgc" { ECPGconnect(__LINE__, 0, "regress1" , NULL, NULL , NULL, 0); #line 33 "dynalloc.pgc" if (sqlca.sqlcode < 0) sqlprint ( );} #line 33 "dynalloc.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "set datestyle to mdy", ECPGt_EOIT, ECPGt_EORT); #line 35 "dynalloc.pgc" if (sqlca.sqlcode < 0) sqlprint ( );} #line 35 "dynalloc.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "create table test ( a serial , b numeric ( 12 , 3 ) , c varchar , d varchar ( 3 ) , e char ( 4 ) , f timestamptz , g boolean , h box , i inet )", ECPGt_EOIT, ECPGt_EORT); #line 37 "dynalloc.pgc" if (sqlca.sqlcode < 0) sqlprint ( );} #line 37 "dynalloc.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into test ( b , c , d , e , f , g , h , i ) values ( 23.456 , 'varchar' , 'v' , 'c' , '2003-03-03 12:33:07 PDT' , true , '(1,2,3,4)' , '2001:4f8:3:ba:2e0:81ff:fe22:d1f1/128' )", ECPGt_EOIT, ECPGt_EORT); #line 38 "dynalloc.pgc" if (sqlca.sqlcode < 0) sqlprint ( );} #line 38 "dynalloc.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into test ( b , c , d , e , f , g , h , i ) values ( 2.446456 , null , 'v' , 'c' , '2003-03-03 12:33:07 PDT' , false , null , null )", ECPGt_EOIT, ECPGt_EORT); #line 39 "dynalloc.pgc" if (sqlca.sqlcode < 0) sqlprint ( );} #line 39 "dynalloc.pgc" ECPGallocate_desc(__LINE__, "mydesc"); #line 41 "dynalloc.pgc" if (sqlca.sqlcode < 0) sqlprint ( ); #line 41 "dynalloc.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select a , b , c , d , e , f , g , h , i from test order by a", ECPGt_EOIT, ECPGt_descriptor, "mydesc", 1L, 1L, 1L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT); #line 42 "dynalloc.pgc" if (sqlca.sqlcode < 0) sqlprint ( );} #line 42 "dynalloc.pgc" { ECPGget_desc(__LINE__, "mydesc", 1,ECPGd_indicator, ECPGt_int,&(i1),(long)1,(long)0,sizeof(int), ECPGd_data, ECPGt_int,&(d1),(long)1,(long)0,sizeof(int), ECPGd_EODT); #line 43 "dynalloc.pgc" if (sqlca.sqlcode < 0) sqlprint ( );} #line 43 "dynalloc.pgc" { ECPGget_desc(__LINE__, "mydesc", 2,ECPGd_indicator, ECPGt_int,&(i2),(long)1,(long)0,sizeof(int), ECPGd_data, ECPGt_double,&(d2),(long)1,(long)0,sizeof(double), ECPGd_EODT); #line 44 "dynalloc.pgc" if (sqlca.sqlcode < 0) sqlprint ( );} #line 44 "dynalloc.pgc" { ECPGget_desc(__LINE__, "mydesc", 3,ECPGd_indicator, ECPGt_int,&(i3),(long)1,(long)0,sizeof(int), ECPGd_data, ECPGt_char,&(d3),(long)0,(long)0,(1)*sizeof(char), ECPGd_EODT); #line 45 "dynalloc.pgc" if (sqlca.sqlcode < 0) sqlprint ( );} #line 45 "dynalloc.pgc" { ECPGget_desc(__LINE__, "mydesc", 4,ECPGd_indicator, ECPGt_int,&(i4),(long)1,(long)0,sizeof(int), ECPGd_data, ECPGt_char,&(d4),(long)0,(long)0,(1)*sizeof(char), ECPGd_EODT); #line 46 "dynalloc.pgc" if (sqlca.sqlcode < 0) sqlprint ( );} #line 46 "dynalloc.pgc" { ECPGget_desc(__LINE__, "mydesc", 5,ECPGd_indicator, ECPGt_int,&(i5),(long)1,(long)0,sizeof(int), ECPGd_data, ECPGt_char,&(d5),(long)0,(long)0,(1)*sizeof(char), ECPGd_EODT); #line 47 "dynalloc.pgc" if (sqlca.sqlcode < 0) sqlprint ( );} #line 47 "dynalloc.pgc" { ECPGget_desc(__LINE__, "mydesc", 6,ECPGd_indicator, ECPGt_int,&(i6),(long)1,(long)0,sizeof(int), ECPGd_data, ECPGt_char,&(d6),(long)0,(long)0,(1)*sizeof(char), ECPGd_EODT); #line 48 "dynalloc.pgc" if (sqlca.sqlcode < 0) sqlprint ( );} #line 48 "dynalloc.pgc" { ECPGget_desc(__LINE__, "mydesc", 7,ECPGd_indicator, ECPGt_int,&(i7),(long)1,(long)0,sizeof(int), ECPGd_data, ECPGt_char,&(d7),(long)0,(long)0,(1)*sizeof(char), ECPGd_EODT); #line 49 "dynalloc.pgc" if (sqlca.sqlcode < 0) sqlprint ( );} #line 49 "dynalloc.pgc" /* skip box for now */ /* exec sql get descriptor mydesc value 8 :d8=DATA, :i8=INDICATOR; */ { ECPGget_desc(__LINE__, "mydesc", 9,ECPGd_indicator, ECPGt_int,&(i9),(long)1,(long)0,sizeof(int), ECPGd_data, ECPGt_char,&(d9),(long)0,(long)0,(1)*sizeof(char), ECPGd_EODT); #line 52 "dynalloc.pgc" if (sqlca.sqlcode < 0) sqlprint ( );} #line 52 "dynalloc.pgc" printf("Result:\n"); for (i=0;i<sqlca.sqlerrd[2];++i) { if (i1[i]) printf("NULL, "); else printf("%d, ",d1[i]); if (i2[i]) printf("NULL, "); else printf("%f, ",d2[i]); if (i3[i]) printf("NULL, "); else printf("'%s', ",d3[i]); if (i4[i]) printf("NULL, "); else printf("'%s', ",d4[i]); if (i5[i]) printf("NULL, "); else printf("'%s', ",d5[i]); if (i6[i]) printf("NULL, "); else printf("'%s', ",d6[i]); if (i7[i]) printf("NULL, "); else printf("'%s', ",d7[i]); if (i9[i]) printf("NULL, "); else printf("'%s', ",d9[i]); printf("\n"); } ECPGfree_auto_mem(); printf("\n"); ECPGdeallocate_desc(__LINE__, "mydesc"); #line 86 "dynalloc.pgc" if (sqlca.sqlcode < 0) sqlprint ( ); #line 86 "dynalloc.pgc" { ECPGdisconnect(__LINE__, "CURRENT"); #line 87 "dynalloc.pgc" if (sqlca.sqlcode < 0) sqlprint ( );} #line 87 "dynalloc.pgc" return 0; }
int main () { /* exec sql begin declare section */ #line 22 "dyntest.pgc" int COUNT ; #line 23 "dyntest.pgc" int INTVAR ; #line 24 "dyntest.pgc" int INDEX ; #line 25 "dyntest.pgc" int INDICATOR ; #line 26 "dyntest.pgc" int TYPE , LENGTH , OCTET_LENGTH , PRECISION , SCALE , RETURNED_OCTET_LENGTH ; #line 27 "dyntest.pgc" int DATETIME_INTERVAL_CODE ; #line 28 "dyntest.pgc" char NAME [ 120 ] , BOOLVAR ; #line 29 "dyntest.pgc" char STRINGVAR [ 1024 ] ; #line 30 "dyntest.pgc" double DOUBLEVAR ; #line 31 "dyntest.pgc" char * QUERY ; /* exec sql end declare section */ #line 32 "dyntest.pgc" int done = 0; /* exec sql var BOOLVAR is bool */ #line 35 "dyntest.pgc" ECPGdebug (1, stderr); QUERY = "select * from dyntest"; /* exec sql whenever sqlerror do error ( ) ; */ #line 43 "dyntest.pgc" ECPGallocate_desc(__LINE__, "MYDESC"); #line 45 "dyntest.pgc" if (sqlca.sqlcode < 0) error ( ); #line 45 "dyntest.pgc" { ECPGconnect(__LINE__, 0, "regress1" , NULL, NULL , NULL, 0); #line 47 "dyntest.pgc" if (sqlca.sqlcode < 0) error ( );} #line 47 "dyntest.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "set datestyle to german", ECPGt_EOIT, ECPGt_EORT); #line 49 "dyntest.pgc" if (sqlca.sqlcode < 0) error ( );} #line 49 "dyntest.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "create table dyntest ( name char ( 14 ) , d float8 , i int , bignumber int8 , b boolean , comment text , day date )", ECPGt_EOIT, ECPGt_EORT); #line 53 "dyntest.pgc" if (sqlca.sqlcode < 0) error ( );} #line 53 "dyntest.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into dyntest values ( 'first entry' , 14.7 , 14 , 123045607890 , true , 'The world''s most advanced open source database.' , '1987-07-14' )", ECPGt_EOIT, ECPGt_EORT); #line 54 "dyntest.pgc" if (sqlca.sqlcode < 0) error ( );} #line 54 "dyntest.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into dyntest values ( 'second entry' , 1407.87 , 1407 , 987065403210 , false , 'The elephant never forgets.' , '1999-11-5' )", ECPGt_EOIT, ECPGt_EORT); #line 55 "dyntest.pgc" if (sqlca.sqlcode < 0) error ( );} #line 55 "dyntest.pgc" { ECPGprepare(__LINE__, NULL, 0, "myquery", QUERY); #line 57 "dyntest.pgc" if (sqlca.sqlcode < 0) error ( );} #line 57 "dyntest.pgc" /* declare MYCURS cursor for $1 */ #line 58 "dyntest.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare MYCURS cursor for $1", ECPGt_char_variable,(ECPGprepared_statement(NULL, "myquery", __LINE__)),(long)1,(long)1,(1)*sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT); #line 60 "dyntest.pgc" if (sqlca.sqlcode < 0) error ( );} #line 60 "dyntest.pgc" while (1) { { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "fetch in MYCURS", ECPGt_EOIT, ECPGt_descriptor, "MYDESC", 0L, 0L, 0L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT); #line 64 "dyntest.pgc" if (sqlca.sqlcode < 0) error ( );} #line 64 "dyntest.pgc" if (sqlca.sqlcode) break; { ECPGget_desc_header(__LINE__, "MYDESC", &(COUNT)); #line 69 "dyntest.pgc" if (sqlca.sqlcode < 0) error ( );} #line 69 "dyntest.pgc" if (!done) { printf ("Found %d columns\n", COUNT); done = 1; } for (INDEX = 1; INDEX <= COUNT; ++INDEX) { { ECPGget_desc(__LINE__, "MYDESC", INDEX,ECPGd_indicator, ECPGt_int,&(INDICATOR),(long)1,(long)1,sizeof(int), ECPGd_name, ECPGt_char,(NAME),(long)120,(long)1,(120)*sizeof(char), ECPGd_scale, ECPGt_int,&(SCALE),(long)1,(long)1,sizeof(int), ECPGd_precision, ECPGt_int,&(PRECISION),(long)1,(long)1,sizeof(int), ECPGd_ret_octet, ECPGt_int,&(RETURNED_OCTET_LENGTH),(long)1,(long)1,sizeof(int), ECPGd_octet, ECPGt_int,&(OCTET_LENGTH),(long)1,(long)1,sizeof(int), ECPGd_length, ECPGt_int,&(LENGTH),(long)1,(long)1,sizeof(int), ECPGd_type, ECPGt_int,&(TYPE),(long)1,(long)1,sizeof(int), ECPGd_EODT); #line 86 "dyntest.pgc" if (sqlca.sqlcode < 0) error ( );} #line 86 "dyntest.pgc" printf ("%2d\t%s (type: %d length: %d precision: %d scale: %d = " , INDEX, NAME, TYPE, LENGTH, PRECISION, SCALE); switch (TYPE) { case SQL3_BOOLEAN: printf ("bool"); break; case SQL3_NUMERIC: printf ("numeric(%d,%d)", PRECISION, SCALE); break; case SQL3_DECIMAL: printf ("decimal(%d,%d)", PRECISION, SCALE); break; case SQL3_INTEGER: printf ("integer"); break; case SQL3_SMALLINT: printf ("smallint"); break; case SQL3_FLOAT: printf ("float(%d,%d)", PRECISION, SCALE); break; case SQL3_REAL: printf ("real"); break; case SQL3_DOUBLE_PRECISION: printf ("double precision"); break; case SQL3_DATE_TIME_TIMESTAMP: { ECPGget_desc(__LINE__, "MYDESC", INDEX,ECPGd_di_code, ECPGt_int,&(DATETIME_INTERVAL_CODE),(long)1,(long)1,sizeof(int), ECPGd_EODT); #line 116 "dyntest.pgc" if (sqlca.sqlcode < 0) error ( );} #line 116 "dyntest.pgc" switch (DATETIME_INTERVAL_CODE) { case SQL3_DDT_DATE: printf ("date"); break; case SQL3_DDT_TIME: printf ("time"); break; case SQL3_DDT_TIMESTAMP: printf ("timestamp"); break; case SQL3_DDT_TIME_WITH_TIME_ZONE: printf ("time with time zone"); break; case SQL3_DDT_TIMESTAMP_WITH_TIME_ZONE: printf ("timestamp with time zone"); break; } break; case SQL3_INTERVAL: printf ("interval"); break; case SQL3_CHARACTER: if (LENGTH > 0) printf ("char(%d)", LENGTH); else printf ("text"); break; case SQL3_CHARACTER_VARYING: if (LENGTH > 0) printf ("varchar(%d)", LENGTH); else printf ("varchar()"); break; default: printf ("<SQL3 %d>", TYPE); break; } printf (")\n\toctet_length: %d returned_octet_length: %d)\n\t= ", OCTET_LENGTH, RETURNED_OCTET_LENGTH); if (INDICATOR == -1) printf ("NULL\n"); else switch (TYPE) { case SQL3_BOOLEAN: { ECPGget_desc(__LINE__, "MYDESC", INDEX,ECPGd_data, ECPGt_bool,&(BOOLVAR),(long)1,(long)1,sizeof(bool), ECPGd_EODT); #line 163 "dyntest.pgc" if (sqlca.sqlcode < 0) error ( );} #line 163 "dyntest.pgc" printf ("%s\n", BOOLVAR ? "true" : "false"); break; case SQL3_INTEGER: case SQL3_SMALLINT: { ECPGget_desc(__LINE__, "MYDESC", INDEX,ECPGd_data, ECPGt_int,&(INTVAR),(long)1,(long)1,sizeof(int), ECPGd_EODT); #line 168 "dyntest.pgc" if (sqlca.sqlcode < 0) error ( );} #line 168 "dyntest.pgc" printf ("%d\n", INTVAR); break; case SQL3_DOUBLE_PRECISION: { ECPGget_desc(__LINE__, "MYDESC", INDEX,ECPGd_data, ECPGt_double,&(DOUBLEVAR),(long)1,(long)1,sizeof(double), ECPGd_EODT); #line 172 "dyntest.pgc" if (sqlca.sqlcode < 0) error ( );} #line 172 "dyntest.pgc" printf ("%.*f\n", PRECISION, DOUBLEVAR); break; case SQL3_DATE_TIME_TIMESTAMP: { ECPGget_desc(__LINE__, "MYDESC", INDEX,ECPGd_data, ECPGt_char,(STRINGVAR),(long)1024,(long)1,(1024)*sizeof(char), ECPGd_di_code, ECPGt_int,&(DATETIME_INTERVAL_CODE),(long)1,(long)1,sizeof(int), ECPGd_EODT); #line 178 "dyntest.pgc" if (sqlca.sqlcode < 0) error ( );} #line 178 "dyntest.pgc" printf ("%d \"%s\"\n", DATETIME_INTERVAL_CODE, STRINGVAR); break; case SQL3_CHARACTER: case SQL3_CHARACTER_VARYING: { ECPGget_desc(__LINE__, "MYDESC", INDEX,ECPGd_data, ECPGt_char,(STRINGVAR),(long)1024,(long)1,(1024)*sizeof(char), ECPGd_EODT); #line 183 "dyntest.pgc" if (sqlca.sqlcode < 0) error ( );} #line 183 "dyntest.pgc" printf ("\"%s\"\n", STRINGVAR); break; default: { ECPGget_desc(__LINE__, "MYDESC", INDEX,ECPGd_data, ECPGt_char,(STRINGVAR),(long)1024,(long)1,(1024)*sizeof(char), ECPGd_EODT); #line 187 "dyntest.pgc" if (sqlca.sqlcode < 0) error ( );} #line 187 "dyntest.pgc" printf ("<\"%s\">\n", STRINGVAR); break; } } } { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "close MYCURS", ECPGt_EOIT, ECPGt_EORT); #line 194 "dyntest.pgc" if (sqlca.sqlcode < 0) error ( );} #line 194 "dyntest.pgc" ECPGdeallocate_desc(__LINE__, "MYDESC"); #line 196 "dyntest.pgc" if (sqlca.sqlcode < 0) error ( ); #line 196 "dyntest.pgc" return 0; }
int main (void) { /* exec sql begin declare section */ #line 12 "describe.pgc" char * stmt1 = "SELECT id, t FROM t1" ; #line 13 "describe.pgc" char * stmt2 = "SELECT id, t FROM t1 WHERE id = -1" ; #line 14 "describe.pgc" int i , count1 , count2 , count3 , count4 ; #line 15 "describe.pgc" char field_name1 [ 30 ] = "not set" ; #line 16 "describe.pgc" char field_name2 [ 30 ] = "not set" ; #line 17 "describe.pgc" char field_name3 [ 30 ] = "not set" ; #line 18 "describe.pgc" char field_name4 [ 30 ] = "not set" ; /* exec sql end declare section */ #line 19 "describe.pgc" char msg[128]; ECPGdebug(1, stderr); strcpy(msg, "connect"); { ECPGconnect(__LINE__, 0, "ecpg1_regression" , NULL, NULL , NULL, 0); #line 26 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 26 "describe.pgc" strcpy(msg, "set"); { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "set datestyle to iso", ECPGt_EOIT, ECPGt_EORT); #line 29 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 29 "describe.pgc" strcpy(msg, "create"); { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "create table t1 ( id serial primary key , t text )", ECPGt_EOIT, ECPGt_EORT); #line 32 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 32 "describe.pgc" strcpy(msg, "insert"); { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into t1 ( id , t ) values ( default , 'a' )", ECPGt_EOIT, ECPGt_EORT); #line 35 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 35 "describe.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into t1 ( id , t ) values ( default , 'b' )", ECPGt_EOIT, ECPGt_EORT); #line 36 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 36 "describe.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into t1 ( id , t ) values ( default , 'c' )", ECPGt_EOIT, ECPGt_EORT); #line 37 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 37 "describe.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into t1 ( id , t ) values ( default , 'd' )", ECPGt_EOIT, ECPGt_EORT); #line 38 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 38 "describe.pgc" strcpy(msg, "commit"); { ECPGtrans(__LINE__, NULL, "commit"); #line 41 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 41 "describe.pgc" /* * Test DESCRIBE with a query producing tuples. * DESCRIPTOR and SQL DESCRIPTOR are the same in native mode. */ strcpy(msg, "allocate"); ECPGallocate_desc(__LINE__, "desc1"); #line 49 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 49 "describe.pgc" ECPGallocate_desc(__LINE__, "desc2"); #line 50 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 50 "describe.pgc" ECPGallocate_desc(__LINE__, "desc3"); #line 51 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 51 "describe.pgc" ECPGallocate_desc(__LINE__, "desc4"); #line 52 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 52 "describe.pgc" strcpy(msg, "prepare"); { ECPGprepare(__LINE__, NULL, 0, "st_id1", stmt1); #line 55 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 55 "describe.pgc" strcpy(msg, "describe"); { ECPGdescribe(__LINE__, 0, NULL, "st_id1", ECPGt_descriptor, "desc1", 0L, 0L, 0L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 58 "describe.pgc" { ECPGdescribe(__LINE__, 0, NULL, "st_id1", ECPGt_descriptor, "desc2", 0L, 0L, 0L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 59 "describe.pgc" { ECPGdescribe(__LINE__, 0, NULL, "st_id1", ECPGt_descriptor, "desc3", 0L, 0L, 0L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 60 "describe.pgc" { ECPGdescribe(__LINE__, 0, NULL, "st_id1", ECPGt_descriptor, "desc4", 0L, 0L, 0L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 61 "describe.pgc" strcpy(msg, "get descriptor"); { ECPGget_desc_header(__LINE__, "desc1", &(count1)); #line 64 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 64 "describe.pgc" { ECPGget_desc_header(__LINE__, "desc2", &(count2)); #line 65 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 65 "describe.pgc" { ECPGget_desc_header(__LINE__, "desc3", &(count3)); #line 66 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 66 "describe.pgc" { ECPGget_desc_header(__LINE__, "desc4", &(count4)); #line 67 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 67 "describe.pgc" if (!(count1 == count2 && count1 == count3 && count1 == count4)) exit(1); for (i = 1; i <= count1; i++) { { ECPGget_desc(__LINE__, "desc1", i,ECPGd_name, ECPGt_char,(field_name1),(long)30,(long)1,(30)*sizeof(char), ECPGd_EODT); #line 74 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 74 "describe.pgc" { ECPGget_desc(__LINE__, "desc2", i,ECPGd_name, ECPGt_char,(field_name2),(long)30,(long)1,(30)*sizeof(char), ECPGd_EODT); #line 75 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 75 "describe.pgc" { ECPGget_desc(__LINE__, "desc3", i,ECPGd_name, ECPGt_char,(field_name3),(long)30,(long)1,(30)*sizeof(char), ECPGd_EODT); #line 76 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 76 "describe.pgc" { ECPGget_desc(__LINE__, "desc4", i,ECPGd_name, ECPGt_char,(field_name4),(long)30,(long)1,(30)*sizeof(char), ECPGd_EODT); #line 77 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 77 "describe.pgc" printf("field_name 1 '%s' 2 '%s' 3 '%s' 4 '%s'\n", field_name1, field_name2, field_name3, field_name4); } strcpy(msg, "deallocate"); ECPGdeallocate_desc(__LINE__, "desc1"); #line 83 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 83 "describe.pgc" ECPGdeallocate_desc(__LINE__, "desc2"); #line 84 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 84 "describe.pgc" ECPGdeallocate_desc(__LINE__, "desc3"); #line 85 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 85 "describe.pgc" ECPGdeallocate_desc(__LINE__, "desc4"); #line 86 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 86 "describe.pgc" { ECPGdeallocate(__LINE__, 0, NULL, "st_id1"); #line 88 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 88 "describe.pgc" /* Test DESCRIBE with a query not producing tuples */ strcpy(msg, "allocate"); ECPGallocate_desc(__LINE__, "desc1"); #line 93 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 93 "describe.pgc" ECPGallocate_desc(__LINE__, "desc2"); #line 94 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 94 "describe.pgc" ECPGallocate_desc(__LINE__, "desc3"); #line 95 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 95 "describe.pgc" ECPGallocate_desc(__LINE__, "desc4"); #line 96 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 96 "describe.pgc" strcpy(msg, "prepare"); { ECPGprepare(__LINE__, NULL, 0, "st_id2", stmt2); #line 99 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 99 "describe.pgc" strcpy(msg, "describe"); { ECPGdescribe(__LINE__, 0, NULL, "st_id2", ECPGt_descriptor, "desc1", 0L, 0L, 0L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 102 "describe.pgc" { ECPGdescribe(__LINE__, 0, NULL, "st_id2", ECPGt_descriptor, "desc2", 0L, 0L, 0L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 103 "describe.pgc" { ECPGdescribe(__LINE__, 0, NULL, "st_id2", ECPGt_descriptor, "desc3", 0L, 0L, 0L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 104 "describe.pgc" { ECPGdescribe(__LINE__, 0, NULL, "st_id2", ECPGt_descriptor, "desc4", 0L, 0L, 0L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 105 "describe.pgc" strcpy(msg, "get descriptor"); { ECPGget_desc_header(__LINE__, "desc1", &(count1)); #line 108 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 108 "describe.pgc" { ECPGget_desc_header(__LINE__, "desc2", &(count2)); #line 109 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 109 "describe.pgc" { ECPGget_desc_header(__LINE__, "desc3", &(count3)); #line 110 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 110 "describe.pgc" { ECPGget_desc_header(__LINE__, "desc4", &(count4)); #line 111 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 111 "describe.pgc" if (!(count1 == count2 && count1 == count3 && count1 == count4)) exit(1); for (i = 1; i <= count1; i++) { { ECPGget_desc(__LINE__, "desc1", i,ECPGd_name, ECPGt_char,(field_name1),(long)30,(long)1,(30)*sizeof(char), ECPGd_EODT); #line 118 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 118 "describe.pgc" { ECPGget_desc(__LINE__, "desc2", i,ECPGd_name, ECPGt_char,(field_name2),(long)30,(long)1,(30)*sizeof(char), ECPGd_EODT); #line 119 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 119 "describe.pgc" { ECPGget_desc(__LINE__, "desc3", i,ECPGd_name, ECPGt_char,(field_name3),(long)30,(long)1,(30)*sizeof(char), ECPGd_EODT); #line 120 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 120 "describe.pgc" { ECPGget_desc(__LINE__, "desc4", i,ECPGd_name, ECPGt_char,(field_name4),(long)30,(long)1,(30)*sizeof(char), ECPGd_EODT); #line 121 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 121 "describe.pgc" printf("field_name 1 '%s' 2 '%s' 3 '%s' 4 '%s'\n", field_name1, field_name2, field_name3, field_name4); } strcpy(msg, "deallocate"); ECPGdeallocate_desc(__LINE__, "desc1"); #line 127 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 127 "describe.pgc" ECPGdeallocate_desc(__LINE__, "desc2"); #line 128 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 128 "describe.pgc" ECPGdeallocate_desc(__LINE__, "desc3"); #line 129 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 129 "describe.pgc" ECPGdeallocate_desc(__LINE__, "desc4"); #line 130 "describe.pgc" if (sqlca.sqlcode < 0) exit (1); #line 130 "describe.pgc" { ECPGdeallocate(__LINE__, 0, NULL, "st_id2"); #line 132 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 132 "describe.pgc" /* End test */ strcpy(msg, "drop"); { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "drop table t1", ECPGt_EOIT, ECPGt_EORT); #line 138 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 138 "describe.pgc" strcpy(msg, "commit"); { ECPGtrans(__LINE__, NULL, "commit"); #line 141 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 141 "describe.pgc" strcpy(msg, "disconnect"); { ECPGdisconnect(__LINE__, "CURRENT"); #line 144 "describe.pgc" if (sqlca.sqlcode < 0) exit (1);} #line 144 "describe.pgc" return (0); }