1 /* Processed by ecpg (regression mode) */
2 /* These include files are added by the preprocessor */
3 #include <ecpglib.h>
4 #include <ecpgerrno.h>
5 #include <sqlca.h>
6 /* End of automatic include section */
7 #define ECPGdebug(X,Y) ECPGdebug((X)+100,(Y))
8
9 #line 1 "oldexec.pgc"
10 #include <stdlib.h>
11 #include <string.h>
12 #include <stdlib.h>
13 #include <stdio.h>
14
15
16 #line 1 "regression.h"
17
18
19
20
21
22
23 #line 6 "oldexec.pgc"
24
25
26 /* exec sql whenever sqlerror sqlprint ; */
27 #line 8 "oldexec.pgc"
28
29
30 int
main(void)31 main(void)
32 {
33 /* exec sql begin declare section */
34
35
36
37
38
39
40 #line 14 "oldexec.pgc"
41 int amount [ 8 ] ;
42
43 #line 15 "oldexec.pgc"
44 int increment = 100 ;
45
46 #line 16 "oldexec.pgc"
47 char name [ 8 ] [ 8 ] ;
48
49 #line 17 "oldexec.pgc"
50 char letter [ 8 ] [ 1 ] ;
51
52 #line 18 "oldexec.pgc"
53 char command [ 128 ] ;
54 /* exec sql end declare section */
55 #line 19 "oldexec.pgc"
56
57 int i,j;
58
59 ECPGdebug(1, stderr);
60
61 { ECPGconnect(__LINE__, 0, "ecpg1_regression" , NULL, NULL , "main", 0);
62 #line 24 "oldexec.pgc"
63
64 if (sqlca.sqlcode < 0) sqlprint();}
65 #line 24 "oldexec.pgc"
66
67
68 { ECPGdo(__LINE__, 0, 1, NULL, 1, ECPGst_normal, "create table test ( name char ( 8 ) , amount int , letter char ( 1 ) )", ECPGt_EOIT, ECPGt_EORT);
69 #line 26 "oldexec.pgc"
70
71 if (sqlca.sqlcode < 0) sqlprint();}
72 #line 26 "oldexec.pgc"
73
74 { ECPGtrans(__LINE__, NULL, "commit");
75 #line 27 "oldexec.pgc"
76
77 if (sqlca.sqlcode < 0) sqlprint();}
78 #line 27 "oldexec.pgc"
79
80
81 sprintf(command, "insert into test (name, amount, letter) values ('db: ''r1''', 1, 'f')");
82 { ECPGdo(__LINE__, 0, 1, NULL, 1, ECPGst_exec_immediate, command, ECPGt_EOIT, ECPGt_EORT);
83 #line 30 "oldexec.pgc"
84
85 if (sqlca.sqlcode < 0) sqlprint();}
86 #line 30 "oldexec.pgc"
87
88
89 sprintf(command, "insert into test (name, amount, letter) values ('db: ''r1''', 2, 't')");
90 { ECPGdo(__LINE__, 0, 1, NULL, 1, ECPGst_exec_immediate, command, ECPGt_EOIT, ECPGt_EORT);
91 #line 33 "oldexec.pgc"
92
93 if (sqlca.sqlcode < 0) sqlprint();}
94 #line 33 "oldexec.pgc"
95
96
97 sprintf(command, "insert into test (name, amount, letter) select name, amount+10, letter from test");
98 { ECPGdo(__LINE__, 0, 1, NULL, 1, ECPGst_exec_immediate, command, ECPGt_EOIT, ECPGt_EORT);
99 #line 36 "oldexec.pgc"
100
101 if (sqlca.sqlcode < 0) sqlprint();}
102 #line 36 "oldexec.pgc"
103
104
105 printf("Inserted %ld tuples via execute immediate\n", sqlca.sqlerrd[2]);
106
107 sprintf(command, "insert into test (name, amount, letter) select name, amount+$1, letter from test");
108 { ECPGprepare(__LINE__, NULL, 1, "i", command);
109 #line 41 "oldexec.pgc"
110
111 if (sqlca.sqlcode < 0) sqlprint();}
112 #line 41 "oldexec.pgc"
113
114 { ECPGdo(__LINE__, 0, 1, NULL, 1, ECPGst_execute, "i",
115 ECPGt_int,&(increment),(long)1,(long)1,sizeof(int),
116 ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
117 #line 42 "oldexec.pgc"
118
119 if (sqlca.sqlcode < 0) sqlprint();}
120 #line 42 "oldexec.pgc"
121
122
123 printf("Inserted %ld tuples via prepared execute\n", sqlca.sqlerrd[2]);
124
125 { ECPGtrans(__LINE__, NULL, "commit");
126 #line 46 "oldexec.pgc"
127
128 if (sqlca.sqlcode < 0) sqlprint();}
129 #line 46 "oldexec.pgc"
130
131
132 sprintf (command, "select * from test");
133
134 { ECPGprepare(__LINE__, NULL, 1, "f", command);
135 #line 50 "oldexec.pgc"
136
137 if (sqlca.sqlcode < 0) sqlprint();}
138 #line 50 "oldexec.pgc"
139
140 /* declare CUR cursor for $1 */
141 #line 51 "oldexec.pgc"
142
143
144 { ECPGdo(__LINE__, 0, 1, NULL, 1, ECPGst_normal, "declare CUR cursor for $1",
145 ECPGt_char_variable,(ECPGprepared_statement(NULL, "f", __LINE__)),(long)1,(long)1,(1)*sizeof(char),
146 ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
147 #line 53 "oldexec.pgc"
148
149 if (sqlca.sqlcode < 0) sqlprint();}
150 #line 53 "oldexec.pgc"
151
152 { ECPGdo(__LINE__, 0, 1, NULL, 1, ECPGst_normal, "fetch 8 in CUR", ECPGt_EOIT,
153 ECPGt_char,(name),(long)8,(long)8,(8)*sizeof(char),
154 ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
155 ECPGt_int,(amount),(long)1,(long)8,sizeof(int),
156 ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
157 ECPGt_char,(letter),(long)1,(long)8,(1)*sizeof(char),
158 ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
159 #line 54 "oldexec.pgc"
160
161 if (sqlca.sqlcode < 0) sqlprint();}
162 #line 54 "oldexec.pgc"
163
164
165 for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)
166 {
167 char n[8], l = letter[i][0];
168 int a = amount[i];
169
170 strncpy(n, name[i], 8);
171 printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, n, i, a, i, l);
172 }
173
174 { ECPGdo(__LINE__, 0, 1, NULL, 1, ECPGst_normal, "close CUR", ECPGt_EOIT, ECPGt_EORT);
175 #line 65 "oldexec.pgc"
176
177 if (sqlca.sqlcode < 0) sqlprint();}
178 #line 65 "oldexec.pgc"
179
180
181 sprintf (command, "select * from test where ? = amount");
182
183 { ECPGprepare(__LINE__, NULL, 1, "f", command);
184 #line 69 "oldexec.pgc"
185
186 if (sqlca.sqlcode < 0) sqlprint();}
187 #line 69 "oldexec.pgc"
188
189 /* declare CUR3 cursor for $1 */
190 #line 70 "oldexec.pgc"
191
192
193 { ECPGdo(__LINE__, 0, 1, NULL, 1, ECPGst_normal, "declare CUR3 cursor for $1",
194 ECPGt_char_variable,(ECPGprepared_statement(NULL, "f", __LINE__)),(long)1,(long)1,(1)*sizeof(char),
195 ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
196 ECPGt_const,"1",(long)1,(long)1,strlen("1"),
197 ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
198 #line 72 "oldexec.pgc"
199
200 if (sqlca.sqlcode < 0) sqlprint();}
201 #line 72 "oldexec.pgc"
202
203 { ECPGdo(__LINE__, 0, 1, NULL, 1, ECPGst_normal, "fetch in CUR3", ECPGt_EOIT,
204 ECPGt_char,(name),(long)8,(long)8,(8)*sizeof(char),
205 ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
206 ECPGt_int,(amount),(long)1,(long)8,sizeof(int),
207 ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
208 ECPGt_char,(letter),(long)1,(long)8,(1)*sizeof(char),
209 ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
210 #line 73 "oldexec.pgc"
211
212 if (sqlca.sqlcode < 0) sqlprint();}
213 #line 73 "oldexec.pgc"
214
215
216 for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)
217 {
218 char n[8], l = letter[i][0];
219 int a = amount[i];
220
221 strncpy(n, name[i], 8);
222 printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, n, i, a, i, l);
223 }
224
225 { ECPGdo(__LINE__, 0, 1, NULL, 1, ECPGst_normal, "close CUR3", ECPGt_EOIT, ECPGt_EORT);
226 #line 84 "oldexec.pgc"
227
228 if (sqlca.sqlcode < 0) sqlprint();}
229 #line 84 "oldexec.pgc"
230
231 { ECPGdo(__LINE__, 0, 1, NULL, 1, ECPGst_normal, "drop table test", ECPGt_EOIT, ECPGt_EORT);
232 #line 85 "oldexec.pgc"
233
234 if (sqlca.sqlcode < 0) sqlprint();}
235 #line 85 "oldexec.pgc"
236
237 { ECPGtrans(__LINE__, NULL, "commit");
238 #line 86 "oldexec.pgc"
239
240 if (sqlca.sqlcode < 0) sqlprint();}
241 #line 86 "oldexec.pgc"
242
243 { ECPGdisconnect(__LINE__, "CURRENT");
244 #line 87 "oldexec.pgc"
245
246 if (sqlca.sqlcode < 0) sqlprint();}
247 #line 87 "oldexec.pgc"
248
249
250 return (0);
251 }
252