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))
13
#line 1 "regression.h"
20
#line 3 "whenever.pgc"
23
/* exec sql whenever sqlerror sqlprint ; */
24
#line 5 "whenever.pgc"
27
static void print(char *msg)
29
fprintf(stderr, "Error in statement '%s':\n", msg);
33
static void print2(void)
35
fprintf(stderr, "Found another error\n");
39
static void warn(void)
41
fprintf(stderr, "Warning: At least one column was truncated\n");
47
#line 26 "whenever.pgc"
50
#line 26 "whenever.pgc"
53
#line 27 "whenever.pgc"
56
#line 27 "whenever.pgc"
61
{ ECPGconnect(__LINE__, 0, "regress1" , NULL, NULL , NULL, 0);
62
#line 31 "whenever.pgc"
64
if (sqlca.sqlcode < 0) sqlprint();}
65
#line 31 "whenever.pgc"
67
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "create table test ( i int , c char ( 10 ) )", ECPGt_EOIT, ECPGt_EORT);
68
#line 32 "whenever.pgc"
70
if (sqlca.sqlcode < 0) sqlprint();}
71
#line 32 "whenever.pgc"
73
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into test values ( 1 , 'abcdefghij' )", ECPGt_EOIT, ECPGt_EORT);
74
#line 33 "whenever.pgc"
76
if (sqlca.sqlcode < 0) sqlprint();}
77
#line 33 "whenever.pgc"
80
/* exec sql whenever sql_warning do warn ( ) ; */
81
#line 35 "whenever.pgc"
83
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select * from test", ECPGt_EOIT,
84
ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
85
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
86
ECPGt_char,(c),(long)6,(long)1,(6)*sizeof(char),
87
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
88
#line 36 "whenever.pgc"
90
if (sqlca.sqlwarn[0] == 'W') warn ( );
91
#line 36 "whenever.pgc"
93
if (sqlca.sqlcode < 0) sqlprint();}
94
#line 36 "whenever.pgc"
96
{ ECPGtrans(__LINE__, NULL, "rollback");
97
#line 37 "whenever.pgc"
99
if (sqlca.sqlwarn[0] == 'W') warn ( );
100
#line 37 "whenever.pgc"
102
if (sqlca.sqlcode < 0) sqlprint();}
103
#line 37 "whenever.pgc"
106
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select * from nonexistant", ECPGt_EOIT,
107
ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
108
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
109
#line 39 "whenever.pgc"
111
if (sqlca.sqlwarn[0] == 'W') warn ( );
112
#line 39 "whenever.pgc"
114
if (sqlca.sqlcode < 0) sqlprint();}
115
#line 39 "whenever.pgc"
117
{ ECPGtrans(__LINE__, NULL, "rollback");
118
#line 40 "whenever.pgc"
120
if (sqlca.sqlwarn[0] == 'W') warn ( );
121
#line 40 "whenever.pgc"
123
if (sqlca.sqlcode < 0) sqlprint();}
124
#line 40 "whenever.pgc"
127
/* exec sql whenever sqlerror do print ( \"select\" ) ; */
128
#line 42 "whenever.pgc"
130
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select * from nonexistant", ECPGt_EOIT,
131
ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
132
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
133
#line 43 "whenever.pgc"
135
if (sqlca.sqlwarn[0] == 'W') warn ( );
136
#line 43 "whenever.pgc"
138
if (sqlca.sqlcode < 0) print ( "select" );}
139
#line 43 "whenever.pgc"
141
{ ECPGtrans(__LINE__, NULL, "rollback");
142
#line 44 "whenever.pgc"
144
if (sqlca.sqlwarn[0] == 'W') warn ( );
145
#line 44 "whenever.pgc"
147
if (sqlca.sqlcode < 0) print ( "select" );}
148
#line 44 "whenever.pgc"
151
/* exec sql whenever sqlerror call print2 ( ) ; */
152
#line 46 "whenever.pgc"
154
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select * from nonexistant", ECPGt_EOIT,
155
ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
156
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
157
#line 47 "whenever.pgc"
159
if (sqlca.sqlwarn[0] == 'W') warn ( );
160
#line 47 "whenever.pgc"
162
if (sqlca.sqlcode < 0) print2 ( );}
163
#line 47 "whenever.pgc"
165
{ ECPGtrans(__LINE__, NULL, "rollback");
166
#line 48 "whenever.pgc"
168
if (sqlca.sqlwarn[0] == 'W') warn ( );
169
#line 48 "whenever.pgc"
171
if (sqlca.sqlcode < 0) print2 ( );}
172
#line 48 "whenever.pgc"
175
/* exec sql whenever sqlerror continue ; */
176
#line 50 "whenever.pgc"
178
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select * from nonexistant", ECPGt_EOIT,
179
ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
180
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
181
#line 51 "whenever.pgc"
183
if (sqlca.sqlwarn[0] == 'W') warn ( );}
184
#line 51 "whenever.pgc"
186
{ ECPGtrans(__LINE__, NULL, "rollback");
187
#line 52 "whenever.pgc"
189
if (sqlca.sqlwarn[0] == 'W') warn ( );}
190
#line 52 "whenever.pgc"
193
/* exec sql whenever sqlerror goto error ; */
194
#line 54 "whenever.pgc"
196
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select * from nonexistant", ECPGt_EOIT,
197
ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
198
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
199
#line 55 "whenever.pgc"
201
if (sqlca.sqlwarn[0] == 'W') warn ( );
202
#line 55 "whenever.pgc"
204
if (sqlca.sqlcode < 0) goto error;}
205
#line 55 "whenever.pgc"
207
printf("Should not be reachable\n");
210
{ ECPGtrans(__LINE__, NULL, "rollback");
211
#line 59 "whenever.pgc"
213
if (sqlca.sqlwarn[0] == 'W') warn ( );
214
#line 59 "whenever.pgc"
216
if (sqlca.sqlcode < 0) goto error;}
217
#line 59 "whenever.pgc"
220
/* exec sql whenever sqlerror stop ; */
221
#line 61 "whenever.pgc"
223
/* This cannot fail, thus we don't get an exit value not equal 0. */
224
/* However, it still test the precompiler output. */
225
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select 1", ECPGt_EOIT,
226
ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
227
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
228
#line 64 "whenever.pgc"
230
if (sqlca.sqlwarn[0] == 'W') warn ( );
231
#line 64 "whenever.pgc"
233
if (sqlca.sqlcode < 0) exit (1);}
234
#line 64 "whenever.pgc"
236
{ ECPGtrans(__LINE__, NULL, "rollback");
237
#line 65 "whenever.pgc"
239
if (sqlca.sqlwarn[0] == 'W') warn ( );
240
#line 65 "whenever.pgc"
242
if (sqlca.sqlcode < 0) exit (1);}
243
#line 65 "whenever.pgc"