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 automatic prepare for all statements */
16 #line 1 "regression.h"
23 #line 6 "autoprep.pgc"
27 /* exec sql begin declare section */
30 #line 10 "autoprep.pgc"
31 int item [ 4 ] , ind [ 4 ] , i = 1 ;
32 /* exec sql end declare section */
33 #line 11 "autoprep.pgc"
37 { ECPGconnect(__LINE__, 0, "regress1" , NULL, NULL , NULL, 0); }
38 #line 14 "autoprep.pgc"
41 /* exec sql whenever sql_warning sqlprint ; */
42 #line 16 "autoprep.pgc"
44 /* exec sql whenever sqlerror sqlprint ; */
45 #line 17 "autoprep.pgc"
48 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_prepnormal, "create table T ( Item1 int , Item2 int )", ECPGt_EOIT, ECPGt_EORT);
49 #line 19 "autoprep.pgc"
51 if (sqlca.sqlwarn[0] == 'W') sqlprint();
52 #line 19 "autoprep.pgc"
54 if (sqlca.sqlcode < 0) sqlprint();}
55 #line 19 "autoprep.pgc"
58 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_prepnormal, "insert into T values ( 1 , null )", ECPGt_EOIT, ECPGt_EORT);
59 #line 21 "autoprep.pgc"
61 if (sqlca.sqlwarn[0] == 'W') sqlprint();
62 #line 21 "autoprep.pgc"
64 if (sqlca.sqlcode < 0) sqlprint();}
65 #line 21 "autoprep.pgc"
67 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_prepnormal, "insert into T values ( 1 , $1 )",
68 ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
69 ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
70 #line 22 "autoprep.pgc"
72 if (sqlca.sqlwarn[0] == 'W') sqlprint();
73 #line 22 "autoprep.pgc"
75 if (sqlca.sqlcode < 0) sqlprint();}
76 #line 22 "autoprep.pgc"
79 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_prepnormal, "insert into T values ( 1 , $1 )",
80 ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
81 ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
82 #line 24 "autoprep.pgc"
84 if (sqlca.sqlwarn[0] == 'W') sqlprint();
85 #line 24 "autoprep.pgc"
87 if (sqlca.sqlcode < 0) sqlprint();}
88 #line 24 "autoprep.pgc"
90 { ECPGprepare(__LINE__, NULL, 0, "i", " insert into T values ( 1 , 2 ) ");
91 #line 25 "autoprep.pgc"
93 if (sqlca.sqlwarn[0] == 'W') sqlprint();
94 #line 25 "autoprep.pgc"
96 if (sqlca.sqlcode < 0) sqlprint();}
97 #line 25 "autoprep.pgc"
99 { ECPGdo(__LINE__, 0, 1, NULL, 0, 1, "i", ECPGt_EOIT, ECPGt_EORT);
100 #line 26 "autoprep.pgc"
102 if (sqlca.sqlwarn[0] == 'W') sqlprint();
103 #line 26 "autoprep.pgc"
105 if (sqlca.sqlcode < 0) sqlprint();}
106 #line 26 "autoprep.pgc"
109 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_prepnormal, "select Item2 from T order by Item2 nulls last", ECPGt_EOIT,
110 ECPGt_int,(item),(long)1,(long)4,sizeof(int),
111 ECPGt_int,(ind),(long)1,(long)4,sizeof(int), ECPGt_EORT);
112 #line 28 "autoprep.pgc"
114 if (sqlca.sqlwarn[0] == 'W') sqlprint();
115 #line 28 "autoprep.pgc"
117 if (sqlca.sqlcode < 0) sqlprint();}
118 #line 28 "autoprep.pgc"
122 printf("item[%d] = %d\n", i, ind[i] ? -1 : item[i]);
124 /* declare C cursor for select Item1 from T */
125 #line 33 "autoprep.pgc"
128 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_prepnormal, "declare C cursor for select Item1 from T", ECPGt_EOIT, ECPGt_EORT);
129 #line 35 "autoprep.pgc"
131 if (sqlca.sqlwarn[0] == 'W') sqlprint();
132 #line 35 "autoprep.pgc"
134 if (sqlca.sqlcode < 0) sqlprint();}
135 #line 35 "autoprep.pgc"
138 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_prepnormal, "fetch 1 in C", ECPGt_EOIT,
139 ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
140 ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
141 #line 37 "autoprep.pgc"
143 if (sqlca.sqlwarn[0] == 'W') sqlprint();
144 #line 37 "autoprep.pgc"
146 if (sqlca.sqlcode < 0) sqlprint();}
147 #line 37 "autoprep.pgc"
149 printf("i = %d\n", i);
151 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_prepnormal, "close C", ECPGt_EOIT, ECPGt_EORT);
152 #line 40 "autoprep.pgc"
154 if (sqlca.sqlwarn[0] == 'W') sqlprint();
155 #line 40 "autoprep.pgc"
157 if (sqlca.sqlcode < 0) sqlprint();}
158 #line 40 "autoprep.pgc"
161 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_prepnormal, "drop table T", ECPGt_EOIT, ECPGt_EORT);
162 #line 42 "autoprep.pgc"
164 if (sqlca.sqlwarn[0] == 'W') sqlprint();
165 #line 42 "autoprep.pgc"
167 if (sqlca.sqlcode < 0) sqlprint();}
168 #line 42 "autoprep.pgc"
171 { ECPGdisconnect(__LINE__, "ALL");
172 #line 44 "autoprep.pgc"
174 if (sqlca.sqlwarn[0] == 'W') sqlprint();
175 #line 44 "autoprep.pgc"
177 if (sqlca.sqlcode < 0) sqlprint();}
178 #line 44 "autoprep.pgc"