22
22
#line 5 "char_array.pgc"
23
23
24
24
25
- static void warn ();
25
+ static void warn (void )
26
+ {
27
+ fprintf (stderr ,"Warning: At least one column was truncated\n" );
28
+ }
26
29
27
30
/* Compatible handling of char array to retrieve varchar field to char array
28
31
should be fixed-length, blank-padded, then null-terminated.
29
32
Conforms to the ANSI Fixed Character type. */
30
33
31
34
int main () {
32
35
33
- ECPGdebug (1 ,stderr );
34
- {ECPGconnect (__LINE__ ,3 ,"ecpg1_regression" ,NULL ,NULL ,NULL ,0 ); }
35
- #line 16 "char_array.pgc"
36
-
37
-
38
36
/* exec sql whenever sql_warning do warn ( ) ; */
39
37
#line 18 "char_array.pgc"
40
38
@@ -65,16 +63,8 @@ int main() {
65
63
#line 28 "char_array.pgc"
66
64
67
65
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 );
78
68
#line 31 "char_array.pgc"
79
69
80
70
if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
@@ -83,16 +73,8 @@ if (sqlca.sqlwarn[0] == 'W') warn ( );
83
73
if (sqlca .sqlcode < 0 )sqlprint ();}
84
74
#line 31 "char_array.pgc"
85
75
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"
94
76
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 );
96
78
#line 33 "char_array.pgc"
97
79
98
80
if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
@@ -101,7 +83,7 @@ if (sqlca.sqlwarn[0] == 'W') warn ( );
101
83
if (sqlca .sqlcode < 0 )sqlprint ();}
102
84
#line 33 "char_array.pgc"
103
85
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 );
105
87
#line 34 "char_array.pgc"
106
88
107
89
if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
@@ -110,7 +92,7 @@ if (sqlca.sqlwarn[0] == 'W') warn ( );
110
92
if (sqlca .sqlcode < 0 )sqlprint ();}
111
93
#line 34 "char_array.pgc"
112
94
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 );
114
96
#line 35 "char_array.pgc"
115
97
116
98
if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
@@ -119,7 +101,7 @@ if (sqlca.sqlwarn[0] == 'W') warn ( );
119
101
if (sqlca .sqlcode < 0 )sqlprint ();}
120
102
#line 35 "char_array.pgc"
121
103
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 );
123
105
#line 36 "char_array.pgc"
124
106
125
107
if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
@@ -128,11 +110,25 @@ if (sqlca.sqlwarn[0] == 'W') warn ( );
128
110
if (sqlca .sqlcode < 0 )sqlprint ();}
129
111
#line 36 "char_array.pgc"
130
112
113
+ {ECPGdo (__LINE__ ,3 ,1 ,NULL ,0 ,ECPGst_normal ,"insert into strdbase values ( 'ABCDE' )" ,ECPGt_EOIT ,ECPGt_EORT );
114
+ #line 37 "char_array.pgc"
131
115
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 );
133
123
#line 38 "char_array.pgc"
134
124
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 );
136
132
#line 39 "char_array.pgc"
137
133
138
134
if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
@@ -142,9 +138,22 @@ if (sqlca.sqlcode < 0) sqlprint();}
142
138
#line 39 "char_array.pgc"
143
139
144
140
145
- /*exec sql whenever not found break ; */
141
+ /*declare C cursor for select strval , strval from strdbase */
146
142
#line 41 "char_array.pgc"
147
143
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
+
148
157
149
158
printf ("Full Str. : Short Ind.\n" );
150
159
while (1 ) {
@@ -155,65 +164,60 @@ if (sqlca.sqlcode < 0) sqlprint();}
155
164
ECPGt_short ,& (bigstr_ind ),(long )1 ,(long )1 ,sizeof (short ),
156
165
ECPGt_char ,(shortstr ),(long )5 ,(long )1 ,(5 )* sizeof (char ),
157
166
ECPGt_short ,& (shstr_ind ),(long )1 ,(long )1 ,sizeof (short ),ECPGt_EORT );
158
- #line 47 "char_array.pgc"
167
+ #line 50 "char_array.pgc"
159
168
160
169
if (sqlca .sqlcode == ECPG_NOT_FOUND )break ;
161
- #line 47 "char_array.pgc"
170
+ #line 50 "char_array.pgc"
162
171
163
172
if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
164
- #line 47 "char_array.pgc"
173
+ #line 50 "char_array.pgc"
165
174
166
175
if (sqlca .sqlcode < 0 )sqlprint ();}
167
- #line 47 "char_array.pgc"
176
+ #line 50 "char_array.pgc"
168
177
169
178
printf ("\"%s\": \"%s\" %d\n" ,bigstr ,shortstr ,shstr_ind );
170
179
}
171
180
172
181
{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"
174
183
175
184
if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
176
- #line 51 "char_array.pgc"
185
+ #line 54 "char_array.pgc"
177
186
178
187
if (sqlca .sqlcode < 0 )sqlprint ();}
179
- #line 51 "char_array.pgc"
188
+ #line 54 "char_array.pgc"
180
189
181
190
{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"
183
192
184
193
if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
185
- #line 52 "char_array.pgc"
194
+ #line 55 "char_array.pgc"
186
195
187
196
if (sqlca .sqlcode < 0 )sqlprint ();}
188
- #line 52 "char_array.pgc"
197
+ #line 55 "char_array.pgc"
189
198
190
199
191
200
printf ("\nGOOD-BYE!!\n\n" );
192
201
193
202
{ECPGtrans (__LINE__ ,NULL ,"commit work" );
194
- #line 56 "char_array.pgc"
203
+ #line 59 "char_array.pgc"
195
204
196
205
if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
197
- #line 56 "char_array.pgc"
206
+ #line 59 "char_array.pgc"
198
207
199
208
if (sqlca .sqlcode < 0 )sqlprint ();}
200
- #line 56 "char_array.pgc"
209
+ #line 59 "char_array.pgc"
201
210
202
211
203
212
{ECPGdisconnect (__LINE__ ,"ALL" );
204
- #line 58 "char_array.pgc"
213
+ #line 61 "char_array.pgc"
205
214
206
215
if (sqlca .sqlwarn [0 ]== 'W' )warn ( );
207
- #line 58 "char_array.pgc"
216
+ #line 61 "char_array.pgc"
208
217
209
218
if (sqlca .sqlcode < 0 )sqlprint ();}
210
- #line 58 "char_array.pgc"
219
+ #line 61 "char_array.pgc"
211
220
212
221
213
222
return 0 ;
214
223
}
215
-
216
- static void warn (void )
217
- {
218
- fprintf (stderr ,"Warning: At least one column was truncated\n" );
219
- }