1 /* Processed by ecpg (regression mode) */
2 /* These include files are added by the preprocessor */
6 /* End of automatic include section */
7 #define ECPGdebug(X,Y) ECPGdebug((X)+100,(Y))
14 /* test parser addition that merges two tokens into one */
16 #line 1 "regression.h"
26 int main(int argc, char* argv[]) {
27 /* exec sql begin declare section */
31 int item [ 3 ] , ind [ 3 ] , i ;
32 /* exec sql end declare section */
37 { ECPGconnect(__LINE__, 0, "regress1" , NULL, NULL , NULL, 0); }
41 { ECPGsetcommit(__LINE__, "on", NULL);}
44 /* exec sql whenever sql_warning sqlprint ; */
47 /* exec sql whenever sqlerror sqlprint ; */
51 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "create table T ( Item1 int , Item2 int ) ", ECPGt_EOIT, ECPGt_EORT);
54 if (sqlca.sqlwarn[0] == 'W') sqlprint();
57 if (sqlca.sqlcode < 0) sqlprint();}
61 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into T values ( 1 , null ) ", ECPGt_EOIT, ECPGt_EORT);
64 if (sqlca.sqlwarn[0] == 'W') sqlprint();
67 if (sqlca.sqlcode < 0) sqlprint();}
70 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into T values ( 1 , 1 ) ", ECPGt_EOIT, ECPGt_EORT);
73 if (sqlca.sqlwarn[0] == 'W') sqlprint();
76 if (sqlca.sqlcode < 0) sqlprint();}
79 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into T values ( 1 , 2 ) ", ECPGt_EOIT, ECPGt_EORT);
82 if (sqlca.sqlwarn[0] == 'W') sqlprint();
85 if (sqlca.sqlcode < 0) sqlprint();}
89 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select Item2 from T order by Item2 nulls last", ECPGt_EOIT,
90 ECPGt_int,(item),(long)1,(long)3,sizeof(int),
91 ECPGt_int,(ind),(long)1,(long)3,sizeof(int), ECPGt_EORT);
94 if (sqlca.sqlwarn[0] == 'W') sqlprint();
97 if (sqlca.sqlcode < 0) sqlprint();}
102 printf("item[%d] = %d\n", i, ind[i] ? -1 : item[i]);
104 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "drop table T ", ECPGt_EOIT, ECPGt_EORT);
105 #line 31 "parser.pgc"
107 if (sqlca.sqlwarn[0] == 'W') sqlprint();
108 #line 31 "parser.pgc"
110 if (sqlca.sqlcode < 0) sqlprint();}
111 #line 31 "parser.pgc"
114 { ECPGdisconnect(__LINE__, "ALL");
115 #line 33 "parser.pgc"
117 if (sqlca.sqlwarn[0] == 'W') sqlprint();
118 #line 33 "parser.pgc"
120 if (sqlca.sqlcode < 0) sqlprint();}
121 #line 33 "parser.pgc"