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 "outofscope.pgc"
10 #include <stdio.h>
11 #include <stdlib.h>
12 #include <string.h>
13 #include <limits.h>
14
15
16 #line 1 "regression.h"
17
18
19
20
21
22
23 #line 6 "outofscope.pgc"
24
25
26
27 #line 1 "pgtypes_numeric.h"
28 #ifndef PGTYPES_NUMERIC
29 #define PGTYPES_NUMERIC
30
31 #include <pgtypes.h>
32
33 #define NUMERIC_POS 0x0000
34 #define NUMERIC_NEG 0x4000
35 #define NUMERIC_NAN 0xC000
36 #define NUMERIC_NULL 0xF000
37 #define NUMERIC_MAX_PRECISION 1000
38 #define NUMERIC_MAX_DISPLAY_SCALE NUMERIC_MAX_PRECISION
39 #define NUMERIC_MIN_DISPLAY_SCALE 0
40 #define NUMERIC_MIN_SIG_DIGITS 16
41
42 #define DECSIZE 30
43
44 typedef unsigned char NumericDigit;
45 typedef struct
46 {
47 int ndigits; /* number of digits in digits[] - can be 0! */
48 int weight; /* weight of first digit */
49 int rscale; /* result scale */
50 int dscale; /* display scale */
51 int sign; /* NUMERIC_POS, NUMERIC_NEG, or NUMERIC_NAN */
52 NumericDigit *buf; /* start of alloc'd space for digits[] */
53 NumericDigit *digits; /* decimal digits */
54 } numeric;
55
56 typedef struct
57 {
58 int ndigits; /* number of digits in digits[] - can be 0! */
59 int weight; /* weight of first digit */
60 int rscale; /* result scale */
61 int dscale; /* display scale */
62 int sign; /* NUMERIC_POS, NUMERIC_NEG, or NUMERIC_NAN */
63 NumericDigit digits[DECSIZE]; /* decimal digits */
64 } decimal;
65
66 #ifdef __cplusplus
67 extern "C"
68 {
69 #endif
70
71 numeric *PGTYPESnumeric_new(void);
72 decimal *PGTYPESdecimal_new(void);
73 void PGTYPESnumeric_free(numeric *);
74 void PGTYPESdecimal_free(decimal *);
75 numeric *PGTYPESnumeric_from_asc(char *, char **);
76 char *PGTYPESnumeric_to_asc(numeric *, int);
77 int PGTYPESnumeric_add(numeric *, numeric *, numeric *);
78 int PGTYPESnumeric_sub(numeric *, numeric *, numeric *);
79 int PGTYPESnumeric_mul(numeric *, numeric *, numeric *);
80 int PGTYPESnumeric_div(numeric *, numeric *, numeric *);
81 int PGTYPESnumeric_cmp(numeric *, numeric *);
82 int PGTYPESnumeric_from_int(signed int, numeric *);
83 int PGTYPESnumeric_from_long(signed long int, numeric *);
84 int PGTYPESnumeric_copy(numeric *, numeric *);
85 int PGTYPESnumeric_from_double(double, numeric *);
86 int PGTYPESnumeric_to_double(numeric *, double *);
87 int PGTYPESnumeric_to_int(numeric *, int *);
88 int PGTYPESnumeric_to_long(numeric *, long *);
89 int PGTYPESnumeric_to_decimal(numeric *, decimal *);
90 int PGTYPESnumeric_from_decimal(decimal *, numeric *);
91
92 #ifdef __cplusplus
93 }
94 #endif
95
96 #endif /* PGTYPES_NUMERIC */
97
98 #line 8 "outofscope.pgc"
99
100
101 /* exec sql begin declare section */
102
103 #line 1 "struct.h"
104
105
106
107
108 /* dec_t */
109
110
111
112 typedef struct mytype MYTYPE ;
113
114 #line 9 "struct.h"
115
116
117
118
119
120
121
122
123
124
125 typedef struct mynulltype MYNULLTYPE ;
126
127 #line 19 "struct.h"
128
129
130 #line 11 "outofscope.pgc"
131
132 struct mytype {
133 #line 3 "struct.h"
134 int id ;
135
136 #line 4 "struct.h"
137 char t [ 64 ] ;
138
139 #line 5 "struct.h"
140 double d1 ;
141
142 #line 6 "struct.h"
143 double d2 ;
144
145 #line 7 "struct.h"
146 char c [ 30 ] ;
147 } ; struct mynulltype {
148 #line 13 "struct.h"
149 int id ;
150
151 #line 14 "struct.h"
152 int t ;
153
154 #line 15 "struct.h"
155 int d1 ;
156
157 #line 16 "struct.h"
158 int d2 ;
159
160 #line 17 "struct.h"
161 int c ;
162 } ;/* exec sql end declare section */
163 #line 12 "outofscope.pgc"
164
165
166 /* exec sql whenever sqlerror stop ; */
167 #line 14 "outofscope.pgc"
168
169
170 /* Functions for test 1 */
171
172 static void
get_var1(MYTYPE ** myvar0,MYNULLTYPE ** mynullvar0)173 get_var1(MYTYPE **myvar0, MYNULLTYPE **mynullvar0)
174 {
175 /* exec sql begin declare section */
176
177
178
179 #line 22 "outofscope.pgc"
180 MYTYPE * myvar = malloc ( sizeof ( MYTYPE ) ) ;
181
182 #line 23 "outofscope.pgc"
183 MYNULLTYPE * mynullvar = malloc ( sizeof ( MYNULLTYPE ) ) ;
184 /* exec sql end declare section */
185 #line 24 "outofscope.pgc"
186
187
188 /* Test DECLARE ... SELECT ... INTO with pointers */
189
190 ECPGset_var( 0, ( myvar ), __LINE__);\
191 ECPGset_var( 1, ( mynullvar ), __LINE__);\
192 /* declare mycur cursor for select * from a1 */
193 #line 28 "outofscope.pgc"
194
195 if (sqlca.sqlcode < 0) exit (1);
196 #line 28 "outofscope.pgc"
197
198 #line 28 "outofscope.pgc"
199
200
201 if (sqlca.sqlcode != 0)
202 exit(1);
203
204 *myvar0 = myvar;
205 *mynullvar0 = mynullvar;
206 }
207
208 static void
open_cur1(void)209 open_cur1(void)
210 {
211 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare mycur cursor for select * from a1", ECPGt_EOIT,
212 ECPGt_int,&((*( MYTYPE *)(ECPGget_var( 0)) ).id),(long)1,(long)1,sizeof( struct mytype ),
213 ECPGt_int,&((*( MYNULLTYPE *)(ECPGget_var( 1)) ).id),(long)1,(long)1,sizeof( struct mynulltype ),
214 ECPGt_char,&((*( MYTYPE *)(ECPGget_var( 0)) ).t),(long)64,(long)1,sizeof( struct mytype ),
215 ECPGt_int,&((*( MYNULLTYPE *)(ECPGget_var( 1)) ).t),(long)1,(long)1,sizeof( struct mynulltype ),
216 ECPGt_double,&((*( MYTYPE *)(ECPGget_var( 0)) ).d1),(long)1,(long)1,sizeof( struct mytype ),
217 ECPGt_int,&((*( MYNULLTYPE *)(ECPGget_var( 1)) ).d1),(long)1,(long)1,sizeof( struct mynulltype ),
218 ECPGt_double,&((*( MYTYPE *)(ECPGget_var( 0)) ).d2),(long)1,(long)1,sizeof( struct mytype ),
219 ECPGt_int,&((*( MYNULLTYPE *)(ECPGget_var( 1)) ).d2),(long)1,(long)1,sizeof( struct mynulltype ),
220 ECPGt_char,&((*( MYTYPE *)(ECPGget_var( 0)) ).c),(long)30,(long)1,sizeof( struct mytype ),
221 ECPGt_int,&((*( MYNULLTYPE *)(ECPGget_var( 1)) ).c),(long)1,(long)1,sizeof( struct mynulltype ), ECPGt_EORT);
222 #line 40 "outofscope.pgc"
223
224 if (sqlca.sqlcode < 0) exit (1);}
225 #line 40 "outofscope.pgc"
226
227 }
228
229 static void
get_record1(void)230 get_record1(void)
231 {
232 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "fetch mycur", ECPGt_EOIT,
233 ECPGt_int,&((*( MYTYPE *)(ECPGget_var( 0)) ).id),(long)1,(long)1,sizeof( struct mytype ),
234 ECPGt_int,&((*( MYNULLTYPE *)(ECPGget_var( 1)) ).id),(long)1,(long)1,sizeof( struct mynulltype ),
235 ECPGt_char,&((*( MYTYPE *)(ECPGget_var( 0)) ).t),(long)64,(long)1,sizeof( struct mytype ),
236 ECPGt_int,&((*( MYNULLTYPE *)(ECPGget_var( 1)) ).t),(long)1,(long)1,sizeof( struct mynulltype ),
237 ECPGt_double,&((*( MYTYPE *)(ECPGget_var( 0)) ).d1),(long)1,(long)1,sizeof( struct mytype ),
238 ECPGt_int,&((*( MYNULLTYPE *)(ECPGget_var( 1)) ).d1),(long)1,(long)1,sizeof( struct mynulltype ),
239 ECPGt_double,&((*( MYTYPE *)(ECPGget_var( 0)) ).d2),(long)1,(long)1,sizeof( struct mytype ),
240 ECPGt_int,&((*( MYNULLTYPE *)(ECPGget_var( 1)) ).d2),(long)1,(long)1,sizeof( struct mynulltype ),
241 ECPGt_char,&((*( MYTYPE *)(ECPGget_var( 0)) ).c),(long)30,(long)1,sizeof( struct mytype ),
242 ECPGt_int,&((*( MYNULLTYPE *)(ECPGget_var( 1)) ).c),(long)1,(long)1,sizeof( struct mynulltype ), ECPGt_EORT);
243 #line 46 "outofscope.pgc"
244
245 if (sqlca.sqlcode < 0) exit (1);}
246 #line 46 "outofscope.pgc"
247
248 }
249
250 static void
close_cur1(void)251 close_cur1(void)
252 {
253 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "close mycur", ECPGt_EOIT, ECPGt_EORT);
254 #line 52 "outofscope.pgc"
255
256 if (sqlca.sqlcode < 0) exit (1);}
257 #line 52 "outofscope.pgc"
258
259 }
260
261 int
main(void)262 main (void)
263 {
264 MYTYPE *myvar;
265 MYNULLTYPE *mynullvar;
266 int loopcount;
267 char msg[128];
268
269 ECPGdebug(1, stderr);
270
271 strcpy(msg, "connect");
272 { ECPGconnect(__LINE__, 0, "ecpg1_regression" , NULL, NULL , NULL, 0);
273 #line 66 "outofscope.pgc"
274
275 if (sqlca.sqlcode < 0) exit (1);}
276 #line 66 "outofscope.pgc"
277
278
279 strcpy(msg, "set");
280 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "set datestyle to iso", ECPGt_EOIT, ECPGt_EORT);
281 #line 69 "outofscope.pgc"
282
283 if (sqlca.sqlcode < 0) exit (1);}
284 #line 69 "outofscope.pgc"
285
286
287 strcpy(msg, "create");
288 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "create table a1 ( id serial primary key , t text , d1 numeric , d2 float8 , c character ( 10 ) )", ECPGt_EOIT, ECPGt_EORT);
289 #line 72 "outofscope.pgc"
290
291 if (sqlca.sqlcode < 0) exit (1);}
292 #line 72 "outofscope.pgc"
293
294
295 strcpy(msg, "insert");
296 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into a1 ( id , t , d1 , d2 , c ) values ( default , 'a' , 1.0 , 2 , 'a' )", ECPGt_EOIT, ECPGt_EORT);
297 #line 75 "outofscope.pgc"
298
299 if (sqlca.sqlcode < 0) exit (1);}
300 #line 75 "outofscope.pgc"
301
302 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into a1 ( id , t , d1 , d2 , c ) values ( default , null , null , null , null )", ECPGt_EOIT, ECPGt_EORT);
303 #line 76 "outofscope.pgc"
304
305 if (sqlca.sqlcode < 0) exit (1);}
306 #line 76 "outofscope.pgc"
307
308 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into a1 ( id , t , d1 , d2 , c ) values ( default , 'b' , 2.0 , 3 , 'b' )", ECPGt_EOIT, ECPGt_EORT);
309 #line 77 "outofscope.pgc"
310
311 if (sqlca.sqlcode < 0) exit (1);}
312 #line 77 "outofscope.pgc"
313
314
315 strcpy(msg, "commit");
316 { ECPGtrans(__LINE__, NULL, "commit");
317 #line 80 "outofscope.pgc"
318
319 if (sqlca.sqlcode < 0) exit (1);}
320 #line 80 "outofscope.pgc"
321
322
323 /* Test out-of-scope DECLARE/OPEN/FETCH/CLOSE */
324
325 get_var1(&myvar, &mynullvar);
326 open_cur1();
327
328 for (loopcount = 0; loopcount < 100; loopcount++)
329 {
330 memset(myvar, 0, sizeof(MYTYPE));
331 get_record1();
332 if (sqlca.sqlcode == ECPG_NOT_FOUND)
333 break;
334 printf("id=%d%s t='%s'%s d1=%f%s d2=%f%s c = '%s'%s\n",
335 myvar->id, mynullvar->id ? " (NULL)" : "",
336 myvar->t, mynullvar->t ? " (NULL)" : "",
337 myvar->d1, mynullvar->d1 ? " (NULL)" : "",
338 myvar->d2, mynullvar->d2 ? " (NULL)" : "",
339 myvar->c, mynullvar->c ? " (NULL)" : "");
340 }
341
342 close_cur1();
343
344 free(myvar);
345 free(mynullvar);
346
347 strcpy(msg, "drop");
348 { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "drop table a1", ECPGt_EOIT, ECPGt_EORT);
349 #line 107 "outofscope.pgc"
350
351 if (sqlca.sqlcode < 0) exit (1);}
352 #line 107 "outofscope.pgc"
353
354
355 strcpy(msg, "commit");
356 { ECPGtrans(__LINE__, NULL, "commit");
357 #line 110 "outofscope.pgc"
358
359 if (sqlca.sqlcode < 0) exit (1);}
360 #line 110 "outofscope.pgc"
361
362
363 strcpy(msg, "disconnect");
364 { ECPGdisconnect(__LINE__, "CURRENT");
365 #line 113 "outofscope.pgc"
366
367 if (sqlca.sqlcode < 0) exit (1);}
368 #line 113 "outofscope.pgc"
369
370
371 return 0;
372 }
373