10 #line 2 "pro_qtrly.ec"
11 #line 1 "/opt/informix/incl/esql/sqlca.h"
85 #define SQLNOTFOUND 100
89 #define sqlca ifmxsqlca
101 extern int4 * ifx_sqlcode(
void);
102 extern struct sqlca_s * ifx_sqlca(
void);
104 #define SQLCODE (*(ifx_sqlcode()))
105 #define SQLSTATE ((char *)(ifx_sqlstate()))
106 #define sqlca (*(ifx_sqlca()))
115 #line 103 "/opt/informix/incl/esql/sqlca.h"
116 #line 3 "pro_qtrly.ec"
121 #line 4 "pro_qtrly.ec"
122 #line 5 "pro_qtrly.ec"
150 #line 33 "pro_qtrly.ec"
185 int i,jtotal,
k,atime;
193 #line 72 "pro_qtrly.ec"
194 #line 73 "pro_qtrly.ec"
212 #line 89 "pro_qtrly.ec"
226 strcpy(stat.hb5,hb5);
238 etime=end_date.
hour*10000+
244 btime=begin_date.
hour*10000+
274 #line 131 "pro_qtrly.ec"
276 #line 147 "pro_qtrly.ec"
277 static const char *sqlcmdtxt[] =
278 #line 147 "pro_qtrly.ec"
280 #line 147 "pro_qtrly.ec"
281 "select * from proqtrly where id = ? and pe1 = ? and pe2 = ? and dur = ? and t = ? and s = ? and e = ? and p = ? and cal_yr = ? and mon = ? and zday = ?",
284 #line 147 "pro_qtrly.ec"
285 static ifx_cursor_t _SQ0 = {0};
286 static ifx_sqlvar_t _sqibind[] =
288 { 100, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
289 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
290 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
291 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
292 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
293 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
294 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
295 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
296 { 102,
sizeof(
year), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
297 { 102,
sizeof(
month), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
298 { 102,
sizeof(
day), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
299 #line 147 "pro_qtrly.ec"
301 static ifx_sqlvar_t _sqobind[] =
303 { 100, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
304 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
305 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
306 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
307 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
308 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
309 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
310 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
311 { 102,
sizeof((
qtrly_rec).cal_yr), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
312 { 102,
sizeof((
qtrly_rec).
mon), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
313 { 102,
sizeof((
qtrly_rec).zday), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
314 { 105,
sizeof((
qtrly_rec).z00), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
315 { 105,
sizeof((
qtrly_rec).z06), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
316 { 105,
sizeof((
qtrly_rec).z12), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
317 { 105,
sizeof((
qtrly_rec).z18), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
318 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
319 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
320 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
321 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
322 #line 147 "pro_qtrly.ec"
324 #line 147 "pro_qtrly.ec"
325 _sqibind[0].sqldata = stat.hb5;
326 #line 147 "pro_qtrly.ec"
327 _sqibind[1].sqldata = stat.pe1;
328 #line 147 "pro_qtrly.ec"
329 _sqibind[2].sqldata = stat.pe2;
330 #line 147 "pro_qtrly.ec"
331 _sqibind[3].sqldata = stat.dur;
332 #line 147 "pro_qtrly.ec"
333 _sqibind[4].sqldata = stat.t;
334 #line 147 "pro_qtrly.ec"
335 _sqibind[5].sqldata = stat.s;
336 #line 147 "pro_qtrly.ec"
337 _sqibind[6].sqldata = stat.e;
338 #line 147 "pro_qtrly.ec"
339 _sqibind[7].sqldata = stat.p;
340 #line 147 "pro_qtrly.ec"
341 _sqibind[8].sqldata = (
char *) &
year;
342 #line 147 "pro_qtrly.ec"
343 _sqibind[9].sqldata = (
char *) &
month;
344 #line 147 "pro_qtrly.ec"
345 _sqibind[10].sqldata = (
char *) &
day;
346 #line 147 "pro_qtrly.ec"
348 #line 147 "pro_qtrly.ec"
350 #line 147 "pro_qtrly.ec"
352 #line 147 "pro_qtrly.ec"
354 #line 147 "pro_qtrly.ec"
356 #line 147 "pro_qtrly.ec"
358 #line 147 "pro_qtrly.ec"
360 #line 147 "pro_qtrly.ec"
362 #line 147 "pro_qtrly.ec"
363 _sqobind[8].sqldata = (
char *) &(
qtrly_rec).cal_yr;
364 #line 147 "pro_qtrly.ec"
365 _sqobind[9].sqldata = (
char *) &(
qtrly_rec).mon;
366 #line 147 "pro_qtrly.ec"
367 _sqobind[10].sqldata = (
char *) &(
qtrly_rec).zday;
368 #line 147 "pro_qtrly.ec"
369 _sqobind[11].sqldata = (
char *) &(
qtrly_rec).z00;
370 #line 147 "pro_qtrly.ec"
371 _sqobind[12].sqldata = (
char *) &(
qtrly_rec).z06;
372 #line 147 "pro_qtrly.ec"
373 _sqobind[13].sqldata = (
char *) &(
qtrly_rec).z12;
374 #line 147 "pro_qtrly.ec"
375 _sqobind[14].sqldata = (
char *) &(
qtrly_rec).z18;
376 #line 147 "pro_qtrly.ec"
378 #line 147 "pro_qtrly.ec"
380 #line 147 "pro_qtrly.ec"
382 #line 147 "pro_qtrly.ec"
384 #line 147 "pro_qtrly.ec"
385 sqli_slct(ESQLINTVERSION, &_SQ0,sqlcmdtxt,11,_sqibind,19,_sqobind,0,(ifx_literal_t *)0,(ifx_namelist_t *)0,0);
386 #line 147 "pro_qtrly.ec"
415 for(hh=0;hh<qlen;hh++)
525 #line 283 "pro_qtrly.ec"
struct data_rec data_record
struct sqlca_s ifx_sqlca_t
struct pro_qrtly_rec qtrly_rec
int pro_qtrly(char *hb5, char *parm, struct stim begin_date, struct stim end_date, char *qual, struct stn_values *stn_values)
struct sqlca_s::sqlcaw_s sqlwarn