3 static const char _Cn5[] =
"loop_fcst";
4 static const char _Cn4[] =
"loop_area_sens";
5 static const char _Cn3[] =
"loop_seg";
6 static const char _Cn2[] =
"loop_fg";
7 static const char _Cn1[] =
"qfg";
15 #include <sys/types.h>
33 extern struct fgroup_info
fg[20];
34 extern struct time_cntl
tc;
47 int loop_fcst_err,loop_fg_err,loop_seg_err,loop_area_sens_err;
54 #line 43 "fmaz_load.ec"
55 #line 44 "fmaz_load.ec"
57 char fgroupid[9], segid[9], rfs_id[9], wfo_resp[4];
58 char drain[2], pos[2], cgroup[2];
59 char pe1[2], pe2[2], dur[2], t[2], s[2], e[2], p[2];
61 char qz00[2], qz06[2], qz12[2], qz18[2];
62 char qz00x[2], qz06x[2], qz12x[2], qz18x[2];
64 int ccal_yr, cmon, czday, ctime;
65 int ccal_yrx, cmonx, czdayx, ctimex;
66 int vcal_yr, vmon, vzday, vhour;
70 float z00, z06, z12, z18;
71 float z00x, z06x, z12x, z18x;
75 #line 60 "fmaz_load.ec"
81 #line 62 "fmaz_load.ec"
83 #line 62 "fmaz_load.ec"
84 static const char *sqlcmdtxt[] =
85 #line 62 "fmaz_load.ec"
87 #line 62 "fmaz_load.ec"
88 "set isolation to dirty read",
91 #line 62 "fmaz_load.ec"
92 static ifx_statement_t _SQ0 = {0};
93 #line 62 "fmaz_load.ec"
94 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);
95 #line 62 "fmaz_load.ec"
142 sprintf(query,
"select fgroupid "
147 sprintf(query,
"select fgroupid "
149 "where fgroupid matches \"%s\"",
156 #line 119 "fmaz_load.ec"
158 #line 119 "fmaz_load.ec"
159 sqli_prep(ESQLINTVERSION,
_Cn1, query,(ifx_literal_t *)0, (ifx_namelist_t *)0, -1, 0, 0 );
160 #line 119 "fmaz_load.ec"
173 #line 128 "fmaz_load.ec"
175 #line 128 "fmaz_load.ec"
176 sqli_curs_decl_dynm(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn2, 512),
_Cn2, sqli_curs_locate(ESQLINTVERSION,
_Cn1, 513), 0, 0);
177 #line 128 "fmaz_load.ec"
189 #line 136 "fmaz_load.ec"
191 #line 136 "fmaz_load.ec"
192 sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn2, 768), (ifx_sqlda_t *)0, (
char *)0, (
struct value *)0, 0, 0);
193 #line 136 "fmaz_load.ec"
211 #line 150 "fmaz_load.ec"
213 #line 150 "fmaz_load.ec"
214 static ifx_sqlvar_t _sqobind[] =
216 { 100, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
217 #line 150 "fmaz_load.ec"
219 static ifx_sqlda_t _SD0 = { 1, _sqobind, {0}, 1, 0 };
220 static _FetchSpec _FS1 = { 0, 1, 0 };
221 #line 150 "fmaz_load.ec"
222 _sqobind[0].sqldata = fgroupid;
223 sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn2, 768), (ifx_sqlda_t *)0, &_SD0, (
char *)0, &_FS1);
224 #line 150 "fmaz_load.ec"
236 #line 155 "fmaz_load.ec"
238 #line 158 "fmaz_load.ec"
239 static const char *sqlcmdtxt[] =
240 #line 158 "fmaz_load.ec"
242 #line 158 "fmaz_load.ec"
243 "select segid , segnum from fgroup_seg where fgroupid = ? order by segnum",
246 #line 158 "fmaz_load.ec"
247 static ifx_sqlvar_t _sqibind[] =
249 { 100, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
250 #line 158 "fmaz_load.ec"
252 static ifx_sqlda_t _SD0 = { 1, _sqibind, {0}, 1, 0 };
253 #line 158 "fmaz_load.ec"
254 _sqibind[0].sqldata = fgroupid;
255 #line 158 "fmaz_load.ec"
256 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);
257 #line 158 "fmaz_load.ec"
269 #line 166 "fmaz_load.ec"
271 #line 166 "fmaz_load.ec"
272 sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn3, 768), (ifx_sqlda_t *)0, (
char *)0, (
struct value *)0, 0, 0);
273 #line 166 "fmaz_load.ec"
291 #line 180 "fmaz_load.ec"
293 #line 180 "fmaz_load.ec"
294 static ifx_sqlvar_t _sqobind[] =
296 { 100, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
297 { 102,
sizeof(segnum), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
298 #line 180 "fmaz_load.ec"
300 static ifx_sqlda_t _SD0 = { 2, _sqobind, {0}, 2, 0 };
301 static _FetchSpec _FS1 = { 0, 1, 0 };
302 #line 180 "fmaz_load.ec"
303 _sqobind[0].sqldata = segid;
304 #line 180 "fmaz_load.ec"
305 _sqobind[1].sqldata = (
char *) &segnum;
306 sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn3, 768), (ifx_sqlda_t *)0, &_SD0, (
char *)0, &_FS1);
307 #line 180 "fmaz_load.ec"
332 #line 186 "fmaz_load.ec"
334 #line 201 "fmaz_load.ec"
335 static const char *sqlcmdtxt[] =
336 #line 201 "fmaz_load.ec"
338 #line 201 "fmaz_load.ec"
339 "select id , pe1 , pe2 , dur , t , s , e , p , drain , area_sens . pos , cgroup , rfs_id , wfo_resp , size_mi2 , pos_order from area_sens , pos where segid = ? and pe1 = \"H\" and pe2 = \"Z\" and dur = \"I\" and t = \"F\" and s = ? and e = \"Z\" and p = \"Z\" and area_sens . pos = pos . pos order by id , pos . pos_order desc",
342 #line 201 "fmaz_load.ec"
343 static ifx_sqlvar_t _sqibind[] =
345 { 100, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
346 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
347 #line 201 "fmaz_load.ec"
349 static ifx_sqlda_t _SD0 = { 2, _sqibind, {0}, 2, 0 };
350 #line 201 "fmaz_load.ec"
351 _sqibind[0].sqldata = segid;
352 #line 201 "fmaz_load.ec"
353 _sqibind[1].sqldata = src;
354 #line 201 "fmaz_load.ec"
355 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);
356 #line 201 "fmaz_load.ec"
368 #line 209 "fmaz_load.ec"
370 #line 209 "fmaz_load.ec"
371 sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn4, 768), (ifx_sqlda_t *)0, (
char *)0, (
struct value *)0, 0, 0);
372 #line 209 "fmaz_load.ec"
385 while(!loop_area_sens_err)
393 #line 223 "fmaz_load.ec"
395 #line 226 "fmaz_load.ec"
396 static ifx_sqlvar_t _sqobind[] =
398 { 100, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
399 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
400 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
401 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
402 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
403 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
404 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
405 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
406 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
407 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
408 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
409 { 100, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
410 { 100, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
411 { 102,
sizeof(size_mi2), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
412 { 102,
sizeof(pos_order), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
413 #line 226 "fmaz_load.ec"
415 static ifx_sqlda_t _SD0 = { 15, _sqobind, {0}, 15, 0 };
416 static _FetchSpec _FS1 = { 0, 1, 0 };
417 #line 226 "fmaz_load.ec"
418 _sqobind[0].sqldata = areaid;
419 #line 226 "fmaz_load.ec"
420 _sqobind[1].sqldata = pe1;
421 #line 226 "fmaz_load.ec"
422 _sqobind[2].sqldata = pe2;
423 #line 226 "fmaz_load.ec"
424 _sqobind[3].sqldata = dur;
425 #line 226 "fmaz_load.ec"
426 _sqobind[4].sqldata = t;
427 #line 226 "fmaz_load.ec"
428 _sqobind[5].sqldata = s;
429 #line 226 "fmaz_load.ec"
430 _sqobind[6].sqldata = e;
431 #line 226 "fmaz_load.ec"
432 _sqobind[7].sqldata = p;
433 #line 226 "fmaz_load.ec"
434 _sqobind[8].sqldata = drain;
435 #line 226 "fmaz_load.ec"
436 _sqobind[9].sqldata = pos;
437 #line 226 "fmaz_load.ec"
438 _sqobind[10].sqldata = cgroup;
439 #line 226 "fmaz_load.ec"
440 _sqobind[11].sqldata = rfs_id;
441 #line 226 "fmaz_load.ec"
442 _sqobind[12].sqldata = wfo_resp;
443 #line 226 "fmaz_load.ec"
444 _sqobind[13].sqldata = (
char *) &size_mi2;
445 #line 226 "fmaz_load.ec"
446 _sqobind[14].sqldata = (
char *) &pos_order;
447 sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn4, 768), (ifx_sqlda_t *)0, &_SD0, (
char *)0, &_FS1);
448 #line 226 "fmaz_load.ec"
452 if(!loop_area_sens_err)
457 strcpy(fmaz[num_fmazs].fgroupid,fgroupid);
458 strcpy(fmaz[num_fmazs].segid,segid);
459 strcpy(fmaz[num_fmazs].areaid,areaid);
460 strcpy(fmaz[num_fmazs].drain,drain);
461 strcpy(fmaz[num_fmazs].pos,pos);
464 strcpy(fmaz[num_fmazs].cgroup,cgroup);
465 strcpy(fmaz[num_fmazs].create,
"\0");
466 sprintf(fmaz[num_fmazs].shefpc,
467 "%s%s%s%s%s%s%s",pe1,pe2,dur,t,s,e,p);
468 strcpy(fmaz[num_fmazs].fmazid,rfs_id);
469 strcpy(fmaz[num_fmazs].wfo_resp,wfo_resp);
470 fmaz[num_fmazs].size_mi2=size_mi2;
475 fmaz[num_fmazs].per[
i].amt=0.;
476 strcpy(fmaz[num_fmazs].per[
i].
qual,
"M");
477 strcpy(fmaz[num_fmazs].per[
i].src,s);
487 &vcal_yr,&vmon,&vzday,&vhour);
490 adj_time(24,vcal_yr,vmon,vzday,vhour,
491 &vcal_yr,&vmon,&vzday,&vhour);
493 if(
i == 3 && switch_src)
496 adj_time(-24,vcal_yr,vmon,vzday,vhour,
497 &vcal_yr,&vmon,&vzday,&vhour);
522 #line 287 "fmaz_load.ec"
524 #line 296 "fmaz_load.ec"
525 static const char *sqlcmdtxt[] =
526 #line 296 "fmaz_load.ec"
528 #line 296 "fmaz_load.ec"
529 "select z00 , z06 , z12 , z18 , qz00 , qz06 , qz12 , qz18 , ccal_yr , cmon , czday , ctime from fmaqtrly where id = ? and pe1 = ? and pe2 = ? and dur = ? and t = ? and s = ? and e = ? and p = ? and drain = ? and pos = ? and cgroup = ? and vcal_yr = ? and vmon = ? and vzday = ? order by ccal_yr desc , cmon desc , czday desc , ctime desc",
532 #line 296 "fmaz_load.ec"
533 static ifx_sqlvar_t _sqibind[] =
535 { 100, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
536 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
537 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
538 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
539 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
540 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
541 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
542 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
543 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
544 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
545 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
546 { 102,
sizeof(vcal_yr), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
547 { 102,
sizeof(vmon), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
548 { 102,
sizeof(vzday), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
549 #line 296 "fmaz_load.ec"
551 static ifx_sqlda_t _SD0 = { 14, _sqibind, {0}, 14, 0 };
552 #line 296 "fmaz_load.ec"
553 _sqibind[0].sqldata = areaid;
554 #line 296 "fmaz_load.ec"
555 _sqibind[1].sqldata = pe1;
556 #line 296 "fmaz_load.ec"
557 _sqibind[2].sqldata = pe2;
558 #line 296 "fmaz_load.ec"
559 _sqibind[3].sqldata = dur;
560 #line 296 "fmaz_load.ec"
561 _sqibind[4].sqldata = t;
562 #line 296 "fmaz_load.ec"
563 _sqibind[5].sqldata = src;
564 #line 296 "fmaz_load.ec"
565 _sqibind[6].sqldata = e;
566 #line 296 "fmaz_load.ec"
567 _sqibind[7].sqldata = p;
568 #line 296 "fmaz_load.ec"
569 _sqibind[8].sqldata = drain;
570 #line 296 "fmaz_load.ec"
571 _sqibind[9].sqldata = pos;
572 #line 296 "fmaz_load.ec"
573 _sqibind[10].sqldata = cgroup;
574 #line 296 "fmaz_load.ec"
575 _sqibind[11].sqldata = (
char *) &vcal_yr;
576 #line 296 "fmaz_load.ec"
577 _sqibind[12].sqldata = (
char *) &vmon;
578 #line 296 "fmaz_load.ec"
579 _sqibind[13].sqldata = (
char *) &vzday;
580 #line 296 "fmaz_load.ec"
581 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);
582 #line 296 "fmaz_load.ec"
588 #line 298 "fmaz_load.ec"
590 #line 298 "fmaz_load.ec"
591 sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn5, 768), (ifx_sqlda_t *)0, (
char *)0, (
struct value *)0, 0, 0);
592 #line 298 "fmaz_load.ec"
601 #line 300 "fmaz_load.ec"
603 #line 303 "fmaz_load.ec"
604 static ifx_sqlvar_t _sqobind[] =
606 { 104,
sizeof(z00), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
607 { 104,
sizeof(z06), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
608 { 104,
sizeof(z12), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
609 { 104,
sizeof(z18), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
610 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
611 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
612 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
613 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
614 { 102,
sizeof(ccal_yr), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
615 { 102,
sizeof(cmon), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
616 { 102,
sizeof(czday), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
617 { 102,
sizeof(ctime), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
618 #line 303 "fmaz_load.ec"
620 static ifx_sqlda_t _SD0 = { 12, _sqobind, {0}, 12, 0 };
621 static _FetchSpec _FS1 = { 0, 1, 0 };
622 #line 303 "fmaz_load.ec"
623 _sqobind[0].sqldata = (
char *) &z00;
624 #line 303 "fmaz_load.ec"
625 _sqobind[1].sqldata = (
char *) &z06;
626 #line 303 "fmaz_load.ec"
627 _sqobind[2].sqldata = (
char *) &z12;
628 #line 303 "fmaz_load.ec"
629 _sqobind[3].sqldata = (
char *) &z18;
630 #line 303 "fmaz_load.ec"
631 _sqobind[4].sqldata = qz00;
632 #line 303 "fmaz_load.ec"
633 _sqobind[5].sqldata = qz06;
634 #line 303 "fmaz_load.ec"
635 _sqobind[6].sqldata = qz12;
636 #line 303 "fmaz_load.ec"
637 _sqobind[7].sqldata = qz18;
638 #line 303 "fmaz_load.ec"
639 _sqobind[8].sqldata = (
char *) &ccal_yr;
640 #line 303 "fmaz_load.ec"
641 _sqobind[9].sqldata = (
char *) &cmon;
642 #line 303 "fmaz_load.ec"
643 _sqobind[10].sqldata = (
char *) &czday;
644 #line 303 "fmaz_load.ec"
645 _sqobind[11].sqldata = (
char *) &ctime;
646 sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn5, 768), (ifx_sqlda_t *)0, &_SD0, (
char *)0, &_FS1);
647 #line 303 "fmaz_load.ec"
659 #line 308 "fmaz_load.ec"
661 #line 311 "fmaz_load.ec"
662 static ifx_sqlvar_t _sqobind[] =
664 { 104,
sizeof(z00), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
665 { 104,
sizeof(z06), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
666 { 104,
sizeof(z12), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
667 { 104,
sizeof(z18), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
668 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
669 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
670 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
671 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
672 { 102,
sizeof(ccal_yr), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
673 { 102,
sizeof(cmon), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
674 { 102,
sizeof(czday), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
675 { 102,
sizeof(ctime), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
676 #line 311 "fmaz_load.ec"
678 static ifx_sqlda_t _SD0 = { 12, _sqobind, {0}, 12, 0 };
679 static _FetchSpec _FS1 = { 0, 1, 0 };
680 #line 311 "fmaz_load.ec"
681 _sqobind[0].sqldata = (
char *) &z00;
682 #line 311 "fmaz_load.ec"
683 _sqobind[1].sqldata = (
char *) &z06;
684 #line 311 "fmaz_load.ec"
685 _sqobind[2].sqldata = (
char *) &z12;
686 #line 311 "fmaz_load.ec"
687 _sqobind[3].sqldata = (
char *) &z18;
688 #line 311 "fmaz_load.ec"
689 _sqobind[4].sqldata = qz00;
690 #line 311 "fmaz_load.ec"
691 _sqobind[5].sqldata = qz06;
692 #line 311 "fmaz_load.ec"
693 _sqobind[6].sqldata = qz12;
694 #line 311 "fmaz_load.ec"
695 _sqobind[7].sqldata = qz18;
696 #line 311 "fmaz_load.ec"
697 _sqobind[8].sqldata = (
char *) &ccal_yr;
698 #line 311 "fmaz_load.ec"
699 _sqobind[9].sqldata = (
char *) &cmon;
700 #line 311 "fmaz_load.ec"
701 _sqobind[10].sqldata = (
char *) &czday;
702 #line 311 "fmaz_load.ec"
703 _sqobind[11].sqldata = (
char *) &ctime;
704 sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn5, 768), (ifx_sqlda_t *)0, &_SD0, (
char *)0, &_FS1);
705 #line 311 "fmaz_load.ec"
708 while(((!strcmp(qz00,
"M") &&
i) || (!strcmp(qz06,
"M") &&
i) ||
709 (!strcmp(qz12,
"M") &&
i) || !strcmp(qz18,
"M")) &&
719 #line 318 "fmaz_load.ec"
721 #line 321 "fmaz_load.ec"
722 static ifx_sqlvar_t _sqobind[] =
724 { 104,
sizeof(z00x), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
725 { 104,
sizeof(z06x), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
726 { 104,
sizeof(z12x), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
727 { 104,
sizeof(z18x), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
728 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
729 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
730 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
731 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
732 { 102,
sizeof(ccal_yrx), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
733 { 102,
sizeof(cmonx), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
734 { 102,
sizeof(czdayx), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
735 { 102,
sizeof(ctimex), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
736 #line 321 "fmaz_load.ec"
738 static ifx_sqlda_t _SD0 = { 12, _sqobind, {0}, 12, 0 };
739 static _FetchSpec _FS1 = { 0, 1, 0 };
740 #line 321 "fmaz_load.ec"
741 _sqobind[0].sqldata = (
char *) &z00x;
742 #line 321 "fmaz_load.ec"
743 _sqobind[1].sqldata = (
char *) &z06x;
744 #line 321 "fmaz_load.ec"
745 _sqobind[2].sqldata = (
char *) &z12x;
746 #line 321 "fmaz_load.ec"
747 _sqobind[3].sqldata = (
char *) &z18x;
748 #line 321 "fmaz_load.ec"
749 _sqobind[4].sqldata = qz00x;
750 #line 321 "fmaz_load.ec"
751 _sqobind[5].sqldata = qz06x;
752 #line 321 "fmaz_load.ec"
753 _sqobind[6].sqldata = qz12x;
754 #line 321 "fmaz_load.ec"
755 _sqobind[7].sqldata = qz18x;
756 #line 321 "fmaz_load.ec"
757 _sqobind[8].sqldata = (
char *) &ccal_yrx;
758 #line 321 "fmaz_load.ec"
759 _sqobind[9].sqldata = (
char *) &cmonx;
760 #line 321 "fmaz_load.ec"
761 _sqobind[10].sqldata = (
char *) &czdayx;
762 #line 321 "fmaz_load.ec"
763 _sqobind[11].sqldata = (
char *) &ctimex;
764 sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn5, 768), (ifx_sqlda_t *)0, &_SD0, (
char *)0, &_FS1);
765 #line 321 "fmaz_load.ec"
769 if(!strcmp(qz00,
"M") && !strcmp(qz00x,
"Z"))
774 if(!strcmp(qz06,
"M") && !strcmp(qz06x,
"Z"))
779 if(!strcmp(qz12,
"M") && !strcmp(qz12x,
"Z"))
784 if(!strcmp(qz18,
"M") && !strcmp(qz18x,
"Z"))
792 printf(
"%s %s%s%s %s%s%s%s%s %02d/%02d "
793 "00Z:%8.2f/%s 06Z:%8.2f/%s 12Z:%8.2f/%s 18Z:%8.2f/%s"
794 " DC %02d/%02d/%02d @ %04d (%d)\n",
795 areaid,drain,pos,cgroup,pe1,pe2,dur,t,src,
796 vmon,vzday,z00,qz00,z06,qz06,z12,qz12,z18,qz18,
801 if(!strlen(fmaz[num_fmazs].create))
803 sprintf(dc,
"%02d%02d%02d%02d%02d\0",
804 ccal_yr%100,cmon,czday,
805 ctime/10000,(ctime%10000)/100);
806 strcpy(fmaz[num_fmazs].create,dc);
810 if(!strcmp(qz00,
"M")) z00=0.;
811 if(!strcmp(qz06,
"M")) z06=0.;
812 if(!strcmp(qz12,
"M")) z12=0.;
813 if(!strcmp(qz18,
"M")) z18=0.;
816 fmaz[num_fmazs].per[0].amt=z12;
817 strcpy(fmaz[num_fmazs].per[0].
qual,qz12);
818 strcpy(fmaz[num_fmazs].per[0].src,src);
819 fmaz[num_fmazs].per[1].amt=z18;
820 strcpy(fmaz[num_fmazs].per[1].
qual,qz18);
821 strcpy(fmaz[num_fmazs].per[1].src,src);
825 if(
i==3 && switch_src)
827 fmaz[num_fmazs].per[13].amt=z18;
828 strcpy(fmaz[num_fmazs].per[13].
qual,qz18);
829 strcpy(fmaz[num_fmazs].per[13].src,src);
833 fmaz[num_fmazs].per[2+4*(
i-1)].amt=z00;
834 strcpy(fmaz[num_fmazs].per[2+4*(
i-1)].
qual,qz00);
835 strcpy(fmaz[num_fmazs].per[2+4*(
i-1)].src,src);
836 fmaz[num_fmazs].per[3+4*(
i-1)].amt=z06;
837 strcpy(fmaz[num_fmazs].per[3+4*(
i-1)].
qual,qz06);
838 strcpy(fmaz[num_fmazs].per[3+4*(
i-1)].src,src);
839 fmaz[num_fmazs].per[4+4*(
i-1)].amt=z12;
840 strcpy(fmaz[num_fmazs].per[4+4*(
i-1)].
qual,qz12);
841 strcpy(fmaz[num_fmazs].per[4+4*(
i-1)].src,src);
844 fmaz[num_fmazs].per[5+4*(
i-1)].amt=z18;
845 strcpy(fmaz[num_fmazs].per[5+4*(
i-1)].
qual,qz18);
846 strcpy(fmaz[num_fmazs].per[5+4*(
i-1)].src,src);
854 #line 406 "fmaz_load.ec"
856 #line 406 "fmaz_load.ec"
857 sqli_curs_close(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn5, 768));
858 #line 406 "fmaz_load.ec"
863 #line 406 "fmaz_load.ec"
865 #line 406 "fmaz_load.ec"
866 sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn5, 770));
867 #line 406 "fmaz_load.ec"
882 #line 416 "fmaz_load.ec"
884 #line 416 "fmaz_load.ec"
885 sqli_curs_close(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn4, 768));
886 #line 416 "fmaz_load.ec"
891 #line 416 "fmaz_load.ec"
893 #line 416 "fmaz_load.ec"
894 sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn4, 770));
895 #line 416 "fmaz_load.ec"
902 #line 418 "fmaz_load.ec"
904 #line 418 "fmaz_load.ec"
905 sqli_curs_close(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn3, 768));
906 #line 418 "fmaz_load.ec"
911 #line 418 "fmaz_load.ec"
913 #line 418 "fmaz_load.ec"
914 sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn3, 770));
915 #line 418 "fmaz_load.ec"
922 #line 420 "fmaz_load.ec"
924 #line 420 "fmaz_load.ec"
925 sqli_curs_close(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn2, 768));
926 #line 420 "fmaz_load.ec"
931 #line 420 "fmaz_load.ec"
933 #line 420 "fmaz_load.ec"
934 sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn2, 770));
935 #line 420 "fmaz_load.ec"
944 #line 426 "fmaz_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)
int fmaz_load(struct fmaz_struct *fmaz)
struct fgroup_info fg[20]
sprintf(fbuf,"/usr/mapper/nexrad/ngrid.%02d-%02d-%02d-%02d", year, month, day, hour)
printf("fbuf is %s\n", fbuf)