2222#line 5 "char_array.pgc"
2323
2424
25- static void warn ();
25+ static void warn (void )
26+ {
27+ fprintf (stderr ,"Warning: At least one column was truncated\n" );
28+ }
2629
2730/* Compatible handling of char array to retrieve varchar field to char array
2831 should be fixed-length, blank-padded, then null-terminated.
2932 Conforms to the ANSI Fixed Character type. */
3033
3134int main () {
3235
33- ECPGdebug (1 ,stderr );
34- {ECPGconnect (__LINE__ ,3 ,"ecpg1_regression" ,NULL ,NULL ,NULL ,0 ); }
35- #line 16 "char_array.pgc"
36-
37-
3836/* exec sql whenever sql_warning do warn ( ) ; */
3937#line 18 "char_array.pgc"
4038
@@ -65,16 +63,8 @@ int main() {
6563#line 28 "char_array.pgc"
6664
6765
68- {ECPGdo (__LINE__ ,3 ,1 ,NULL ,0 ,ECPGst_normal ,"create table strdbase ( strval varchar ( 10 ) )" ,ECPGt_EOIT ,ECPGt_EORT );
69- #line 30 "char_array.pgc"
70-
71- if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
72- #line 30 "char_array.pgc"
73-
74- if (sqlca .sqlcode < 0 )sqlprint ();}
75- #line 30 "char_array.pgc"
76-
77- {ECPGdo (__LINE__ ,3 ,1 ,NULL ,0 ,ECPGst_normal ,"insert into strdbase values ( '' )" ,ECPGt_EOIT ,ECPGt_EORT );
66+ ECPGdebug (1 ,stderr );
67+ {ECPGconnect (__LINE__ ,3 ,"ecpg1_regression" ,NULL ,NULL ,NULL ,0 );
7868#line 31 "char_array.pgc"
7969
8070if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
@@ -83,16 +73,8 @@ if (sqlca.sqlwarn[0] == 'W') warn ( );
8373if (sqlca .sqlcode < 0 )sqlprint ();}
8474#line 31 "char_array.pgc"
8575
86- {ECPGdo (__LINE__ ,3 ,1 ,NULL ,0 ,ECPGst_normal ,"insert into strdbase values ( 'AB' )" ,ECPGt_EOIT ,ECPGt_EORT );
87- #line 32 "char_array.pgc"
88-
89- if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
90- #line 32 "char_array.pgc"
91-
92- if (sqlca .sqlcode < 0 )sqlprint ();}
93- #line 32 "char_array.pgc"
9476
95- {ECPGdo (__LINE__ ,3 ,1 ,NULL ,0 ,ECPGst_normal ,"insert into strdbasevalues ( 'ABCD' )" ,ECPGt_EOIT ,ECPGt_EORT );
77+ {ECPGdo (__LINE__ ,3 ,1 ,NULL ,0 ,ECPGst_normal ,"create table strdbase( strval varchar ( 10 ) )" ,ECPGt_EOIT ,ECPGt_EORT );
9678#line 33 "char_array.pgc"
9779
9880if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
@@ -101,7 +83,7 @@ if (sqlca.sqlwarn[0] == 'W') warn ( );
10183if (sqlca .sqlcode < 0 )sqlprint ();}
10284#line 33 "char_array.pgc"
10385
104- {ECPGdo (__LINE__ ,3 ,1 ,NULL ,0 ,ECPGst_normal ,"insert into strdbase values ( 'ABCDE ' )" ,ECPGt_EOIT ,ECPGt_EORT );
86+ {ECPGdo (__LINE__ ,3 ,1 ,NULL ,0 ,ECPGst_normal ,"insert into strdbase values ( '' )" ,ECPGt_EOIT ,ECPGt_EORT );
10587#line 34 "char_array.pgc"
10688
10789if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
@@ -110,7 +92,7 @@ if (sqlca.sqlwarn[0] == 'W') warn ( );
11092if (sqlca .sqlcode < 0 )sqlprint ();}
11193#line 34 "char_array.pgc"
11294
113- {ECPGdo (__LINE__ ,3 ,1 ,NULL ,0 ,ECPGst_normal ,"insert into strdbase values ( 'ABCDEF ' )" ,ECPGt_EOIT ,ECPGt_EORT );
95+ {ECPGdo (__LINE__ ,3 ,1 ,NULL ,0 ,ECPGst_normal ,"insert into strdbase values ( 'AB ' )" ,ECPGt_EOIT ,ECPGt_EORT );
11496#line 35 "char_array.pgc"
11597
11698if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
@@ -119,7 +101,7 @@ if (sqlca.sqlwarn[0] == 'W') warn ( );
119101if (sqlca .sqlcode < 0 )sqlprint ();}
120102#line 35 "char_array.pgc"
121103
122- {ECPGdo (__LINE__ ,3 ,1 ,NULL ,0 ,ECPGst_normal ,"insert into strdbase values ( 'ABCDEFGHIJ ' )" ,ECPGt_EOIT ,ECPGt_EORT );
104+ {ECPGdo (__LINE__ ,3 ,1 ,NULL ,0 ,ECPGst_normal ,"insert into strdbase values ( 'ABCD ' )" ,ECPGt_EOIT ,ECPGt_EORT );
123105#line 36 "char_array.pgc"
124106
125107if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
@@ -128,11 +110,25 @@ if (sqlca.sqlwarn[0] == 'W') warn ( );
128110if (sqlca .sqlcode < 0 )sqlprint ();}
129111#line 36 "char_array.pgc"
130112
113+ {ECPGdo (__LINE__ ,3 ,1 ,NULL ,0 ,ECPGst_normal ,"insert into strdbase values ( 'ABCDE' )" ,ECPGt_EOIT ,ECPGt_EORT );
114+ #line 37 "char_array.pgc"
131115
132- /* declare C cursor for select strval , strval from strdbase */
116+ if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
117+ #line 37 "char_array.pgc"
118+
119+ if (sqlca .sqlcode < 0 )sqlprint ();}
120+ #line 37 "char_array.pgc"
121+
122+ {ECPGdo (__LINE__ ,3 ,1 ,NULL ,0 ,ECPGst_normal ,"insert into strdbase values ( 'ABCDEF' )" ,ECPGt_EOIT ,ECPGt_EORT );
133123#line 38 "char_array.pgc"
134124
135- {ECPGdo (__LINE__ ,3 ,1 ,NULL ,0 ,ECPGst_normal ,"declare C cursor for select strval , strval from strdbase" ,ECPGt_EOIT ,ECPGt_EORT );
125+ if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
126+ #line 38 "char_array.pgc"
127+
128+ if (sqlca .sqlcode < 0 )sqlprint ();}
129+ #line 38 "char_array.pgc"
130+
131+ {ECPGdo (__LINE__ ,3 ,1 ,NULL ,0 ,ECPGst_normal ,"insert into strdbase values ( 'ABCDEFGHIJ' )" ,ECPGt_EOIT ,ECPGt_EORT );
136132#line 39 "char_array.pgc"
137133
138134if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
@@ -142,9 +138,22 @@ if (sqlca.sqlcode < 0) sqlprint();}
142138#line 39 "char_array.pgc"
143139
144140
145- /*exec sql whenever not found break ; */
141+ /*declare C cursor for select strval , strval from strdbase */
146142#line 41 "char_array.pgc"
147143
144+ {ECPGdo (__LINE__ ,3 ,1 ,NULL ,0 ,ECPGst_normal ,"declare C cursor for select strval , strval from strdbase" ,ECPGt_EOIT ,ECPGt_EORT );
145+ #line 42 "char_array.pgc"
146+
147+ if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
148+ #line 42 "char_array.pgc"
149+
150+ if (sqlca .sqlcode < 0 )sqlprint ();}
151+ #line 42 "char_array.pgc"
152+
153+
154+ /* exec sql whenever not found break ; */
155+ #line 44 "char_array.pgc"
156+
148157
149158printf ("Full Str. : Short Ind.\n" );
150159while (1 ) {
@@ -155,65 +164,60 @@ if (sqlca.sqlcode < 0) sqlprint();}
155164ECPGt_short ,& (bigstr_ind ),(long )1 ,(long )1 ,sizeof (short ),
156165ECPGt_char ,(shortstr ),(long )5 ,(long )1 ,(5 )* sizeof (char ),
157166ECPGt_short ,& (shstr_ind ),(long )1 ,(long )1 ,sizeof (short ),ECPGt_EORT );
158- #line 47 "char_array.pgc"
167+ #line 50 "char_array.pgc"
159168
160169if (sqlca .sqlcode == ECPG_NOT_FOUND )break ;
161- #line 47 "char_array.pgc"
170+ #line 50 "char_array.pgc"
162171
163172if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
164- #line 47 "char_array.pgc"
173+ #line 50 "char_array.pgc"
165174
166175if (sqlca .sqlcode < 0 )sqlprint ();}
167- #line 47 "char_array.pgc"
176+ #line 50 "char_array.pgc"
168177
169178printf ("\"%s\": \"%s\" %d\n" ,bigstr ,shortstr ,shstr_ind );
170179 }
171180
172181 {ECPGdo (__LINE__ ,3 ,1 ,NULL ,0 ,ECPGst_normal ,"close cstr" ,ECPGt_EOIT ,ECPGt_EORT );
173- #line 51 "char_array.pgc"
182+ #line 54 "char_array.pgc"
174183
175184if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
176- #line 51 "char_array.pgc"
185+ #line 54 "char_array.pgc"
177186
178187if (sqlca .sqlcode < 0 )sqlprint ();}
179- #line 51 "char_array.pgc"
188+ #line 54 "char_array.pgc"
180189
181190 {ECPGdo (__LINE__ ,3 ,1 ,NULL ,0 ,ECPGst_normal ,"drop table strdbase" ,ECPGt_EOIT ,ECPGt_EORT );
182- #line 52 "char_array.pgc"
191+ #line 55 "char_array.pgc"
183192
184193if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
185- #line 52 "char_array.pgc"
194+ #line 55 "char_array.pgc"
186195
187196if (sqlca .sqlcode < 0 )sqlprint ();}
188- #line 52 "char_array.pgc"
197+ #line 55 "char_array.pgc"
189198
190199
191200printf ("\nGOOD-BYE!!\n\n" );
192201
193202 {ECPGtrans (__LINE__ ,NULL ,"commit work" );
194- #line 56 "char_array.pgc"
203+ #line 59 "char_array.pgc"
195204
196205if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
197- #line 56 "char_array.pgc"
206+ #line 59 "char_array.pgc"
198207
199208if (sqlca .sqlcode < 0 )sqlprint ();}
200- #line 56 "char_array.pgc"
209+ #line 59 "char_array.pgc"
201210
202211
203212 {ECPGdisconnect (__LINE__ ,"ALL" );
204- #line 58 "char_array.pgc"
213+ #line 61 "char_array.pgc"
205214
206215if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
207- #line 58 "char_array.pgc"
216+ #line 61 "char_array.pgc"
208217
209218if (sqlca .sqlcode < 0 )sqlprint ();}
210- #line 58 "char_array.pgc"
219+ #line 61 "char_array.pgc"
211220
212221
213222return 0 ;
214223}
215-
216- static void warn (void )
217- {
218- fprintf (stderr ,"Warning: At least one column was truncated\n" );
219- }