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 /* Needed for informix compatibility */
7 #include <ecpg_informix.h>
8 /* End of automatic include section */
9 #define ECPGdebug(X,Y) ECPGdebug((X)+100,(Y))
10
11 #line 1 "test_informix2.pgc"
12 #include <stdio.h>
13 #include <stdlib.h>
14 #include "sqltypes.h"
15
16
17 #line 1 "sqlca.h"
18 #ifndef POSTGRES_SQLCA_H
19 #define POSTGRES_SQLCA_H
20
21 #ifndef PGDLLIMPORT
22 #if defined(WIN32) || defined(__CYGWIN__)
23 #define PGDLLIMPORT __declspec (dllimport)
24 #else
25 #define PGDLLIMPORT
26 #endif /* __CYGWIN__ */
27 #endif /* PGDLLIMPORT */
28
29 #define SQLERRMC_LEN 150
30
31 #ifdef __cplusplus
32 extern "C"
33 {
34 #endif
35
36 struct sqlca_t
37 {
38 char sqlcaid[8];
39 long sqlabc;
40 long sqlcode;
41 struct
42 {
43 int sqlerrml;
44 char sqlerrmc[SQLERRMC_LEN];
45 } sqlerrm;
46 char sqlerrp[8];
47 long sqlerrd[6];
48 /* Element 0: empty */
49 /* 1: OID of processed tuple if applicable */
50 /* 2: number of rows processed */
51 /* after an INSERT, UPDATE or */
52 /* DELETE statement */
53 /* 3: empty */
54 /* 4: empty */
55 /* 5: empty */
56 char sqlwarn[8];
57 /* Element 0: set to 'W' if at least one other is 'W' */
58 /* 1: if 'W' at least one character string */
59 /* value was truncated when it was */
60 /* stored into a host variable. */
61
62 /*
63 * 2: if 'W' a (hopefully) non-fatal notice occurred
64 */ /* 3: empty */
65 /* 4: empty */
66 /* 5: empty */
67 /* 6: empty */
68 /* 7: empty */
69
70 char sqlstate[5];
71 };
72
73 struct sqlca_t *ECPGget_sqlca(void);
74
75 #ifndef POSTGRES_ECPG_INTERNAL
76 #define sqlca (*ECPGget_sqlca())
77 #endif
78
79 #ifdef __cplusplus
80 }
81 #endif
82
83 #endif
84
85 #line 5 "test_informix2.pgc"
86
87
88 #line 1 "regression.h"
89
90
91
92
93
94
95 #line 6 "test_informix2.pgc"
96
97
98
99 /* Check SQLCODE, and produce a "standard error" if it's wrong! */
sql_check(char * fn,char * caller,int ignore)100 static void sql_check(char *fn, char *caller, int ignore)
101 {
102 char errorstring[255];
103
104 if (SQLCODE == ignore)
105 return;
106 else
107 {
108 if (SQLCODE != 0)
109 {
110
111 sprintf(errorstring, "**SQL error %ld doing '%s' in function '%s'. [%s]",
112 SQLCODE, caller, fn, sqlca.sqlerrm.sqlerrmc);
113 fprintf(stderr, "%s", errorstring);
114 printf("%s\n", errorstring);
115
116 /* attempt a ROLLBACK */
117 { ECPGtrans(__LINE__, NULL, "rollback");}
118 #line 27 "test_informix2.pgc"
119
120
121 if (SQLCODE == 0)
122 {
123 sprintf(errorstring, "Rollback successful.\n");
124 } else {
125 sprintf(errorstring, "Rollback failed with code %ld.\n", SQLCODE);
126 }
127
128 fprintf(stderr, "%s", errorstring);
129 printf("%s\n", errorstring);
130
131 exit(1);
132 }
133 }
134 }
135
136
137
main(void)138 int main(void)
139 {
140 /* exec sql begin declare section */
141
142
143
144
145
146
147 #line 49 "test_informix2.pgc"
148 int c ;
149
150 #line 50 "test_informix2.pgc"
151 timestamp d ;
152
153 #line 51 "test_informix2.pgc"
154 timestamp e ;
155
156 #line 52 "test_informix2.pgc"
157 timestamp maxd ;
158
159 #line 53 "test_informix2.pgc"
160 char dbname [ 30 ] ;
161 /* exec sql end declare section */
162 #line 54 "test_informix2.pgc"
163
164
165 interval *intvl;
166
167 /* exec sql whenever sqlerror sqlprint ; */
168 #line 58 "test_informix2.pgc"
169
170
171 ECPGdebug(1, stderr);
172
173 strcpy(dbname, "ecpg1_regression");
174 { ECPGconnect(__LINE__, 1, dbname , NULL, NULL , NULL, 0);
175 #line 63 "test_informix2.pgc"
176
177 if (sqlca.sqlcode < 0) sqlprint();}
178 #line 63 "test_informix2.pgc"
179
180 sql_check("main", "connect", 0);
181
182 { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "set DateStyle to 'DMY'", ECPGt_EOIT, ECPGt_EORT);
183 #line 66 "test_informix2.pgc"
184
185 if (sqlca.sqlcode < 0) sqlprint();}
186 #line 66 "test_informix2.pgc"
187
188
189 { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "create table history ( customerid integer , timestamp timestamp without time zone , action_taken char ( 5 ) , narrative varchar ( 100 ) )", ECPGt_EOIT, ECPGt_EORT);
190 #line 68 "test_informix2.pgc"
191
192 if (sqlca.sqlcode < 0) sqlprint();}
193 #line 68 "test_informix2.pgc"
194
195 sql_check("main", "create", 0);
196
197 { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "insert into history ( customerid , timestamp , action_taken , narrative ) values ( 1 , '2003-05-07 13:28:34 CEST' , 'test' , 'test' )", ECPGt_EOIT, ECPGt_EORT);
198 #line 73 "test_informix2.pgc"
199
200 if (sqlca.sqlcode < 0) sqlprint();}
201 #line 73 "test_informix2.pgc"
202
203 sql_check("main", "insert", 0);
204
205 { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "select max ( timestamp ) from history", ECPGt_EOIT,
206 ECPGt_timestamp,&(maxd),(long)1,(long)1,sizeof(timestamp),
207 ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
208 #line 78 "test_informix2.pgc"
209
210 if (sqlca.sqlcode < 0) sqlprint();}
211 #line 78 "test_informix2.pgc"
212
213 sql_check("main", "select max", 100);
214
215 { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "select customerid , timestamp from history where timestamp = $1 limit 1",
216 ECPGt_timestamp,&(maxd),(long)1,(long)1,sizeof(timestamp),
217 ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT,
218 ECPGt_int,&(c),(long)1,(long)1,sizeof(int),
219 ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
220 ECPGt_timestamp,&(d),(long)1,(long)1,sizeof(timestamp),
221 ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
222 #line 85 "test_informix2.pgc"
223
224 if (sqlca.sqlcode < 0) sqlprint();}
225 #line 85 "test_informix2.pgc"
226
227 sql_check("main", "select", 0);
228
229 printf("Read in customer %d\n", c);
230
231 intvl = PGTYPESinterval_from_asc("1 day 2 hours 24 minutes 65 seconds", NULL);
232 PGTYPEStimestamp_add_interval(&d, intvl, &e);
233 free(intvl);
234 c++;
235
236 { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "insert into history ( customerid , timestamp , action_taken , narrative ) values ( $1 , $2 , 'test' , 'test' )",
237 ECPGt_int,&(c),(long)1,(long)1,sizeof(int),
238 ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
239 ECPGt_timestamp,&(e),(long)1,(long)1,sizeof(timestamp),
240 ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
241 #line 97 "test_informix2.pgc"
242
243 if (sqlca.sqlcode < 0) sqlprint();}
244 #line 97 "test_informix2.pgc"
245
246 sql_check("main", "update", 0);
247
248 { ECPGtrans(__LINE__, NULL, "commit");
249 #line 100 "test_informix2.pgc"
250
251 if (sqlca.sqlcode < 0) sqlprint();}
252 #line 100 "test_informix2.pgc"
253
254
255 { ECPGdo(__LINE__, 1, 1, NULL, 0, ECPGst_normal, "drop table history", ECPGt_EOIT, ECPGt_EORT);
256 #line 102 "test_informix2.pgc"
257
258 if (sqlca.sqlcode < 0) sqlprint();}
259 #line 102 "test_informix2.pgc"
260
261 sql_check("main", "drop", 0);
262
263 { ECPGtrans(__LINE__, NULL, "commit");
264 #line 105 "test_informix2.pgc"
265
266 if (sqlca.sqlcode < 0) sqlprint();}
267 #line 105 "test_informix2.pgc"
268
269
270 { ECPGdisconnect(__LINE__, "CURRENT");
271 #line 107 "test_informix2.pgc"
272
273 if (sqlca.sqlcode < 0) sqlprint();}
274 #line 107 "test_informix2.pgc"
275
276 sql_check("main", "disconnect", 0);
277
278 printf("All OK!\n");
279
280 exit(0);
281
282 /*
283 Table "public.history"
284 Column | Type | Nullable
285 --------------+-----------------------------+----------
286 customerid | integer | not null
287 timestamp | timestamp without time zone | not null
288 action_taken | character(5) | not null
289 narrative | character varying(100) |
290 */
291
292 }
293