3 static const char _Cn2[] =
"loop2";
4 static const char _Cn1[] =
"loop1";
5 #line 1 "get_fcst_values.ec"
18 char *caller=
"get_fcst_values: ";
27 #line 19 "get_fcst_values.ec"
28 #line 20 "get_fcst_values.ec"
42 int b_year, b_month, b_day, b_hour, b_min, b_sec;
43 int e_year, e_month, e_day, e_hour, e_min, e_sec;
49 #line 37 "get_fcst_values.ec"
53 strncpy(pe1,shef+0,1);
55 strncpy(pe2,shef+1,1);
57 strncpy(dur,shef+2,1);
71 b_year=gm->tm_year+1900;
77 b_time=b_hour*10000+b_min*100+b_sec;
80 e_year=gm->tm_year+1900;
86 e_time=e_hour*10000+e_min*100+e_sec;
89 "%d = %02d/%02d/%04d %02d:%02d\n"
90 "%d = %02d/%02d/%04d %02d:%02d\n",
92 abeg,b_month,b_day,b_year,b_hour,b_min,
93 aend,e_month,e_day,e_year,e_hour,e_min);
106 #line 84 "get_fcst_values.ec"
108 #line 90 "get_fcst_values.ec"
109 static const char *sqlcmdtxt[] =
110 #line 90 "get_fcst_values.ec"
112 #line 90 "get_fcst_values.ec"
113 "select ccal_yr , cmon , czday , ctime from fval where id = ? and pe1 = ? and pe2 = ? and dur = ? and t = ? and s = ? and e = ? and p = ? order by ccal_yr desc , cmon desc , czday desc , ctime desc",
116 #line 90 "get_fcst_values.ec"
117 static ifx_sqlvar_t _sqibind[] =
119 { 100, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
120 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
121 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
122 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
123 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
124 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
125 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
126 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
127 #line 90 "get_fcst_values.ec"
129 static ifx_sqlda_t _SD0 = { 8, _sqibind, {0}, 8, 0 };
130 #line 90 "get_fcst_values.ec"
131 _sqibind[0].sqldata = id;
132 #line 90 "get_fcst_values.ec"
133 _sqibind[1].sqldata = pe1;
134 #line 90 "get_fcst_values.ec"
135 _sqibind[2].sqldata = pe2;
136 #line 90 "get_fcst_values.ec"
137 _sqibind[3].sqldata = dur;
138 #line 90 "get_fcst_values.ec"
139 _sqibind[4].sqldata = t;
140 #line 90 "get_fcst_values.ec"
141 _sqibind[5].sqldata = s;
142 #line 90 "get_fcst_values.ec"
143 _sqibind[6].sqldata = e;
144 #line 90 "get_fcst_values.ec"
145 _sqibind[7].sqldata = p;
146 #line 90 "get_fcst_values.ec"
147 sqli_curs_decl_stat(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn1, 512),
_Cn1, sqlcmdtxt, &_SD0, (ifx_sqlda_t *)0, 0, (ifx_literal_t *)0, (ifx_namelist_t *)0, 2, 0, 0);
148 #line 90 "get_fcst_values.ec"
155 #line 93 "get_fcst_values.ec"
157 #line 93 "get_fcst_values.ec"
158 sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn1, 768), (ifx_sqlda_t *)0, (
char *)0, (
struct value *)0, 0, 0);
159 #line 93 "get_fcst_values.ec"
166 #line 96 "get_fcst_values.ec"
168 #line 96 "get_fcst_values.ec"
169 static ifx_sqlvar_t _sqobind[] =
171 { 102,
sizeof(ccal_yr), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
172 { 102,
sizeof(cmon), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
173 { 102,
sizeof(czday), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
174 { 102,
sizeof(ctime), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
175 #line 96 "get_fcst_values.ec"
177 static ifx_sqlda_t _SD0 = { 4, _sqobind, {0}, 4, 0 };
178 static _FetchSpec _FS1 = { 0, 1, 0 };
179 #line 96 "get_fcst_values.ec"
180 _sqobind[0].sqldata = (
char *) &ccal_yr;
181 #line 96 "get_fcst_values.ec"
182 _sqobind[1].sqldata = (
char *) &cmon;
183 #line 96 "get_fcst_values.ec"
184 _sqobind[2].sqldata = (
char *) &czday;
185 #line 96 "get_fcst_values.ec"
186 _sqobind[3].sqldata = (
char *) &ctime;
187 sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn1, 768), (ifx_sqlda_t *)0, &_SD0, (
char *)0, &_FS1);
188 #line 96 "get_fcst_values.ec"
203 #line 99 "get_fcst_values.ec"
205 #line 107 "get_fcst_values.ec"
206 static const char *sqlcmdtxt[] =
207 #line 107 "get_fcst_values.ec"
209 #line 107 "get_fcst_values.ec"
210 "select vcal_yr , vmon , vzday , vtime , value from fval where id = ? and pe1 = ? and pe2 = ? and dur = ? and t = ? and s = ? and e = ? and p = ? and ccal_yr = ? and cmon = ? and czday = ? and ctime = ? order by vcal_yr , vmon , vzday , vtime",
213 #line 107 "get_fcst_values.ec"
214 static ifx_sqlvar_t _sqibind[] =
216 { 100, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
217 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
218 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
219 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
220 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
221 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
222 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
223 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
224 { 102,
sizeof(ccal_yr), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
225 { 102,
sizeof(cmon), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
226 { 102,
sizeof(czday), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
227 { 102,
sizeof(ctime), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
228 #line 107 "get_fcst_values.ec"
230 static ifx_sqlda_t _SD0 = { 12, _sqibind, {0}, 12, 0 };
231 #line 107 "get_fcst_values.ec"
232 _sqibind[0].sqldata = id;
233 #line 107 "get_fcst_values.ec"
234 _sqibind[1].sqldata = pe1;
235 #line 107 "get_fcst_values.ec"
236 _sqibind[2].sqldata = pe2;
237 #line 107 "get_fcst_values.ec"
238 _sqibind[3].sqldata = dur;
239 #line 107 "get_fcst_values.ec"
240 _sqibind[4].sqldata = t;
241 #line 107 "get_fcst_values.ec"
242 _sqibind[5].sqldata = s;
243 #line 107 "get_fcst_values.ec"
244 _sqibind[6].sqldata = e;
245 #line 107 "get_fcst_values.ec"
246 _sqibind[7].sqldata = p;
247 #line 107 "get_fcst_values.ec"
248 _sqibind[8].sqldata = (
char *) &ccal_yr;
249 #line 107 "get_fcst_values.ec"
250 _sqibind[9].sqldata = (
char *) &cmon;
251 #line 107 "get_fcst_values.ec"
252 _sqibind[10].sqldata = (
char *) &czday;
253 #line 107 "get_fcst_values.ec"
254 _sqibind[11].sqldata = (
char *) &ctime;
255 #line 107 "get_fcst_values.ec"
256 sqli_curs_decl_stat(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn2, 512),
_Cn2, sqlcmdtxt, &_SD0, (ifx_sqlda_t *)0, 0, (ifx_literal_t *)0, (ifx_namelist_t *)0, 2, 0, 0);
257 #line 107 "get_fcst_values.ec"
262 #line 108 "get_fcst_values.ec"
264 #line 108 "get_fcst_values.ec"
265 sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn2, 768), (ifx_sqlda_t *)0, (
char *)0, (
struct value *)0, 0, 0);
266 #line 108 "get_fcst_values.ec"
276 #line 114 "get_fcst_values.ec"
278 #line 114 "get_fcst_values.ec"
279 static ifx_sqlvar_t _sqobind[] =
281 { 102,
sizeof(vcal_yr), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
282 { 102,
sizeof(vmon), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
283 { 102,
sizeof(vzday), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
284 { 102,
sizeof(vtime), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
285 { 104,
sizeof(
value), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
286 #line 114 "get_fcst_values.ec"
288 static ifx_sqlda_t _SD0 = { 5, _sqobind, {0}, 5, 0 };
289 static _FetchSpec _FS1 = { 0, 1, 0 };
290 #line 114 "get_fcst_values.ec"
291 _sqobind[0].sqldata = (
char *) &vcal_yr;
292 #line 114 "get_fcst_values.ec"
293 _sqobind[1].sqldata = (
char *) &vmon;
294 #line 114 "get_fcst_values.ec"
295 _sqobind[2].sqldata = (
char *) &vzday;
296 #line 114 "get_fcst_values.ec"
297 _sqobind[3].sqldata = (
char *) &vtime;
298 #line 114 "get_fcst_values.ec"
299 _sqobind[4].sqldata = (
char *) &
value;
300 sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn2, 768), (ifx_sqlda_t *)0, &_SD0, (
char *)0, &_FS1);
301 #line 114 "get_fcst_values.ec"
306 gm->tm_year=vcal_yr-1900;
309 gm->tm_hour=vtime/10000;
310 gm->tm_min=(vtime%1000)/100;
312 acur=mktime(gm)-28800L;
313 if(acur <= abeg && acur >= aend)
330 printf(
"%s %s%s%s%s%s: %4d fcsts.\n",
id,pe1,pe2,dur,t,s,nval);
335 #line 145 "get_fcst_values.ec"
int get_fcst_values(char *stn_id, char *shef, time_t abeg, time_t aend, struct stn_values *stn_values)
printf("fbuf is %s\n", fbuf)