PostgreSQL Source Code  git master
 All Data Structures Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros
compat_informix-test_informix2.c
Go to the documentation of this file.
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! */
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 
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 }
bool ECPGdisconnect(int lineno, const char *connection_name)
Definition: connect.c:669
long sqlabc
Definition: sqlca.h:22
int64 timestamp
bool ECPGdo(const int lineno, const int compat, const int force_indicator, const char *connection_name, const bool questionmarks, const int st, const char *query,...)
Definition: execute.c:2030
char sqlwarn[8]
Definition: sqlca.h:39
int sqlerrml
Definition: sqlca.h:26
char sqlcaid[8]
Definition: sqlca.h:21
static void sql_check(char *fn, char *caller, int ignore)
struct sqlca_t * ECPGget_sqlca(void)
Definition: misc.c:142
bool ECPGconnect(int lineno, int c, const char *name, const char *user, const char *passwd, const char *connection_name, int autocommit)
Definition: connect.c:271
Definition: sqlca.h:19
struct sqlca_t::@117 sqlerrm
char * c
interval * PGTYPESinterval_from_asc(char *, char **)
Definition: interval.c:1021
#define ECPGdebug(X, Y)
int PGTYPEStimestamp_add_interval(timestamp *tin, interval *span, timestamp *tout)
Definition: timestamp.c:870
long sqlerrd[6]
Definition: sqlca.h:30
char sqlstate[5]
Definition: sqlca.h:53
#define SQLERRMC_LEN
long sqlcode
Definition: sqlca.h:23
void sqlprint(void)
Definition: error.c:336
static void * fn(void *arg)
#define free(a)
Definition: header.h:65
#define NULL
Definition: c.h:229
char * dbname
Definition: streamutil.c:38
char sqlerrp[8]
Definition: sqlca.h:29
bool ECPGtrans(int lineno, const char *connection_name, const char *transaction)
Definition: misc.c:199
e
Definition: preproc-init.c:82
#define SQLCODE
Definition: ecpglib.h:69
char sqlerrmc[SQLERRMC_LEN]
Definition: sqlca.h:27