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;
56 #line 45 "fmap_load.ec"
57 #line 46 "fmap_load.ec"
59 char fgroupid[9], segid[9], rfs_id[9], wfo_resp[4];
60 char drain[2], pos[2], cgroup[2];
61 char pe1[2], pe2[2], dur[2], t[2], s[2], e[2], p[2];
63 char qz00[2], qz06[2], qz12[2], qz18[2];
64 char qz00x[2], qz06x[2], qz12x[2], qz18x[2];
66 int ccal_yr, cmon, czday, ctime;
67 int ccal_yrx, cmonx, czdayx, ctimex;
68 int vcal_yr, vmon, vzday, vhour;
72 float z00, z06, z12, z18;
73 float z00x, z06x, z12x, z18x;
77 #line 62 "fmap_load.ec"
80 int vcal_yr2,vmon2,vzday2;
85 #line 66 "fmap_load.ec"
87 #line 66 "fmap_load.ec"
88 static const char *sqlcmdtxt[] =
89 #line 66 "fmap_load.ec"
91 #line 66 "fmap_load.ec"
92 "set isolation to dirty read",
95 #line 66 "fmap_load.ec"
96 static ifx_statement_t _SQ0 = {0};
97 #line 66 "fmap_load.ec"
98 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);
99 #line 66 "fmap_load.ec"
146 sprintf(query,
"select fgroupid "
151 sprintf(query,
"select fgroupid "
153 "where fgroupid matches \"%s\"",
160 #line 123 "fmap_load.ec"
162 #line 123 "fmap_load.ec"
163 sqli_prep(ESQLINTVERSION,
_Cn1, query,(ifx_literal_t *)0, (ifx_namelist_t *)0, -1, 0, 0 );
164 #line 123 "fmap_load.ec"
177 #line 132 "fmap_load.ec"
179 #line 132 "fmap_load.ec"
180 sqli_curs_decl_dynm(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn2, 512),
_Cn2, sqli_curs_locate(ESQLINTVERSION,
_Cn1, 513), 0, 0);
181 #line 132 "fmap_load.ec"
193 #line 140 "fmap_load.ec"
195 #line 140 "fmap_load.ec"
196 sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn2, 768), (ifx_sqlda_t *)0, (
char *)0, (
struct value *)0, 0, 0);
197 #line 140 "fmap_load.ec"
215 #line 154 "fmap_load.ec"
217 #line 154 "fmap_load.ec"
218 static ifx_sqlvar_t _sqobind[] =
220 { 100, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
221 #line 154 "fmap_load.ec"
223 static ifx_sqlda_t _SD0 = { 1, _sqobind, {0}, 1, 0 };
224 static _FetchSpec _FS1 = { 0, 1, 0 };
225 #line 154 "fmap_load.ec"
226 _sqobind[0].sqldata = fgroupid;
227 sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn2, 768), (ifx_sqlda_t *)0, &_SD0, (
char *)0, &_FS1);
228 #line 154 "fmap_load.ec"
240 #line 159 "fmap_load.ec"
242 #line 162 "fmap_load.ec"
243 static const char *sqlcmdtxt[] =
244 #line 162 "fmap_load.ec"
246 #line 162 "fmap_load.ec"
247 "select segid , segnum from fgroup_seg where fgroupid = ? order by segnum",
250 #line 162 "fmap_load.ec"
251 static ifx_sqlvar_t _sqibind[] =
253 { 100, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
254 #line 162 "fmap_load.ec"
256 static ifx_sqlda_t _SD0 = { 1, _sqibind, {0}, 1, 0 };
257 #line 162 "fmap_load.ec"
258 _sqibind[0].sqldata = fgroupid;
259 #line 162 "fmap_load.ec"
260 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);
261 #line 162 "fmap_load.ec"
273 #line 170 "fmap_load.ec"
275 #line 170 "fmap_load.ec"
276 sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn3, 768), (ifx_sqlda_t *)0, (
char *)0, (
struct value *)0, 0, 0);
277 #line 170 "fmap_load.ec"
295 #line 184 "fmap_load.ec"
297 #line 184 "fmap_load.ec"
298 static ifx_sqlvar_t _sqobind[] =
300 { 100, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
301 { 102,
sizeof(segnum), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
302 #line 184 "fmap_load.ec"
304 static ifx_sqlda_t _SD0 = { 2, _sqobind, {0}, 2, 0 };
305 static _FetchSpec _FS1 = { 0, 1, 0 };
306 #line 184 "fmap_load.ec"
307 _sqobind[0].sqldata = segid;
308 #line 184 "fmap_load.ec"
309 _sqobind[1].sqldata = (
char *) &segnum;
310 sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn3, 768), (ifx_sqlda_t *)0, &_SD0, (
char *)0, &_FS1);
311 #line 184 "fmap_load.ec"
336 #line 190 "fmap_load.ec"
338 #line 205 "fmap_load.ec"
339 static const char *sqlcmdtxt[] =
340 #line 205 "fmap_load.ec"
342 #line 205 "fmap_load.ec"
343 "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 = \"P\" and pe2 = \"P\" and dur = \"Q\" and t = \"F\" and s = ? and e = \"Z\" and p = \"Z\" and area_sens . pos = pos . pos order by id , pos . pos_order desc",
346 #line 205 "fmap_load.ec"
347 static ifx_sqlvar_t _sqibind[] =
349 { 100, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
350 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
351 #line 205 "fmap_load.ec"
353 static ifx_sqlda_t _SD0 = { 2, _sqibind, {0}, 2, 0 };
354 #line 205 "fmap_load.ec"
355 _sqibind[0].sqldata = segid;
356 #line 205 "fmap_load.ec"
357 _sqibind[1].sqldata = src;
358 #line 205 "fmap_load.ec"
359 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);
360 #line 205 "fmap_load.ec"
372 #line 213 "fmap_load.ec"
374 #line 213 "fmap_load.ec"
375 sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn4, 768), (ifx_sqlda_t *)0, (
char *)0, (
struct value *)0, 0, 0);
376 #line 213 "fmap_load.ec"
389 while(!loop_area_sens_err)
397 #line 227 "fmap_load.ec"
399 #line 230 "fmap_load.ec"
400 static ifx_sqlvar_t _sqobind[] =
402 { 100, 6, 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, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
410 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
411 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
412 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
413 { 100, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
414 { 100, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
415 { 102,
sizeof(size_mi2), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
416 { 102,
sizeof(pos_order), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
417 #line 230 "fmap_load.ec"
419 static ifx_sqlda_t _SD0 = { 15, _sqobind, {0}, 15, 0 };
420 static _FetchSpec _FS1 = { 0, 1, 0 };
421 #line 230 "fmap_load.ec"
422 _sqobind[0].sqldata = areaid;
423 #line 230 "fmap_load.ec"
424 _sqobind[1].sqldata = pe1;
425 #line 230 "fmap_load.ec"
426 _sqobind[2].sqldata = pe2;
427 #line 230 "fmap_load.ec"
428 _sqobind[3].sqldata = dur;
429 #line 230 "fmap_load.ec"
430 _sqobind[4].sqldata = t;
431 #line 230 "fmap_load.ec"
432 _sqobind[5].sqldata = s;
433 #line 230 "fmap_load.ec"
434 _sqobind[6].sqldata = e;
435 #line 230 "fmap_load.ec"
436 _sqobind[7].sqldata = p;
437 #line 230 "fmap_load.ec"
438 _sqobind[8].sqldata = drain;
439 #line 230 "fmap_load.ec"
440 _sqobind[9].sqldata = pos;
441 #line 230 "fmap_load.ec"
442 _sqobind[10].sqldata = cgroup;
443 #line 230 "fmap_load.ec"
444 _sqobind[11].sqldata = rfs_id;
445 #line 230 "fmap_load.ec"
446 _sqobind[12].sqldata = wfo_resp;
447 #line 230 "fmap_load.ec"
448 _sqobind[13].sqldata = (
char *) &size_mi2;
449 #line 230 "fmap_load.ec"
450 _sqobind[14].sqldata = (
char *) &pos_order;
451 sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn4, 768), (ifx_sqlda_t *)0, &_SD0, (
char *)0, &_FS1);
452 #line 230 "fmap_load.ec"
456 if(!loop_area_sens_err)
461 strcpy(fmap[num_fmaps].fgroupid,fgroupid);
462 strcpy(fmap[num_fmaps].segid,segid);
463 strcpy(fmap[num_fmaps].areaid,areaid);
464 strcpy(fmap[num_fmaps].drain,drain);
465 strcpy(fmap[num_fmaps].pos,pos);
466 strcpy(fmap[num_fmaps].cgroup,cgroup);
467 strcpy(fmap[num_fmaps].create,
"\0");
468 sprintf(fmap[num_fmaps].shefpc,
469 "%s%s%s%s%s%s%s",pe1,pe2,dur,t,s,e,p);
470 strcpy(fmap[num_fmaps].fmapid,rfs_id);
471 strcpy(fmap[num_fmaps].wfo_resp,wfo_resp);
472 fmap[num_fmaps].size_mi2=size_mi2;
483 fmap[num_fmaps].per[
i].amt=0.;
484 strcpy(fmap[num_fmaps].per[
i].
qual,
"M");
485 strcpy(fmap[num_fmaps].per[
i].src,s);
490 cdate_time1=(
tc.year%2000)*100000000+
tc.month*1000000+
tc.day*10000+
tc.hour*100;
492 printf(
"cdate_time1 = %d\n",cdate_time1);
499 &vcal_yr,&vmon,&vzday,&vhour);
502 adj_time(24,vcal_yr,vmon,vzday,vhour,
503 &vcal_yr,&vmon,&vzday,&vhour);
505 if(
i == 3 && switch_src)
508 adj_time(-24,vcal_yr,vmon,vzday,vhour,
509 &vcal_yr,&vmon,&vzday,&vhour);
534 #line 299 "fmap_load.ec"
536 #line 308 "fmap_load.ec"
537 static const char *sqlcmdtxt[] =
538 #line 308 "fmap_load.ec"
540 #line 308 "fmap_load.ec"
541 "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",
544 #line 308 "fmap_load.ec"
545 static ifx_sqlvar_t _sqibind[] =
547 { 100, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
548 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
549 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
550 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
551 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
552 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
553 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
554 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
555 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
556 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
557 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
558 { 102,
sizeof(vcal_yr), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
559 { 102,
sizeof(vmon), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
560 { 102,
sizeof(vzday), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
561 #line 308 "fmap_load.ec"
563 static ifx_sqlda_t _SD0 = { 14, _sqibind, {0}, 14, 0 };
564 #line 308 "fmap_load.ec"
565 _sqibind[0].sqldata = areaid;
566 #line 308 "fmap_load.ec"
567 _sqibind[1].sqldata = pe1;
568 #line 308 "fmap_load.ec"
569 _sqibind[2].sqldata = pe2;
570 #line 308 "fmap_load.ec"
571 _sqibind[3].sqldata = dur;
572 #line 308 "fmap_load.ec"
573 _sqibind[4].sqldata = t;
574 #line 308 "fmap_load.ec"
575 _sqibind[5].sqldata = src;
576 #line 308 "fmap_load.ec"
577 _sqibind[6].sqldata = e;
578 #line 308 "fmap_load.ec"
579 _sqibind[7].sqldata = p;
580 #line 308 "fmap_load.ec"
581 _sqibind[8].sqldata = drain;
582 #line 308 "fmap_load.ec"
583 _sqibind[9].sqldata = pos;
584 #line 308 "fmap_load.ec"
585 _sqibind[10].sqldata = cgroup;
586 #line 308 "fmap_load.ec"
587 _sqibind[11].sqldata = (
char *) &vcal_yr;
588 #line 308 "fmap_load.ec"
589 _sqibind[12].sqldata = (
char *) &vmon;
590 #line 308 "fmap_load.ec"
591 _sqibind[13].sqldata = (
char *) &vzday;
592 #line 308 "fmap_load.ec"
593 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);
594 #line 308 "fmap_load.ec"
600 #line 310 "fmap_load.ec"
602 #line 310 "fmap_load.ec"
603 sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn5, 768), (ifx_sqlda_t *)0, (
char *)0, (
struct value *)0, 0, 0);
604 #line 310 "fmap_load.ec"
616 #line 315 "fmap_load.ec"
618 #line 318 "fmap_load.ec"
619 static ifx_sqlvar_t _sqobind[] =
621 { 104,
sizeof(z00), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
622 { 104,
sizeof(z06), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
623 { 104,
sizeof(z12), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
624 { 104,
sizeof(z18), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
625 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
626 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
627 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
628 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
629 { 102,
sizeof(ccal_yr), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
630 { 102,
sizeof(cmon), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
631 { 102,
sizeof(czday), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
632 { 102,
sizeof(ctime), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
633 #line 318 "fmap_load.ec"
635 static ifx_sqlda_t _SD0 = { 12, _sqobind, {0}, 12, 0 };
636 static _FetchSpec _FS1 = { 0, 1, 0 };
637 #line 318 "fmap_load.ec"
638 _sqobind[0].sqldata = (
char *) &z00;
639 #line 318 "fmap_load.ec"
640 _sqobind[1].sqldata = (
char *) &z06;
641 #line 318 "fmap_load.ec"
642 _sqobind[2].sqldata = (
char *) &z12;
643 #line 318 "fmap_load.ec"
644 _sqobind[3].sqldata = (
char *) &z18;
645 #line 318 "fmap_load.ec"
646 _sqobind[4].sqldata = qz00;
647 #line 318 "fmap_load.ec"
648 _sqobind[5].sqldata = qz06;
649 #line 318 "fmap_load.ec"
650 _sqobind[6].sqldata = qz12;
651 #line 318 "fmap_load.ec"
652 _sqobind[7].sqldata = qz18;
653 #line 318 "fmap_load.ec"
654 _sqobind[8].sqldata = (
char *) &ccal_yr;
655 #line 318 "fmap_load.ec"
656 _sqobind[9].sqldata = (
char *) &cmon;
657 #line 318 "fmap_load.ec"
658 _sqobind[10].sqldata = (
char *) &czday;
659 #line 318 "fmap_load.ec"
660 _sqobind[11].sqldata = (
char *) &ctime;
661 sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn5, 768), (ifx_sqlda_t *)0, &_SD0, (
char *)0, &_FS1);
662 #line 318 "fmap_load.ec"
666 cdate_time2=(ccal_yr%2000)*100000000+cmon*1000000+czday*10000+ctime/100;
670 printf(
"cdate_time2 = %d\n",cdate_time2);
671 if(cdate_time1 >= cdate_time2)
689 #line 338 "fmap_load.ec"
691 #line 341 "fmap_load.ec"
692 static ifx_sqlvar_t _sqobind[] =
694 { 104,
sizeof(z00), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
695 { 104,
sizeof(z06), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
696 { 104,
sizeof(z12), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
697 { 104,
sizeof(z18), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
698 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
699 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
700 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
701 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
702 { 102,
sizeof(ccal_yr), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
703 { 102,
sizeof(cmon), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
704 { 102,
sizeof(czday), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
705 { 102,
sizeof(ctime), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
706 #line 341 "fmap_load.ec"
708 static ifx_sqlda_t _SD0 = { 12, _sqobind, {0}, 12, 0 };
709 static _FetchSpec _FS1 = { 0, 1, 0 };
710 #line 341 "fmap_load.ec"
711 _sqobind[0].sqldata = (
char *) &z00;
712 #line 341 "fmap_load.ec"
713 _sqobind[1].sqldata = (
char *) &z06;
714 #line 341 "fmap_load.ec"
715 _sqobind[2].sqldata = (
char *) &z12;
716 #line 341 "fmap_load.ec"
717 _sqobind[3].sqldata = (
char *) &z18;
718 #line 341 "fmap_load.ec"
719 _sqobind[4].sqldata = qz00;
720 #line 341 "fmap_load.ec"
721 _sqobind[5].sqldata = qz06;
722 #line 341 "fmap_load.ec"
723 _sqobind[6].sqldata = qz12;
724 #line 341 "fmap_load.ec"
725 _sqobind[7].sqldata = qz18;
726 #line 341 "fmap_load.ec"
727 _sqobind[8].sqldata = (
char *) &ccal_yr;
728 #line 341 "fmap_load.ec"
729 _sqobind[9].sqldata = (
char *) &cmon;
730 #line 341 "fmap_load.ec"
731 _sqobind[10].sqldata = (
char *) &czday;
732 #line 341 "fmap_load.ec"
733 _sqobind[11].sqldata = (
char *) &ctime;
734 sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn5, 768), (ifx_sqlda_t *)0, &_SD0, (
char *)0, &_FS1);
735 #line 341 "fmap_load.ec"
737 cdate_time2=(ccal_yr%2000)*100000000+cmon*1000000+czday*10000+ctime/100;
739 printf(
"cdate_time2 = %d\n",cdate_time2);
741 if(cdate_time1 >= cdate_time2)
748 while(((!strcmp(qz00,
"M") &&
i) || (!strcmp(qz06,
"M") &&
i) ||
749 (!strcmp(qz12,
"M") &&
i) || !strcmp(qz18,
"M")) &&
759 #line 358 "fmap_load.ec"
761 #line 361 "fmap_load.ec"
762 static ifx_sqlvar_t _sqobind[] =
764 { 104,
sizeof(z00x), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
765 { 104,
sizeof(z06x), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
766 { 104,
sizeof(z12x), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
767 { 104,
sizeof(z18x), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
768 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
769 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
770 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
771 { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
772 { 102,
sizeof(ccal_yrx), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
773 { 102,
sizeof(cmonx), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
774 { 102,
sizeof(czdayx), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
775 { 102,
sizeof(ctimex), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
776 #line 361 "fmap_load.ec"
778 static ifx_sqlda_t _SD0 = { 12, _sqobind, {0}, 12, 0 };
779 static _FetchSpec _FS1 = { 0, 1, 0 };
780 #line 361 "fmap_load.ec"
781 _sqobind[0].sqldata = (
char *) &z00x;
782 #line 361 "fmap_load.ec"
783 _sqobind[1].sqldata = (
char *) &z06x;
784 #line 361 "fmap_load.ec"
785 _sqobind[2].sqldata = (
char *) &z12x;
786 #line 361 "fmap_load.ec"
787 _sqobind[3].sqldata = (
char *) &z18x;
788 #line 361 "fmap_load.ec"
789 _sqobind[4].sqldata = qz00x;
790 #line 361 "fmap_load.ec"
791 _sqobind[5].sqldata = qz06x;
792 #line 361 "fmap_load.ec"
793 _sqobind[6].sqldata = qz12x;
794 #line 361 "fmap_load.ec"
795 _sqobind[7].sqldata = qz18x;
796 #line 361 "fmap_load.ec"
797 _sqobind[8].sqldata = (
char *) &ccal_yrx;
798 #line 361 "fmap_load.ec"
799 _sqobind[9].sqldata = (
char *) &cmonx;
800 #line 361 "fmap_load.ec"
801 _sqobind[10].sqldata = (
char *) &czdayx;
802 #line 361 "fmap_load.ec"
803 _sqobind[11].sqldata = (
char *) &ctimex;
804 sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn5, 768), (ifx_sqlda_t *)0, &_SD0, (
char *)0, &_FS1);
805 #line 361 "fmap_load.ec"
809 cdate_time2=(ccal_yrx%2000)*100000000+cmonx*1000000+czdayx*10000+ctimex/100;
810 if(cdate_time1 >= cdate_time2)
812 if(!strcmp(qz00,
"M") && !strcmp(qz00x,
"Z"))
818 if(!strcmp(qz06,
"M") && !strcmp(qz06x,
"Z"))
824 if(!strcmp(qz12,
"M") && !strcmp(qz12x,
"Z"))
830 if(!strcmp(qz18,
"M") && !strcmp(qz18x,
"Z"))
840 printf(
"%s %s%s%s %s%s%s%s%s %02d/%02d "
841 "00Z:%8.2f/%s 06Z:%8.2f/%s 12Z:%8.2f/%s 18Z:%8.2f/%s"
842 " DC %02d/%02d/%02d @ %04d (%d)\n",
843 areaid,drain,pos,cgroup,pe1,pe2,dur,t,src,
844 vmon,vzday,z00,qz00,z06,qz06,z12,qz12,z18,qz18,
849 if(!strlen(fmap[num_fmaps].create))
851 sprintf(dc,
"%02d%02d%02d%02d%02d\0",
852 ccal_yr%100,cmon,czday,
853 ctime/10000,(ctime%10000)/100);
854 strcpy(fmap[num_fmaps].create,dc);
858 if(!strcmp(qz00,
"M")) z00=0.;
859 if(!strcmp(qz06,
"M")) z06=0.;
860 if(!strcmp(qz12,
"M")) z12=0.;
861 if(!strcmp(qz18,
"M")) z18=0.;
864 fmap[num_fmaps].per[0].amt=z18;
865 strcpy(fmap[num_fmaps].per[0].
qual,qz18);
866 strcpy(fmap[num_fmaps].per[0].src,src);
870 if(
i==3 && switch_src)
872 fmap[num_fmaps].per[12].amt=z18;
873 strcpy(fmap[num_fmaps].per[12].
qual,qz18);
874 strcpy(fmap[num_fmaps].per[12].src,src);
878 fmap[num_fmaps].per[1+4*(
i-1)].amt=z00;
879 strcpy(fmap[num_fmaps].per[1+4*(
i-1)].
qual,qz00);
880 strcpy(fmap[num_fmaps].per[1+4*(
i-1)].src,src);
881 fmap[num_fmaps].per[2+4*(
i-1)].amt=z06;
882 strcpy(fmap[num_fmaps].per[2+4*(
i-1)].
qual,qz06);
883 strcpy(fmap[num_fmaps].per[2+4*(
i-1)].src,src);
884 fmap[num_fmaps].per[3+4*(
i-1)].amt=z12;
885 strcpy(fmap[num_fmaps].per[3+4*(
i-1)].
qual,qz12);
886 strcpy(fmap[num_fmaps].per[3+4*(
i-1)].src,src);
889 fmap[num_fmaps].per[4+4*(
i-1)].amt=z18;
890 strcpy(fmap[num_fmaps].per[4+4*(
i-1)].
qual,qz18);
891 strcpy(fmap[num_fmaps].per[4+4*(
i-1)].src,src);
899 #line 451 "fmap_load.ec"
901 #line 451 "fmap_load.ec"
902 sqli_curs_close(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn5, 768));
903 #line 451 "fmap_load.ec"
908 #line 451 "fmap_load.ec"
910 #line 451 "fmap_load.ec"
911 sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn5, 770));
912 #line 451 "fmap_load.ec"
927 #line 461 "fmap_load.ec"
929 #line 461 "fmap_load.ec"
930 sqli_curs_close(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn4, 768));
931 #line 461 "fmap_load.ec"
936 #line 461 "fmap_load.ec"
938 #line 461 "fmap_load.ec"
939 sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn4, 770));
940 #line 461 "fmap_load.ec"
947 #line 463 "fmap_load.ec"
949 #line 463 "fmap_load.ec"
950 sqli_curs_close(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn3, 768));
951 #line 463 "fmap_load.ec"
956 #line 463 "fmap_load.ec"
958 #line 463 "fmap_load.ec"
959 sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn3, 770));
960 #line 463 "fmap_load.ec"
967 #line 465 "fmap_load.ec"
969 #line 465 "fmap_load.ec"
970 sqli_curs_close(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn2, 768));
971 #line 465 "fmap_load.ec"
976 #line 465 "fmap_load.ec"
978 #line 465 "fmap_load.ec"
979 sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION,
_Cn2, 770));
980 #line 465 "fmap_load.ec"
989 #line 471 "fmap_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)
struct fgroup_info fg[20]
int fmap_load(struct fmap_struct *fmap)
sprintf(fbuf,"/usr/mapper/nexrad/ngrid.%02d-%02d-%02d-%02d", year, month, day, hour)
printf("fbuf is %s\n", fbuf)