1010
1111#line 1 "test_informix.pgc"
1212#include "sqltypes.h"
13-
13+ #include <stdlib.h>
14+ #
1415
1516#line 1 "./../regression.h"
1617
1920
2021
2122
22- #line 3 "test_informix.pgc"
23+ #line 4 "test_informix.pgc"
2324
2425
2526
@@ -31,111 +32,111 @@ static void dosqlprint(void) {
3132int main (void )
3233{
3334
34- #line 13 "test_informix.pgc"
35+ #line 14 "test_informix.pgc"
3536int i = 14 ;
3637
37- #line 13 "test_informix.pgc"
38+ #line 14 "test_informix.pgc"
3839
3940
40- #line 14 "test_informix.pgc"
41+ #line 15 "test_informix.pgc"
4142decimal j ,m ,n ;
4243
43- #line 14 "test_informix.pgc"
44+ #line 15 "test_informix.pgc"
4445
4546
4647ECPGdebug (1 ,stderr );
4748/* exec sql whenever sqlerror do dosqlprint ( ) ; */
48- #line 17 "test_informix.pgc"
49+ #line 18 "test_informix.pgc"
4950
5051
5152{ECPGconnect (__LINE__ ,1 ,"regress1" ,NULL ,NULL ,NULL ,0 );
52- #line 19 "test_informix.pgc"
53+ #line 20 "test_informix.pgc"
5354
5455if (sqlca .sqlcode < 0 )dosqlprint ( );}
55- #line 19 "test_informix.pgc"
56+ #line 20 "test_informix.pgc"
5657
5758if (sqlca .sqlcode != 0 )exit (1 );
5859
5960{ECPGdo (__LINE__ ,1 ,1 ,NULL ,"create table test ( i int primary key , j int ) " ,ECPGt_EOIT ,ECPGt_EORT );
60- #line 22 "test_informix.pgc"
61+ #line 23 "test_informix.pgc"
6162
6263if (sqlca .sqlcode < 0 )dosqlprint ( );}
63- #line 22 "test_informix.pgc"
64+ #line 23 "test_informix.pgc"
6465
6566
6667/* this INSERT works */
6768rsetnull (CDECIMALTYPE , (char * )& j );
6869{ECPGdo (__LINE__ ,1 ,1 ,NULL ,"insert into test ( i , j ) values( 7 , ? )" ,
6970ECPGt_decimal ,& (j ),(long )1 ,(long )1 ,sizeof (decimal ),
7071ECPGt_NO_INDICATOR ,NULL ,0L ,0L ,0L ,ECPGt_EOIT ,ECPGt_EORT );
71- #line 26 "test_informix.pgc"
72+ #line 27 "test_informix.pgc"
7273
7374if (sqlca .sqlcode < 0 )dosqlprint ( );}
74- #line 26 "test_informix.pgc"
75+ #line 27 "test_informix.pgc"
7576
7677{ECPGtrans (__LINE__ ,NULL ,"commit" );
77- #line 27 "test_informix.pgc"
78+ #line 28 "test_informix.pgc"
7879
7980if (sqlca .sqlcode < 0 )dosqlprint ( );}
80- #line 27 "test_informix.pgc"
81+ #line 28 "test_informix.pgc"
8182
8283
8384/* this INSERT should fail because i is a unique column */
8485{ECPGdo (__LINE__ ,1 ,1 ,NULL ,"insert into test ( i , j ) values( 7 , 12 )" ,ECPGt_EOIT ,ECPGt_EORT );
85- #line 30 "test_informix.pgc"
86+ #line 31 "test_informix.pgc"
8687
8788if (sqlca .sqlcode < 0 )dosqlprint ( );}
88- #line 30 "test_informix.pgc"
89+ #line 31 "test_informix.pgc"
8990
9091printf ("INSERT: %ld=%s\n" ,sqlca .sqlcode ,sqlca .sqlerrm .sqlerrmc );
9192if (sqlca .sqlcode != 0 ) {ECPGtrans (__LINE__ ,NULL ,"rollback" );
92- #line 32 "test_informix.pgc"
93+ #line 33 "test_informix.pgc"
9394
9495if (sqlca .sqlcode < 0 )dosqlprint ( );}
95- #line 32 "test_informix.pgc"
96+ #line 33 "test_informix.pgc"
9697
9798
9899{ECPGdo (__LINE__ ,1 ,1 ,NULL ,"insert into test ( i , j ) values( ? , 1 )" ,
99100ECPGt_int ,& (i ),(long )1 ,(long )1 ,sizeof (int ),
100101ECPGt_NO_INDICATOR ,NULL ,0L ,0L ,0L ,ECPGt_EOIT ,ECPGt_EORT );
101- #line 34 "test_informix.pgc"
102+ #line 35 "test_informix.pgc"
102103
103104if (sqlca .sqlcode < 0 )dosqlprint ( );}
104- #line 34 "test_informix.pgc"
105+ #line 35 "test_informix.pgc"
105106
106107{ECPGtrans (__LINE__ ,NULL ,"commit" );
107- #line 35 "test_informix.pgc"
108+ #line 36 "test_informix.pgc"
108109
109110if (sqlca .sqlcode < 0 )dosqlprint ( );}
110- #line 35 "test_informix.pgc"
111+ #line 36 "test_informix.pgc"
111112
112113
113114/* this will fail (more than one row in subquery) */
114115{ECPGdo (__LINE__ ,1 ,1 ,NULL ,"select i from test where j = ( select j from test ) " ,ECPGt_EOIT ,ECPGt_EORT );
115- #line 38 "test_informix.pgc"
116+ #line 39 "test_informix.pgc"
116117
117118if (sqlca .sqlcode < 0 )dosqlprint ( );}
118- #line 38 "test_informix.pgc"
119+ #line 39 "test_informix.pgc"
119120
120121
121122/* this however should be ok */
122123{ECPGdo (__LINE__ ,1 ,1 ,NULL ,"select i from test where j = ( select j from test limit 1 ) " ,ECPGt_EOIT ,ECPGt_EORT );
123- #line 41 "test_informix.pgc"
124+ #line 42 "test_informix.pgc"
124125
125126if (sqlca .sqlcode < 0 )dosqlprint ( );}
126- #line 41 "test_informix.pgc"
127+ #line 42 "test_informix.pgc"
127128
128129printf ("SELECT: %ld=%s\n" ,sqlca .sqlcode ,sqlca .sqlerrm .sqlerrmc );
129130if (sqlca .sqlcode != 0 ) {ECPGtrans (__LINE__ ,NULL ,"rollback" );
130- #line 43 "test_informix.pgc"
131+ #line 44 "test_informix.pgc"
131132
132133if (sqlca .sqlcode < 0 )dosqlprint ( );}
133- #line 43 "test_informix.pgc"
134+ #line 44 "test_informix.pgc"
134135
135136
136137ECPG_informix_set_var (0 ,& (i ),__LINE__ );\
137138/* declare c cursor for select * from test where i <= ? */
138- #line 45 "test_informix.pgc"
139+ #line 46 "test_informix.pgc"
139140
140141openit ();
141142
@@ -148,10 +149,10 @@ if (sqlca.sqlcode < 0) dosqlprint ( );}
148149ECPGt_NO_INDICATOR ,NULL ,0L ,0L ,0L ,
149150ECPGt_decimal ,& (j ),(long )1 ,(long )1 ,sizeof (decimal ),
150151ECPGt_NO_INDICATOR ,NULL ,0L ,0L ,0L ,ECPGt_EORT );
151- #line 52 "test_informix.pgc"
152+ #line 53 "test_informix.pgc"
152153
153154if (sqlca .sqlcode < 0 )dosqlprint ( );}
154- #line 52 "test_informix.pgc"
155+ #line 53 "test_informix.pgc"
155156
156157if (sqlca .sqlcode == 100 )break ;
157158else if (sqlca .sqlcode != 0 )printf ("Error: %ld\n" ,sqlca .sqlcode );
@@ -173,53 +174,53 @@ if (sqlca.sqlcode < 0) dosqlprint ( );}
173174{ECPGdo (__LINE__ ,1 ,1 ,NULL ,"delete from test where i = ?" ,
174175ECPGt_decimal ,& (n ),(long )1 ,(long )1 ,sizeof (decimal ),
175176ECPGt_NO_INDICATOR ,NULL ,0L ,0L ,0L ,ECPGt_EOIT ,ECPGt_EORT );
176- #line 70 "test_informix.pgc"
177+ #line 71 "test_informix.pgc"
177178
178179if (sqlca .sqlcode < 0 )dosqlprint ( );}
179- #line 70 "test_informix.pgc"
180+ #line 71 "test_informix.pgc"
180181
181182printf ("DELETE: %ld\n" ,sqlca .sqlcode );
182183
183184{ECPGdo (__LINE__ ,1 ,1 ,NULL ,"select 1 from test where i = 14 " ,ECPGt_EOIT ,ECPGt_EORT );
184- #line 73 "test_informix.pgc"
185+ #line 74 "test_informix.pgc"
185186
186187if (sqlca .sqlcode < 0 )dosqlprint ( );}
187- #line 73 "test_informix.pgc"
188+ #line 74 "test_informix.pgc"
188189
189190printf ("Exists: %ld\n" ,sqlca .sqlcode );
190191
191192{ECPGdo (__LINE__ ,1 ,1 ,NULL ,"select 1 from test where i = 147 " ,ECPGt_EOIT ,ECPGt_EORT );
192- #line 76 "test_informix.pgc"
193+ #line 77 "test_informix.pgc"
193194
194195if (sqlca .sqlcode < 0 )dosqlprint ( );}
195- #line 76 "test_informix.pgc"
196+ #line 77 "test_informix.pgc"
196197
197198printf ("Does not exist: %ld\n" ,sqlca .sqlcode );
198199
199200{ECPGtrans (__LINE__ ,NULL ,"commit" );
200- #line 79 "test_informix.pgc"
201+ #line 80 "test_informix.pgc"
201202
202203if (sqlca .sqlcode < 0 )dosqlprint ( );}
203- #line 79 "test_informix.pgc"
204+ #line 80 "test_informix.pgc"
204205
205206{ECPGdo (__LINE__ ,1 ,1 ,NULL ,"drop table test " ,ECPGt_EOIT ,ECPGt_EORT );
206- #line 80 "test_informix.pgc"
207+ #line 81 "test_informix.pgc"
207208
208209if (sqlca .sqlcode < 0 )dosqlprint ( );}
209- #line 80 "test_informix.pgc"
210+ #line 81 "test_informix.pgc"
210211
211212{ECPGtrans (__LINE__ ,NULL ,"commit" );
212- #line 81 "test_informix.pgc"
213+ #line 82 "test_informix.pgc"
213214
214215if (sqlca .sqlcode < 0 )dosqlprint ( );}
215- #line 81 "test_informix.pgc"
216+ #line 82 "test_informix.pgc"
216217
217218
218219{ECPGdisconnect (__LINE__ ,"CURRENT" );
219- #line 83 "test_informix.pgc"
220+ #line 84 "test_informix.pgc"
220221
221222if (sqlca .sqlcode < 0 )dosqlprint ( );}
222- #line 83 "test_informix.pgc"
223+ #line 84 "test_informix.pgc"
223224
224225
225226return 0 ;
@@ -230,10 +231,10 @@ static void openit(void)
230231{ECPGdo (__LINE__ ,1 ,1 ,NULL ,"declare c cursor for select * from test where i <= ? " ,
231232ECPGt_int ,& (* (int * )(ECPG_informix_get_var (0 ))),(long )1 ,(long )1 ,sizeof (int ),
232233ECPGt_NO_INDICATOR ,NULL ,0L ,0L ,0L ,ECPGt_EOIT ,ECPGt_EORT );
233- #line 90 "test_informix.pgc"
234+ #line 91 "test_informix.pgc"
234235
235236if (sqlca .sqlcode < 0 )dosqlprint ( );}
236- #line 90 "test_informix.pgc"
237+ #line 91 "test_informix.pgc"
237238
238239}
239240