3 static const char _Cn7[] =
"get_val";
4 static const char _Cn6[] =
"get_fval";
5 static const char _Cn5[] =
"get_fval18";
6 static const char _Cn4[] =
"loop_seg_ts";
7 static const char _Cn3[] =
"loop_seg";
8 static const char _Cn2[] =
"loop_fg";
9 static const char _Cn1[] =
"qfg";
10 #line 1 "rsel_load.ec"
17 #include <sys/types.h>
35 extern struct fgroup_info
fg[20];
36 extern struct time_cntl
tc;
47 int get_fcst_err,loop_fg_err,loop_seg_err,loop_seg_ts_err;
53 #line 40 "rsel_load.ec"
54 #line 41 "rsel_load.ec"
55 char fgroupid[9], segid[9], wfo_resp[4];
56 char ts_id[9], ts_dt[5],
id[6];
57 char pe1[2], pe2[2], dur[2], t[2], s[2], e[2], p[2];
61 int ccal_yr, cmon, czday, ctime;
62 int vcal_yr, vmon, vzday, vhour, vtime;
68 #line 51 "rsel_load.ec"
74 #line 53 "rsel_load.ec"
76 #line 53 "rsel_load.ec"
77 static const char *sqlcmdtxt[] =
78 #line 53 "rsel_load.ec"
80 #line 53 "rsel_load.ec"
81 "set isolation to dirty read",
84 #line 53 "rsel_load.ec"
85 static ifx_statement_t _SQ0 = {0};
86 #line 53 "rsel_load.ec"
87 sqli_stmt(ESQLINTVERSION, &_SQ0, sqlcmdtxt, 0, (ifx_sqlvar_t *)0, (
struct value *)0, (ifx_literal_t *)0, (ifx_namelist_t *)0, (ifx_cursor_t *)0, -1, 0, 0);
88 #line 53 "rsel_load.ec"
135 sprintf(query,
"select fgroupid "
138 sprintf(query,
"select fgroupid "
140 "where fgroupid matches \"%s\"",
146 #line 107 "rsel_load.ec"
148 #line 107 "rsel_load.ec"
149 sqli_prep(ESQLINTVERSION,
_Cn1, query,(ifx_literal_t *)0, (ifx_namelist_t *)0, -1, 0, 0 );
150 #line 107 "rsel_load.ec"
163 #line 116 "rsel_load.ec"
165 #line 116 "rsel_load.ec"
166 sqli_curs_decl_dynm(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn2, 512),
_Cn2, sqli_curs_locate(ESQLINTVERSION,
_Cn1, 513), 0, 0);
167 #line 116 "rsel_load.ec"
179 #line 124 "rsel_load.ec"
181 #line 124 "rsel_load.ec"
182 sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn2, 768), (ifx_sqlda_t *)0, (
char *)0, (
struct value *)0, 0, 0);
183 #line 124 "rsel_load.ec"
201 #line 138 "rsel_load.ec"
203 #line 138 "rsel_load.ec"
204 static ifx_sqlvar_t _sqobind[] =
206 { 100, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
207 #line 138 "rsel_load.ec"
209 static ifx_sqlda_t _SD0 = { 1, _sqobind, {0}, 1, 0 };
210 static _FetchSpec _FS1 = { 0, 1, 0 };
211 #line 138 "rsel_load.ec"
212 _sqobind[0].sqldata = fgroupid;
213 sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn2, 768), (ifx_sqlda_t *)0, &_SD0, (
char *)0, &_FS1);
214 #line 138 "rsel_load.ec"
225 #line 142 "rsel_load.ec"
227 #line 145 "rsel_load.ec"
228 static const char *sqlcmdtxt[] =
229 #line 145 "rsel_load.ec"
231 #line 145 "rsel_load.ec"
232 "select segid , segnum from fgroup_seg where fgroupid = ? order by segnum",
235 #line 145 "rsel_load.ec"
236 static ifx_sqlvar_t _sqibind[] =
238 { 100, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
239 #line 145 "rsel_load.ec"
241 static ifx_sqlda_t _SD0 = { 1, _sqibind, {0}, 1, 0 };
242 #line 145 "rsel_load.ec"
243 _sqibind[0].sqldata = fgroupid;
244 #line 145 "rsel_load.ec"
245 sqli_curs_decl_stat(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn3, 512),
_Cn3, sqlcmdtxt, &_SD0, (ifx_sqlda_t *)0, 0, (ifx_literal_t *)0, (ifx_namelist_t *)0, 2, 0, 0);
246 #line 145 "rsel_load.ec"
258 #line 153 "rsel_load.ec"
260 #line 153 "rsel_load.ec"
261 sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn3, 768), (ifx_sqlda_t *)0, (
char *)0, (
struct value *)0, 0, 0);
262 #line 153 "rsel_load.ec"
280 #line 167 "rsel_load.ec"
282 #line 167 "rsel_load.ec"
283 static ifx_sqlvar_t _sqobind[] =
285 { 100, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
286 { 102,
sizeof(segnum), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
287 #line 167 "rsel_load.ec"
289 static ifx_sqlda_t _SD0 = { 2, _sqobind, {0}, 2, 0 };
290 static _FetchSpec _FS1 = { 0, 1, 0 };
291 #line 167 "rsel_load.ec"
292 _sqobind[0].sqldata = segid;
293 #line 167 "rsel_load.ec"
294 _sqobind[1].sqldata = (
char *) &segnum;
295 sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn3, 768), (ifx_sqlda_t *)0, &_SD0, (
char *)0, &_FS1);
296 #line 167 "rsel_load.ec"
316 #line 171 "rsel_load.ec"
318 #line 183 "rsel_load.ec"
319 static const char *sqlcmdtxt[] =
320 #line 183 "rsel_load.ec"
322 #line 183 "rsel_load.ec"
323 "select unique rfs_post , ts_id , ts_dt , id , pe1 , pe2 , dur , t , e , p , wfo_resp from seg_ts where segid = ? and pe1 = \"H\" and pe2 = \"Z\" and dur = \"I\" and t = \"F\" and e = \"Z\" and p = \"Z\"",
326 #line 183 "rsel_load.ec"
327 static ifx_sqlvar_t _sqibind[] =
329 { 100, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
330 #line 183 "rsel_load.ec"
332 static ifx_sqlda_t _SD0 = { 1, _sqibind, {0}, 1, 0 };
333 #line 183 "rsel_load.ec"
334 _sqibind[0].sqldata = segid;
335 #line 183 "rsel_load.ec"
336 sqli_curs_decl_stat(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn4, 512),
_Cn4, sqlcmdtxt, &_SD0, (ifx_sqlda_t *)0, 0, (ifx_literal_t *)0, (ifx_namelist_t *)0, 2, 0, 0);
337 #line 183 "rsel_load.ec"
350 #line 192 "rsel_load.ec"
352 #line 192 "rsel_load.ec"
353 sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn4, 768), (ifx_sqlda_t *)0, (
char *)0, (
struct value *)0, 0, 0);
354 #line 192 "rsel_load.ec"
367 while(!loop_seg_ts_err)
375 #line 206 "rsel_load.ec"
377 #line 209 "rsel_load.ec"
378 static ifx_sqlvar_t _sqobind[] =
380 { 102,
sizeof(rfs_post), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
381 { 100, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
382 { 100, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
383 { 100, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
384 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
385 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
386 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
387 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
388 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
389 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
390 { 100, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
391 #line 209 "rsel_load.ec"
393 static ifx_sqlda_t _SD0 = { 11, _sqobind, {0}, 11, 0 };
394 static _FetchSpec _FS1 = { 0, 1, 0 };
395 #line 209 "rsel_load.ec"
396 _sqobind[0].sqldata = (
char *) &rfs_post;
397 #line 209 "rsel_load.ec"
398 _sqobind[1].sqldata = ts_id;
399 #line 209 "rsel_load.ec"
400 _sqobind[2].sqldata = ts_dt;
401 #line 209 "rsel_load.ec"
402 _sqobind[3].sqldata = id;
403 #line 209 "rsel_load.ec"
404 _sqobind[4].sqldata = pe1;
405 #line 209 "rsel_load.ec"
406 _sqobind[5].sqldata = pe2;
407 #line 209 "rsel_load.ec"
408 _sqobind[6].sqldata = dur;
409 #line 209 "rsel_load.ec"
410 _sqobind[7].sqldata = t;
411 #line 209 "rsel_load.ec"
412 _sqobind[8].sqldata = e;
413 #line 209 "rsel_load.ec"
414 _sqobind[9].sqldata = p;
415 #line 209 "rsel_load.ec"
416 _sqobind[10].sqldata = wfo_resp;
417 sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn4, 768), (ifx_sqlda_t *)0, &_SD0, (
char *)0, &_FS1);
418 #line 209 "rsel_load.ec"
428 strcpy(rsel[num_rsels].fgroupid,fgroupid);
429 strcpy(rsel[num_rsels].segid,segid);
430 strcpy(rsel[num_rsels].oper,
"SNOW-17");
431 strcpy(rsel[num_rsels].oper_name,
"n/a");
432 strcpy(rsel[num_rsels].ts_id,ts_id);
433 strcpy(rsel[num_rsels].ts_dt,ts_dt);
434 rsel[num_rsels].rfs_post=rfs_post;
435 strcpy(rsel[num_rsels].create,
"\0");
436 strcpy(rsel[num_rsels].
id,
id);
437 sprintf(rsel[num_rsels].shefpc,
438 "%s%s%s%s%s%s%s",pe1,pe2,dur,t,src,e,p);
439 strcpy(rsel[num_rsels].wfo_resp,wfo_resp);
443 rsel[num_rsels].per[
i].amt=9.999;
444 strcpy(rsel[num_rsels].per[
i].
qual,
"M");
446 strcpy(rsel[num_rsels].per[
i].src,src2);
448 strcpy(rsel[num_rsels].per[
i].src,src1);
459 &vcal_yr,&vmon,&vzday,&vhour);
475 #line 253 "rsel_load.ec"
477 #line 262 "rsel_load.ec"
478 static const char *sqlcmdtxt[] =
479 #line 262 "rsel_load.ec"
481 #line 262 "rsel_load.ec"
482 "select value , ccal_yr , cmon , czday , ctime from fval where id = ? and pe1 = ? and pe2 = ? and dur = ? and t = ? and s = ? and e = ? and p = ? and vcal_yr = ? and vmon = ? and vzday = ? and vtime = ? and value >= 0. order by ccal_yr desc , cmon desc , czday desc , ctime desc",
485 #line 262 "rsel_load.ec"
486 static ifx_sqlvar_t _sqibind[] =
488 { 100, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
489 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
490 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
491 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
492 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
493 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
494 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
495 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
496 { 102,
sizeof(vcal_yr), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
497 { 102,
sizeof(vmon), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
498 { 102,
sizeof(vzday), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
499 { 102,
sizeof(vtime), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
500 #line 262 "rsel_load.ec"
502 static ifx_sqlda_t _SD0 = { 12, _sqibind, {0}, 12, 0 };
503 #line 262 "rsel_load.ec"
504 _sqibind[0].sqldata = id;
505 #line 262 "rsel_load.ec"
506 _sqibind[1].sqldata = pe1;
507 #line 262 "rsel_load.ec"
508 _sqibind[2].sqldata = pe2;
509 #line 262 "rsel_load.ec"
510 _sqibind[3].sqldata = dur;
511 #line 262 "rsel_load.ec"
512 _sqibind[4].sqldata = t;
513 #line 262 "rsel_load.ec"
514 _sqibind[5].sqldata = src;
515 #line 262 "rsel_load.ec"
516 _sqibind[6].sqldata = e;
517 #line 262 "rsel_load.ec"
518 _sqibind[7].sqldata = p;
519 #line 262 "rsel_load.ec"
520 _sqibind[8].sqldata = (
char *) &vcal_yr;
521 #line 262 "rsel_load.ec"
522 _sqibind[9].sqldata = (
char *) &vmon;
523 #line 262 "rsel_load.ec"
524 _sqibind[10].sqldata = (
char *) &vzday;
525 #line 262 "rsel_load.ec"
526 _sqibind[11].sqldata = (
char *) &vtime;
527 #line 262 "rsel_load.ec"
528 sqli_curs_decl_stat(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn5, 512),
_Cn5, sqlcmdtxt, &_SD0, (ifx_sqlda_t *)0, 0, (ifx_literal_t *)0, (ifx_namelist_t *)0, 2, 0, 0);
529 #line 262 "rsel_load.ec"
534 #line 263 "rsel_load.ec"
536 #line 263 "rsel_load.ec"
537 sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn5, 768), (ifx_sqlda_t *)0, (
char *)0, (
struct value *)0, 0, 0);
538 #line 263 "rsel_load.ec"
544 #line 264 "rsel_load.ec"
546 #line 265 "rsel_load.ec"
547 static ifx_sqlvar_t _sqobind[] =
549 { 104,
sizeof(
value), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
550 { 102,
sizeof(ccal_yr), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
551 { 102,
sizeof(cmon), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
552 { 102,
sizeof(czday), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
553 { 102,
sizeof(ctime), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
554 #line 265 "rsel_load.ec"
556 static ifx_sqlda_t _SD0 = { 5, _sqobind, {0}, 5, 0 };
557 static _FetchSpec _FS1 = { 0, 1, 0 };
558 #line 265 "rsel_load.ec"
559 _sqobind[0].sqldata = (
char *) &
value;
560 #line 265 "rsel_load.ec"
561 _sqobind[1].sqldata = (
char *) &ccal_yr;
562 #line 265 "rsel_load.ec"
563 _sqobind[2].sqldata = (
char *) &cmon;
564 #line 265 "rsel_load.ec"
565 _sqobind[3].sqldata = (
char *) &czday;
566 #line 265 "rsel_load.ec"
567 _sqobind[4].sqldata = (
char *) &ctime;
568 sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn5, 768), (ifx_sqlda_t *)0, &_SD0, (
char *)0, &_FS1);
569 #line 265 "rsel_load.ec"
576 #line 267 "rsel_load.ec"
578 #line 268 "rsel_load.ec"
579 static ifx_sqlvar_t _sqobind[] =
581 { 104,
sizeof(
value), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
582 { 102,
sizeof(ccal_yr), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
583 { 102,
sizeof(cmon), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
584 { 102,
sizeof(czday), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
585 { 102,
sizeof(ctime), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
586 #line 268 "rsel_load.ec"
588 static ifx_sqlda_t _SD0 = { 5, _sqobind, {0}, 5, 0 };
589 static _FetchSpec _FS1 = { 0, 1, 0 };
590 #line 268 "rsel_load.ec"
591 _sqobind[0].sqldata = (
char *) &
value;
592 #line 268 "rsel_load.ec"
593 _sqobind[1].sqldata = (
char *) &ccal_yr;
594 #line 268 "rsel_load.ec"
595 _sqobind[2].sqldata = (
char *) &cmon;
596 #line 268 "rsel_load.ec"
597 _sqobind[3].sqldata = (
char *) &czday;
598 #line 268 "rsel_load.ec"
599 _sqobind[4].sqldata = (
char *) &ctime;
600 sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn5, 768), (ifx_sqlda_t *)0, &_SD0, (
char *)0, &_FS1);
601 #line 268 "rsel_load.ec"
605 printf(
"%s %s%s%s%s%s %02d/%02d @ %04d %8.1f "
606 "DC %02d/%02d/%02d @ %04d (%d)\n",
607 id,pe1,pe2,dur,t,src,vmon,vzday,vtime/100,
608 value,cmon,czday,ccal_yr%100,ctime/100,
613 if(!strlen(rsel[num_rsels].create))
615 sprintf(dc,
"%02d%02d%02d%02d%02d\0",
616 ccal_yr%100,cmon,czday,
617 ctime/10000,(ctime%10000)/100);
618 strcpy(rsel[num_rsels].create,dc);
622 rsel[num_rsels].per[
k].amt=9.999;
623 strcpy(rsel[num_rsels].per[
k].
qual,
"M");
629 rsel[num_rsels].per[
k].amt=
value;
630 strcpy(rsel[num_rsels].per[
k].
qual,
"Z");
637 #line 300 "rsel_load.ec"
639 #line 300 "rsel_load.ec"
640 sqli_curs_close(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn5, 768));
641 #line 300 "rsel_load.ec"
646 #line 300 "rsel_load.ec"
648 #line 300 "rsel_load.ec"
649 sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn5, 770));
650 #line 300 "rsel_load.ec"
655 adj_time(24,vcal_yr,vmon,vzday,vhour,
656 &vcal_yr,&vmon,&vzday,&vhour);
677 #line 313 "rsel_load.ec"
679 #line 323 "rsel_load.ec"
680 static const char *sqlcmdtxt[] =
681 #line 323 "rsel_load.ec"
683 #line 323 "rsel_load.ec"
684 "select value , ccal_yr , cmon , czday , ctime from fval where id = ? and pe1 = ? and pe2 = ? and dur = ? and t = ? and s = ? and e = ? and p = ? and vcal_yr = ? and vmon = ? and vzday = ? and vtime = ? and value >= 0. order by ccal_yr desc , cmon desc , czday desc , ctime desc",
687 #line 323 "rsel_load.ec"
688 static ifx_sqlvar_t _sqibind[] =
690 { 100, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
691 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
692 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
693 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
694 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
695 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
696 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
697 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
698 { 102,
sizeof(vcal_yr), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
699 { 102,
sizeof(vmon), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
700 { 102,
sizeof(vzday), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
701 { 102,
sizeof(vtime), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
702 #line 323 "rsel_load.ec"
704 static ifx_sqlda_t _SD0 = { 12, _sqibind, {0}, 12, 0 };
705 #line 323 "rsel_load.ec"
706 _sqibind[0].sqldata = id;
707 #line 323 "rsel_load.ec"
708 _sqibind[1].sqldata = pe1;
709 #line 323 "rsel_load.ec"
710 _sqibind[2].sqldata = pe2;
711 #line 323 "rsel_load.ec"
712 _sqibind[3].sqldata = dur;
713 #line 323 "rsel_load.ec"
714 _sqibind[4].sqldata = t;
715 #line 323 "rsel_load.ec"
716 _sqibind[5].sqldata = src;
717 #line 323 "rsel_load.ec"
718 _sqibind[6].sqldata = e;
719 #line 323 "rsel_load.ec"
720 _sqibind[7].sqldata = p;
721 #line 323 "rsel_load.ec"
722 _sqibind[8].sqldata = (
char *) &vcal_yr;
723 #line 323 "rsel_load.ec"
724 _sqibind[9].sqldata = (
char *) &vmon;
725 #line 323 "rsel_load.ec"
726 _sqibind[10].sqldata = (
char *) &vzday;
727 #line 323 "rsel_load.ec"
728 _sqibind[11].sqldata = (
char *) &vtime;
729 #line 323 "rsel_load.ec"
730 sqli_curs_decl_stat(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn6, 512),
_Cn6, sqlcmdtxt, &_SD0, (ifx_sqlda_t *)0, 0, (ifx_literal_t *)0, (ifx_namelist_t *)0, 2, 0, 0);
731 #line 323 "rsel_load.ec"
736 #line 324 "rsel_load.ec"
738 #line 324 "rsel_load.ec"
739 sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn6, 768), (ifx_sqlda_t *)0, (
char *)0, (
struct value *)0, 0, 0);
740 #line 324 "rsel_load.ec"
746 #line 325 "rsel_load.ec"
748 #line 326 "rsel_load.ec"
749 static ifx_sqlvar_t _sqobind[] =
751 { 104,
sizeof(
value), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
752 { 102,
sizeof(ccal_yr), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
753 { 102,
sizeof(cmon), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
754 { 102,
sizeof(czday), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
755 { 102,
sizeof(ctime), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
756 #line 326 "rsel_load.ec"
758 static ifx_sqlda_t _SD0 = { 5, _sqobind, {0}, 5, 0 };
759 static _FetchSpec _FS1 = { 0, 1, 0 };
760 #line 326 "rsel_load.ec"
761 _sqobind[0].sqldata = (
char *) &
value;
762 #line 326 "rsel_load.ec"
763 _sqobind[1].sqldata = (
char *) &ccal_yr;
764 #line 326 "rsel_load.ec"
765 _sqobind[2].sqldata = (
char *) &cmon;
766 #line 326 "rsel_load.ec"
767 _sqobind[3].sqldata = (
char *) &czday;
768 #line 326 "rsel_load.ec"
769 _sqobind[4].sqldata = (
char *) &ctime;
770 sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn6, 768), (ifx_sqlda_t *)0, &_SD0, (
char *)0, &_FS1);
771 #line 326 "rsel_load.ec"
778 #line 328 "rsel_load.ec"
780 #line 329 "rsel_load.ec"
781 static ifx_sqlvar_t _sqobind[] =
783 { 104,
sizeof(
value), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
784 { 102,
sizeof(ccal_yr), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
785 { 102,
sizeof(cmon), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
786 { 102,
sizeof(czday), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
787 { 102,
sizeof(ctime), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
788 #line 329 "rsel_load.ec"
790 static ifx_sqlda_t _SD0 = { 5, _sqobind, {0}, 5, 0 };
791 static _FetchSpec _FS1 = { 0, 1, 0 };
792 #line 329 "rsel_load.ec"
793 _sqobind[0].sqldata = (
char *) &
value;
794 #line 329 "rsel_load.ec"
795 _sqobind[1].sqldata = (
char *) &ccal_yr;
796 #line 329 "rsel_load.ec"
797 _sqobind[2].sqldata = (
char *) &cmon;
798 #line 329 "rsel_load.ec"
799 _sqobind[3].sqldata = (
char *) &czday;
800 #line 329 "rsel_load.ec"
801 _sqobind[4].sqldata = (
char *) &ctime;
802 sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn6, 768), (ifx_sqlda_t *)0, &_SD0, (
char *)0, &_FS1);
803 #line 329 "rsel_load.ec"
807 printf(
"%s %s%s%s%s%s %02d/%02d @ %04d %8.1f "
808 "DC %02d/%02d/%02d @ %04d (%d)\n",
809 id,pe1,pe2,dur,t,src,vmon,vzday,vtime/100,
810 value,cmon,czday,ccal_yr%100,ctime/100,
816 if(!strlen(rsel[num_rsels].create))
818 sprintf(dc,
"%02d%02d%02d%02d%02d\0",
819 ccal_yr%100,cmon,czday,
820 ctime/10000,(ctime%10000)/100);
821 strcpy(rsel[num_rsels].create,dc);
825 rsel[num_rsels].per[
k].amt=9.999;
826 strcpy(rsel[num_rsels].per[
k].
qual,
"M");
832 rsel[num_rsels].per[
k].amt=
value;
833 strcpy(rsel[num_rsels].per[
k].
qual,
"Z");
840 #line 362 "rsel_load.ec"
842 #line 362 "rsel_load.ec"
843 sqli_curs_close(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn7, 768));
844 #line 362 "rsel_load.ec"
849 #line 362 "rsel_load.ec"
851 #line 362 "rsel_load.ec"
852 sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn6, 770));
853 #line 362 "rsel_load.ec"
863 #line 367 "rsel_load.ec"
865 #line 367 "rsel_load.ec"
866 sqli_curs_close(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn4, 768));
867 #line 367 "rsel_load.ec"
872 #line 367 "rsel_load.ec"
874 #line 367 "rsel_load.ec"
875 sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn4, 770));
876 #line 367 "rsel_load.ec"
883 #line 369 "rsel_load.ec"
885 #line 369 "rsel_load.ec"
886 sqli_curs_close(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn3, 768));
887 #line 369 "rsel_load.ec"
892 #line 369 "rsel_load.ec"
894 #line 369 "rsel_load.ec"
895 sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn3, 770));
896 #line 369 "rsel_load.ec"
903 #line 371 "rsel_load.ec"
905 #line 371 "rsel_load.ec"
906 sqli_curs_close(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn2, 768));
907 #line 371 "rsel_load.ec"
912 #line 371 "rsel_load.ec"
914 #line 371 "rsel_load.ec"
915 sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn2, 770));
916 #line 371 "rsel_load.ec"
925 #line 377 "rsel_load.ec"
int adj_time(int adj, int y, int m, int d, int h, int *adj_y, int *adj_m, int *adj_d, int *adj_h)
sprintf(fbuf,"/usr/mapper/nexrad/ngrid.%02d-%02d-%02d-%02d", year, month, day, hour)
printf("fbuf is %s\n", fbuf)
struct fgroup_info fg[20]
int rsel_load(struct rsel_struct *rsel)