Daily_QC
pro_dly.c
Go to the documentation of this file.
1 #include <sqlhdr.h>
2 extern _SQCURSOR *_iqnprep();
3 
4 #if !defined(__STDC__)
5 #define const
6 #endif
7 
8 #line 1 "/usr/local/apps/lib/ifx/pro_dly.ec"
9 #include "prototypes.h"
10 /*
11  * EXEC SQL include sqlca.h;
12  */
13 #line 2 "/usr/local/apps/lib/ifx/pro_dly.ec"
14 #line 1 "/usr/informix/incl/esql/sqlca.h"
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 #ifndef SQLCA_INCL
41 
42 #define SQLCA_INCL
43 
44 struct sqlca_s
45  {
46  long sqlcode;
47  char sqlerrm[72];
48  char sqlerrp[8];
49  long sqlerrd[6];
50 
51 
52 
53 
54 
55 
56  struct sqlcaw_s
57  {
58  char sqlwarn0;
59  char sqlwarn1;
60 
61  char sqlwarn2;
62 
63  char sqlwarn3;
64 
65  char sqlwarn4;
66 
67  char sqlwarn5;
68  char sqlwarn6;
69  char sqlwarn7;
70  } sqlwarn;
71  };
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 #ifdef VMS
82 noshare
83 #endif
84 extern struct sqlca_s sqlca;
85 
86 extern long SQLCODE;
87 
88 #define SQLNOTFOUND 100
89 
90 #endif
91 #line 3 "/usr/local/apps/lib/ifx/pro_dly.ec"
92 
93 /*
94  * EXEC SQL BEGIN DECLARE SECTION;
95  */
96 #line 4 "/usr/local/apps/lib/ifx/pro_dly.ec"
97 
98 int eyr, emo, edy;
99 int byr, bmo, bdy;
100 extern struct pro_dly_rec
101  {
102  char id[6];
103  char pe1[2];
104  char pe2[2];
105  char dur[2];
106  char t[2];
107  char s[2];
108  char e[2];
109  char p[2];
110  int cal_yr;
111  int mon;
112  double zday01;
113  double zday02;
114  double zday03;
115  double zday04;
116  double zday05;
117  double zday06;
118  double zday07;
119  double zday08;
120  double zday09;
121  double zday10;
122  double zday11;
123  double zday12;
124  double zday13;
125  double zday14;
126  double zday15;
127  double zday16;
128  double zday17;
129  double zday18;
130  double zday19;
131  double zday20;
132  double zday21;
133  double zday22;
134  double zday23;
135  double zday24;
136  double zday25;
137  double zday26;
138  double zday27;
139  double zday28;
140  double zday29;
141  double zday30;
142  double zday31;
143  char qzday01[2];
144  char qzday02[2];
145  char qzday03[2];
146  char qzday04[2];
147  char qzday05[2];
148  char qzday06[2];
149  char qzday07[2];
150  char qzday08[2];
151  char qzday09[2];
152  char qzday10[2];
153  char qzday11[2];
154  char qzday12[2];
155  char qzday13[2];
156  char qzday14[2];
157  char qzday15[2];
158  char qzday16[2];
159  char qzday17[2];
160  char qzday18[2];
161  char qzday19[2];
162  char qzday20[2];
163  char qzday21[2];
164  char qzday22[2];
165  char qzday23[2];
166  char qzday24[2];
167  char qzday25[2];
168  char qzday26[2];
169  char qzday27[2];
170  char qzday28[2];
171  char qzday29[2];
172  char qzday30[2];
173  char qzday31[2];
174  } dly_rec;
175 /*
176  * EXEC SQL END DECLARE SECTION;
177  */
178 #line 86 "/usr/local/apps/lib/ifx/pro_dly.ec"
179 
180 
181 extern struct data_rec {
182  char id[9];
183  char source[9];
184  char pe1;
185  char pe2;
186  char dur;
187  char t;
188  char s;
189  char e;
190  char p;
191  int zdate;
192  int ztime;
193  int czdate;
194  int cztime;
195  int idur;
196  double codp;
197  char lwal;
198  int idote;
199  int irev;
200  double value;
201  double values[96];
202  char lwals[96];
203  char pedtsep[8];
204  } data_record;
205 
206 void change_date1();
207 
208 int pro_dly(char *hb5,char *parm,struct stim begin_date,struct stim
209 end_date, char *qual, struct stn_values *stn_values)
210 
211 {
212 
213 int i,jtotal,k,atime;
214 int etime,btime;
215 int hour,min;
216 int zdate,hh,qlen;
217 int numdays;
218 
219 /*
220  * EXEC SQL BEGIN DECLARE SECTION;
221  */
222 #line 126 "/usr/local/apps/lib/ifx/pro_dly.ec"
223 
224 int edate, bdate;
225 int month, day, year;
226 char sparm[10];
227 struct stat
228  {
229  char hb5[6];
230  char pe1[2];
231  char pe2[2];
232  char dur[2];
233  char t[2];
234  char s[2];
235  char e[2];
236  char p[2];
237  } stat;
238 /*
239  * EXEC SQL END DECLARE SECTION;
240  */
241 #line 143 "/usr/local/apps/lib/ifx/pro_dly.ec"
242 
243 
244 
245 qlen=strlen(qual);
246 
247 stat.pe1[1]=0;
248 stat.pe2[1]=0;
249 stat.dur[1]=0;
250 stat.t[1]=0;
251 stat.s[1]=0;
252 stat.e[1]=0;
253 stat.p[1]=0;
254 
255 strcpy(stat.hb5,hb5);
256 stat.pe1[0]=parm[0];
257 stat.pe2[0]=parm[1];
258 stat.dur[0]=parm[2];
259 stat.t[0]=parm[3];
260 stat.s[0]=parm[4];
261 stat.e[0]=parm[5];
262 stat.p[0]=parm[6];
263 
264 eyr=end_date.year;
265 emo=end_date.month;
266 edy=end_date.day;
267 etime=end_date.hour*10000+
268  end_date.minute*100;
269 
270 byr=begin_date.year;
271 bmo=begin_date.month;
272 bdy=begin_date.day;
273 
274 year=byr;
275 month=bmo;
276 day=bdy;
277 
278 jtotal=0;
279 
280 
281 for(;;) {
282 
283 
284 /*
285  * EXEC SQL select *
286  * into :dly_rec
287  * from prodly
288  * where id=:stat.hb5 and
289  * pe1=:stat.pe1 and
290  * pe2=:stat.pe2 and
291  * dur=:stat.dur and
292  * t=:stat.t and
293  * s=:stat.s and
294  * e=:stat.e and
295  * p=:stat.p and
296  * cal_yr=:year and
297  * mon=:month;
298  */
299 #line 185 "/usr/local/apps/lib/ifx/pro_dly.ec"
300  {
301 #line 185 "/usr/local/apps/lib/ifx/pro_dly.ec"
302  static const char *sqlcmdtxt[] =
303 #line 185 "/usr/local/apps/lib/ifx/pro_dly.ec"
304  {
305 #line 185 "/usr/local/apps/lib/ifx/pro_dly.ec"
306  " select * from prodly where id = ? and pe1 = ? and pe2 = ? and dur = ? and t = ? and s = ? and e = ? and p = ? and cal_yr = ? and mon = ?",
307  0
308  };
309 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
310  static _SQCURSOR _SQ0 = {0};
311  static struct sqlvar_struct _sqibind[] =
312  {
313  { 100, 6, 0, 0, 0, 0, 0, 0, 0 },
314  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
315  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
316  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
317  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
318  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
319  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
320  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
321  { 102, sizeof(year), 0, 0, 0, 0, 0, 0, 0 },
322  { 102, sizeof(month), 0, 0, 0, 0, 0, 0, 0 },
323 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
324  };
325  static struct sqlvar_struct _sqobind[] =
326  {
327  { 100, 6, 0, 0, 0, 0, 0, 0, 0 },
328  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
329  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
330  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
331  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
332  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
333  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
334  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
335  { 102, sizeof((dly_rec).cal_yr), 0, 0, 0, 0, 0, 0, 0 },
336  { 102, sizeof((dly_rec).mon), 0, 0, 0, 0, 0, 0, 0 },
337  { 105, sizeof((dly_rec).zday01), 0, 0, 0, 0, 0, 0, 0 },
338  { 105, sizeof((dly_rec).zday02), 0, 0, 0, 0, 0, 0, 0 },
339  { 105, sizeof((dly_rec).zday03), 0, 0, 0, 0, 0, 0, 0 },
340  { 105, sizeof((dly_rec).zday04), 0, 0, 0, 0, 0, 0, 0 },
341  { 105, sizeof((dly_rec).zday05), 0, 0, 0, 0, 0, 0, 0 },
342  { 105, sizeof((dly_rec).zday06), 0, 0, 0, 0, 0, 0, 0 },
343  { 105, sizeof((dly_rec).zday07), 0, 0, 0, 0, 0, 0, 0 },
344  { 105, sizeof((dly_rec).zday08), 0, 0, 0, 0, 0, 0, 0 },
345  { 105, sizeof((dly_rec).zday09), 0, 0, 0, 0, 0, 0, 0 },
346  { 105, sizeof((dly_rec).zday10), 0, 0, 0, 0, 0, 0, 0 },
347  { 105, sizeof((dly_rec).zday11), 0, 0, 0, 0, 0, 0, 0 },
348  { 105, sizeof((dly_rec).zday12), 0, 0, 0, 0, 0, 0, 0 },
349  { 105, sizeof((dly_rec).zday13), 0, 0, 0, 0, 0, 0, 0 },
350  { 105, sizeof((dly_rec).zday14), 0, 0, 0, 0, 0, 0, 0 },
351  { 105, sizeof((dly_rec).zday15), 0, 0, 0, 0, 0, 0, 0 },
352  { 105, sizeof((dly_rec).zday16), 0, 0, 0, 0, 0, 0, 0 },
353  { 105, sizeof((dly_rec).zday17), 0, 0, 0, 0, 0, 0, 0 },
354  { 105, sizeof((dly_rec).zday18), 0, 0, 0, 0, 0, 0, 0 },
355  { 105, sizeof((dly_rec).zday19), 0, 0, 0, 0, 0, 0, 0 },
356  { 105, sizeof((dly_rec).zday20), 0, 0, 0, 0, 0, 0, 0 },
357  { 105, sizeof((dly_rec).zday21), 0, 0, 0, 0, 0, 0, 0 },
358  { 105, sizeof((dly_rec).zday22), 0, 0, 0, 0, 0, 0, 0 },
359  { 105, sizeof((dly_rec).zday23), 0, 0, 0, 0, 0, 0, 0 },
360  { 105, sizeof((dly_rec).zday24), 0, 0, 0, 0, 0, 0, 0 },
361  { 105, sizeof((dly_rec).zday25), 0, 0, 0, 0, 0, 0, 0 },
362  { 105, sizeof((dly_rec).zday26), 0, 0, 0, 0, 0, 0, 0 },
363  { 105, sizeof((dly_rec).zday27), 0, 0, 0, 0, 0, 0, 0 },
364  { 105, sizeof((dly_rec).zday28), 0, 0, 0, 0, 0, 0, 0 },
365  { 105, sizeof((dly_rec).zday29), 0, 0, 0, 0, 0, 0, 0 },
366  { 105, sizeof((dly_rec).zday30), 0, 0, 0, 0, 0, 0, 0 },
367  { 105, sizeof((dly_rec).zday31), 0, 0, 0, 0, 0, 0, 0 },
368  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
369  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
370  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
371  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
372  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
373  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
374  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
375  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
376  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
377  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
378  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
379  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
380  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
381  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
382  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
383  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
384  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
385  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
386  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
387  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
388  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
389  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
390  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
391  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
392  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
393  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
394  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
395  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
396  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
397  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
398  { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
399 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
400  };
401 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
402  _sqibind[0].sqldata = stat.hb5;
403 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
404  _sqibind[1].sqldata = stat.pe1;
405 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
406  _sqibind[2].sqldata = stat.pe2;
407 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
408  _sqibind[3].sqldata = stat.dur;
409 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
410  _sqibind[4].sqldata = stat.t;
411 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
412  _sqibind[5].sqldata = stat.s;
413 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
414  _sqibind[6].sqldata = stat.e;
415 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
416  _sqibind[7].sqldata = stat.p;
417 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
418  _sqibind[8].sqldata = (char *) &year;
419 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
420  _sqibind[9].sqldata = (char *) &month;
421 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
422  _sqobind[0].sqldata = (dly_rec).id;
423 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
424  _sqobind[1].sqldata = (dly_rec).pe1;
425 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
426  _sqobind[2].sqldata = (dly_rec).pe2;
427 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
428  _sqobind[3].sqldata = (dly_rec).dur;
429 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
430  _sqobind[4].sqldata = (dly_rec).t;
431 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
432  _sqobind[5].sqldata = (dly_rec).s;
433 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
434  _sqobind[6].sqldata = (dly_rec).e;
435 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
436  _sqobind[7].sqldata = (dly_rec).p;
437 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
438  _sqobind[8].sqldata = (char *) &(dly_rec).cal_yr;
439 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
440  _sqobind[9].sqldata = (char *) &(dly_rec).mon;
441 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
442  _sqobind[10].sqldata = (char *) &(dly_rec).zday01;
443 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
444  _sqobind[11].sqldata = (char *) &(dly_rec).zday02;
445 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
446  _sqobind[12].sqldata = (char *) &(dly_rec).zday03;
447 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
448  _sqobind[13].sqldata = (char *) &(dly_rec).zday04;
449 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
450  _sqobind[14].sqldata = (char *) &(dly_rec).zday05;
451 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
452  _sqobind[15].sqldata = (char *) &(dly_rec).zday06;
453 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
454  _sqobind[16].sqldata = (char *) &(dly_rec).zday07;
455 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
456  _sqobind[17].sqldata = (char *) &(dly_rec).zday08;
457 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
458  _sqobind[18].sqldata = (char *) &(dly_rec).zday09;
459 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
460  _sqobind[19].sqldata = (char *) &(dly_rec).zday10;
461 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
462  _sqobind[20].sqldata = (char *) &(dly_rec).zday11;
463 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
464  _sqobind[21].sqldata = (char *) &(dly_rec).zday12;
465 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
466  _sqobind[22].sqldata = (char *) &(dly_rec).zday13;
467 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
468  _sqobind[23].sqldata = (char *) &(dly_rec).zday14;
469 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
470  _sqobind[24].sqldata = (char *) &(dly_rec).zday15;
471 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
472  _sqobind[25].sqldata = (char *) &(dly_rec).zday16;
473 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
474  _sqobind[26].sqldata = (char *) &(dly_rec).zday17;
475 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
476  _sqobind[27].sqldata = (char *) &(dly_rec).zday18;
477 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
478  _sqobind[28].sqldata = (char *) &(dly_rec).zday19;
479 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
480  _sqobind[29].sqldata = (char *) &(dly_rec).zday20;
481 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
482  _sqobind[30].sqldata = (char *) &(dly_rec).zday21;
483 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
484  _sqobind[31].sqldata = (char *) &(dly_rec).zday22;
485 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
486  _sqobind[32].sqldata = (char *) &(dly_rec).zday23;
487 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
488  _sqobind[33].sqldata = (char *) &(dly_rec).zday24;
489 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
490  _sqobind[34].sqldata = (char *) &(dly_rec).zday25;
491 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
492  _sqobind[35].sqldata = (char *) &(dly_rec).zday26;
493 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
494  _sqobind[36].sqldata = (char *) &(dly_rec).zday27;
495 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
496  _sqobind[37].sqldata = (char *) &(dly_rec).zday28;
497 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
498  _sqobind[38].sqldata = (char *) &(dly_rec).zday29;
499 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
500  _sqobind[39].sqldata = (char *) &(dly_rec).zday30;
501 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
502  _sqobind[40].sqldata = (char *) &(dly_rec).zday31;
503 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
504  _sqobind[41].sqldata = (dly_rec).qzday01;
505 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
506  _sqobind[42].sqldata = (dly_rec).qzday02;
507 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
508  _sqobind[43].sqldata = (dly_rec).qzday03;
509 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
510  _sqobind[44].sqldata = (dly_rec).qzday04;
511 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
512  _sqobind[45].sqldata = (dly_rec).qzday05;
513 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
514  _sqobind[46].sqldata = (dly_rec).qzday06;
515 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
516  _sqobind[47].sqldata = (dly_rec).qzday07;
517 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
518  _sqobind[48].sqldata = (dly_rec).qzday08;
519 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
520  _sqobind[49].sqldata = (dly_rec).qzday09;
521 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
522  _sqobind[50].sqldata = (dly_rec).qzday10;
523 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
524  _sqobind[51].sqldata = (dly_rec).qzday11;
525 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
526  _sqobind[52].sqldata = (dly_rec).qzday12;
527 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
528  _sqobind[53].sqldata = (dly_rec).qzday13;
529 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
530  _sqobind[54].sqldata = (dly_rec).qzday14;
531 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
532  _sqobind[55].sqldata = (dly_rec).qzday15;
533 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
534  _sqobind[56].sqldata = (dly_rec).qzday16;
535 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
536  _sqobind[57].sqldata = (dly_rec).qzday17;
537 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
538  _sqobind[58].sqldata = (dly_rec).qzday18;
539 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
540  _sqobind[59].sqldata = (dly_rec).qzday19;
541 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
542  _sqobind[60].sqldata = (dly_rec).qzday20;
543 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
544  _sqobind[61].sqldata = (dly_rec).qzday21;
545 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
546  _sqobind[62].sqldata = (dly_rec).qzday22;
547 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
548  _sqobind[63].sqldata = (dly_rec).qzday23;
549 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
550  _sqobind[64].sqldata = (dly_rec).qzday24;
551 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
552  _sqobind[65].sqldata = (dly_rec).qzday25;
553 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
554  _sqobind[66].sqldata = (dly_rec).qzday26;
555 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
556  _sqobind[67].sqldata = (dly_rec).qzday27;
557 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
558  _sqobind[68].sqldata = (dly_rec).qzday28;
559 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
560  _sqobind[69].sqldata = (dly_rec).qzday29;
561 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
562  _sqobind[70].sqldata = (dly_rec).qzday30;
563 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
564  _sqobind[71].sqldata = (dly_rec).qzday31;
565 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
566  _iqslct(&_SQ0, sqlcmdtxt, 10, _sqibind, 72, _sqobind, 0);
567 #line 197 "/usr/local/apps/lib/ifx/pro_dly.ec"
568  }
569 
570  if(sqlca.sqlcode < 0)
571  return(sqlca.sqlcode);
572 
573  if(sqlca.sqlcode == 0) {
574 
575 
576  get_val31_array();
577 
578 
579 
580  numdays=getmonthdays(year,month);
581 
582 
583  for(k=numdays;k>0;k--) {
584 
585  day=k;
586 
587  zdate=dly_rec.cal_yr*10000+dly_rec.mon*100+day;
588 
589  if(year==eyr && month==emo && day < edy)
590  break;
591 
592  if(year==byr && month==bmo && day > bdy)
593  continue;
594 
595  if(data_record.values[k] < -98)
596  continue;
597 
598  if(*qual != 0) {
599 
600  for(hh=0;hh<qlen;hh++)
601  if(*(qual+hh) == data_record.lwals[k])
602  break;
603 
604  if(hh==qlen)
605  continue;
606 
607  }
608 
609 
610 
611  stn_values[jtotal].value=data_record.values[k];
612  stn_values[jtotal].zdate=zdate;
613 
614  stn_values[jtotal].qual= data_record.lwals[k];
615 
616  stn_values[jtotal++].ztime=120000;
617 
618  }
619 
620 
621  }
622 
623  if(jtotal > 9600)
624  break;
625 
626  if(year==eyr && month==emo)
627  break;
628  change_date1(&year,&month);
629 
630  }
631 
632 
633 return(jtotal);
634 
635 }
636 
637 int get_val31_array()
638 {
639 
640  data_record.values[1] = dly_rec.zday01;
641  data_record.values[2] = dly_rec.zday02;
642  data_record.values[3] = dly_rec.zday03;
643  data_record.values[4] = dly_rec.zday04;
644  data_record.values[5] = dly_rec.zday05;
645  data_record.values[6] = dly_rec.zday06;
646  data_record.values[7] = dly_rec.zday07;
647  data_record.values[8] = dly_rec.zday08;
648  data_record.values[9] = dly_rec.zday09;
649  data_record.values[10] = dly_rec.zday10;
650  data_record.values[11] = dly_rec.zday11;
651  data_record.values[12] = dly_rec.zday12;
652  data_record.values[13] = dly_rec.zday13;
653  data_record.values[14] = dly_rec.zday14;
654  data_record.values[15] = dly_rec.zday15;
655  data_record.values[16] = dly_rec.zday16;
656  data_record.values[17] = dly_rec.zday17;
657  data_record.values[18] = dly_rec.zday18;
658  data_record.values[19] = dly_rec.zday19;
659  data_record.values[20] = dly_rec.zday20;
660  data_record.values[21] = dly_rec.zday21;
661  data_record.values[22] = dly_rec.zday22;
662  data_record.values[23] = dly_rec.zday23;
663  data_record.values[24] = dly_rec.zday24;
664  data_record.values[25] = dly_rec.zday25;
665  data_record.values[26] = dly_rec.zday26;
666  data_record.values[27] = dly_rec.zday27;
667  data_record.values[28] = dly_rec.zday28;
668  data_record.values[29] = dly_rec.zday29;
669  data_record.values[30] = dly_rec.zday30;
670  data_record.values[31] = dly_rec.zday31;
671  data_record.lwals[1] = dly_rec.qzday01[0];
672  data_record.lwals[2] = dly_rec.qzday02[0];
673  data_record.lwals[3] = dly_rec.qzday03[0];
674  data_record.lwals[4] = dly_rec.qzday04[0];
675  data_record.lwals[5] = dly_rec.qzday05[0];
676  data_record.lwals[6] = dly_rec.qzday06[0];
677  data_record.lwals[7] = dly_rec.qzday07[0];
678  data_record.lwals[8] = dly_rec.qzday08[0];
679  data_record.lwals[9] = dly_rec.qzday09[0];
680  data_record.lwals[10] = dly_rec.qzday10[0];
681  data_record.lwals[11] = dly_rec.qzday11[0];
682  data_record.lwals[12] = dly_rec.qzday12[0];
683  data_record.lwals[13] = dly_rec.qzday13[0];
684  data_record.lwals[14] = dly_rec.qzday14[0];
685  data_record.lwals[15] = dly_rec.qzday15[0];
686  data_record.lwals[16] = dly_rec.qzday16[0];
687  data_record.lwals[17] = dly_rec.qzday17[0];
688  data_record.lwals[18] = dly_rec.qzday18[0];
689  data_record.lwals[19] = dly_rec.qzday19[0];
690  data_record.lwals[20] = dly_rec.qzday20[0];
691  data_record.lwals[21] = dly_rec.qzday21[0];
692  data_record.lwals[22] = dly_rec.qzday22[0];
693  data_record.lwals[23] = dly_rec.qzday23[0];
694  data_record.lwals[24] = dly_rec.qzday24[0];
695  data_record.lwals[25] = dly_rec.qzday25[0];
696  data_record.lwals[26] = dly_rec.qzday26[0];
697  data_record.lwals[27] = dly_rec.qzday27[0];
698  data_record.lwals[28] = dly_rec.qzday28[0];
699  data_record.lwals[29] = dly_rec.qzday29[0];
700  data_record.lwals[30] = dly_rec.qzday30[0];
701  data_record.lwals[31] = dly_rec.qzday31[0];
702 
703  return(0);
704 }
705 
706 void change_date1(int *year,int *month)
707 
708 {
709 
710 char buf[10];
711 XmString btn_text;
712 Arg args[10];
713 
714 (*month)--;
715 if(*month==0) {
716 
717  (*year)--;
718  *month=12;
719 
720  }
721 
722 }
723 
724 int getmonthdays(int year,int month)
725 
726 {
727 
728 
729 extern int mday[];
730 
731 if ((year)==1972 || (year)==1976 || (year)==1980 ||
732  (year)==1984 || (year)==1988 || (year)==1992 ||
733  (year)==1996 || (year)==2000 || (year)==2004 ||
734  (year)==2008)
735  mday[1]=29;
736 
737 else
738  mday[1]=28;
739 
740 
741 return(mday[month-1]);
742 
743 }
744 
pe2
char pe2
Definition: build_list.c:122
s
char s
Definition: build_list.c:122
pe1
char pe1
Definition: build_list.c:122
dur
char dur
Definition: build_list.c:122
t
char t
Definition: build_list.c:122
mday
int mday[]
Definition: can.c:353
mon
char * mon[]
Definition: daily_qc.c:13
hour
int hour
Definition: display_data.c:30
qual
char qual[10]
Definition: display_data.c:29
day
int day
Definition: display_data.c:30
year
int year
Definition: display_data.c:30
month
int month
Definition: display_data.c:30
emo
int emo
Definition: pro_dly.c:98
data_record
struct data_rec data_record
SQLCODE
long SQLCODE
bdy
int bdy
Definition: pro_dly.c:99
change_date1
void change_date1()
eyr
int eyr
Definition: pro_dly.c:98
edy
int edy
Definition: pro_dly.c:98
pro_dly
int pro_dly(char *hb5, char *parm, struct stim begin_date, struct stim end_date, char *qual, struct stn_values *stn_values)
Definition: pro_dly.c:208
bmo
int bmo
Definition: pro_dly.c:99
get_val31_array
int get_val31_array()
Definition: pro_dly.c:637
dly_rec
struct pro_dly_rec dly_rec
getmonthdays
int getmonthdays(int year, int month)
Definition: pro_dly.c:724
sqlca
struct sqlca_s sqlca
byr
int byr
Definition: pro_dly.c:99
_iqnprep
_SQCURSOR * _iqnprep()
data_rec
Definition: can.c:329
data_rec::idote
int idote
Definition: can.c:346
data_rec::cztime
int cztime
Definition: can.c:342
data_rec::source
char source[9]
Definition: can.c:331
data_rec::pe2
char pe2
Definition: can.c:333
data_rec::t
char t
Definition: can.c:335
data_rec::s
char s
Definition: can.c:336
data_rec::irev
int irev
Definition: can.c:347
data_rec::p
char p
Definition: can.c:338
data_rec::values
double values[96]
Definition: can.c:349
data_rec::lwal
char lwal
Definition: can.c:345
data_rec::zdate
int zdate
Definition: can.c:339
data_rec::lwals
char lwals[96]
Definition: can.c:350
data_rec::idur
int idur
Definition: can.c:343
data_rec::ztime
int ztime
Definition: can.c:340
data_rec::pedtsep
char pedtsep[8]
Definition: can.c:351
data_rec::codp
double codp
Definition: can.c:344
data_rec::dur
char dur
Definition: can.c:334
data_rec::pe1
char pe1
Definition: can.c:332
data_rec::value
double value
Definition: can.c:348
data_rec::e
char e
Definition: can.c:337
data_rec::czdate
int czdate
Definition: can.c:341
pro_dly_rec
Definition: can.c:218
pro_dly_rec::qzday06
char qzday06[2]
Definition: can.c:265
pro_dly_rec::zday10
double zday10
Definition: can.c:238
pro_dly_rec::zday04
double zday04
Definition: can.c:232
pro_dly_rec::qzday19
char qzday19[2]
Definition: can.c:278
pro_dly_rec::qzday17
char qzday17[2]
Definition: can.c:276
pro_dly_rec::zday17
double zday17
Definition: can.c:245
pro_dly_rec::qzday29
char qzday29[2]
Definition: can.c:288
pro_dly_rec::zday11
double zday11
Definition: can.c:239
pro_dly_rec::zday08
double zday08
Definition: can.c:236
pro_dly_rec::zday28
double zday28
Definition: can.c:256
pro_dly_rec::qzday01
char qzday01[2]
Definition: can.c:260
pro_dly_rec::e
char e[2]
Definition: can.c:225
pro_dly_rec::zday26
double zday26
Definition: can.c:254
pro_dly_rec::pe2
char pe2[2]
Definition: can.c:221
pro_dly_rec::qzday13
char qzday13[2]
Definition: can.c:272
pro_dly_rec::t
char t[2]
Definition: can.c:223
pro_dly_rec::zday18
double zday18
Definition: can.c:246
pro_dly_rec::qzday04
char qzday04[2]
Definition: can.c:263
pro_dly_rec::cal_yr
int cal_yr
Definition: can.c:227
pro_dly_rec::zday15
double zday15
Definition: can.c:243
pro_dly_rec::qzday05
char qzday05[2]
Definition: can.c:264
pro_dly_rec::qzday16
char qzday16[2]
Definition: can.c:275
pro_dly_rec::qzday26
char qzday26[2]
Definition: can.c:285
pro_dly_rec::zday22
double zday22
Definition: can.c:250
pro_dly_rec::zday31
double zday31
Definition: can.c:259
pro_dly_rec::zday09
double zday09
Definition: can.c:237
pro_dly_rec::qzday30
char qzday30[2]
Definition: can.c:289
pro_dly_rec::qzday28
char qzday28[2]
Definition: can.c:287
pro_dly_rec::qzday08
char qzday08[2]
Definition: can.c:267
pro_dly_rec::qzday25
char qzday25[2]
Definition: can.c:284
pro_dly_rec::zday30
double zday30
Definition: can.c:258
pro_dly_rec::zday05
double zday05
Definition: can.c:233
pro_dly_rec::zday14
double zday14
Definition: can.c:242
pro_dly_rec::zday01
double zday01
Definition: can.c:229
pro_dly_rec::pe1
char pe1[2]
Definition: can.c:220
pro_dly_rec::zday23
double zday23
Definition: can.c:251
pro_dly_rec::zday20
double zday20
Definition: can.c:248
pro_dly_rec::zday27
double zday27
Definition: can.c:255
pro_dly_rec::zday07
double zday07
Definition: can.c:235
pro_dly_rec::qzday14
char qzday14[2]
Definition: can.c:273
pro_dly_rec::qzday15
char qzday15[2]
Definition: can.c:274
pro_dly_rec::zday06
double zday06
Definition: can.c:234
pro_dly_rec::qzday09
char qzday09[2]
Definition: can.c:268
pro_dly_rec::qzday21
char qzday21[2]
Definition: can.c:280
pro_dly_rec::zday19
double zday19
Definition: can.c:247
pro_dly_rec::qzday23
char qzday23[2]
Definition: can.c:282
pro_dly_rec::qzday31
char qzday31[2]
Definition: can.c:290
pro_dly_rec::qzday27
char qzday27[2]
Definition: can.c:286
pro_dly_rec::qzday07
char qzday07[2]
Definition: can.c:266
pro_dly_rec::zday02
double zday02
Definition: can.c:230
pro_dly_rec::p
char p[2]
Definition: can.c:226
pro_dly_rec::zday24
double zday24
Definition: can.c:252
pro_dly_rec::qzday22
char qzday22[2]
Definition: can.c:281
pro_dly_rec::zday12
double zday12
Definition: can.c:240
pro_dly_rec::zday13
double zday13
Definition: can.c:241
pro_dly_rec::qzday12
char qzday12[2]
Definition: can.c:271
pro_dly_rec::zday03
double zday03
Definition: can.c:231
pro_dly_rec::s
char s[2]
Definition: can.c:224
pro_dly_rec::zday21
double zday21
Definition: can.c:249
pro_dly_rec::qzday24
char qzday24[2]
Definition: can.c:283
pro_dly_rec::zday16
double zday16
Definition: can.c:244
pro_dly_rec::mon
int mon
Definition: can.c:228
pro_dly_rec::qzday20
char qzday20[2]
Definition: can.c:279
pro_dly_rec::zday29
double zday29
Definition: can.c:257
pro_dly_rec::zday25
double zday25
Definition: can.c:253
pro_dly_rec::qzday02
char qzday02[2]
Definition: can.c:261
pro_dly_rec::dur
char dur[2]
Definition: can.c:222
pro_dly_rec::qzday18
char qzday18[2]
Definition: can.c:277
pro_dly_rec::qzday10
char qzday10[2]
Definition: can.c:269
pro_dly_rec::qzday03
char qzday03[2]
Definition: can.c:262
pro_dly_rec::qzday11
char qzday11[2]
Definition: can.c:270
sqlca_s::sqlcaw_s::sqlwarn5
char sqlwarn5
Definition: build_list.c:72
sqlca_s::sqlcaw_s::sqlwarn3
char sqlwarn3
Definition: build_list.c:68
sqlca_s::sqlcaw_s::sqlwarn4
char sqlwarn4
Definition: build_list.c:70
sqlca_s::sqlcaw_s::sqlwarn7
char sqlwarn7
Definition: build_list.c:74
sqlca_s::sqlcaw_s::sqlwarn1
char sqlwarn1
Definition: build_list.c:63
sqlca_s::sqlcaw_s::sqlwarn6
char sqlwarn6
Definition: build_list.c:73
sqlca_s::sqlcaw_s::sqlwarn2
char sqlwarn2
Definition: build_list.c:66
sqlca_s::sqlcaw_s::sqlwarn0
char sqlwarn0
Definition: build_list.c:62
sqlca_s
Definition: build_list.c:46
sqlca_s::sqlerrd
long sqlerrd[6]
Definition: build_list.c:50
sqlca_s::sqlcode
long sqlcode
Definition: build_list.c:47
sqlca_s::sqlwarn
struct sqlca_s::sqlcaw_s sqlwarn
sqlca_s::sqlerrm
char sqlerrm[72]
Definition: build_list.c:48
sqlca_s::sqlerrp
char sqlerrp[8]
Definition: build_list.c:49
stim
Definition: misc.h:55
stim::minute
int minute
Definition: misc.h:61
stim::day
int day
Definition: misc.h:59
stim::year
int year
Definition: misc.h:57
stim::hour
int hour
Definition: misc.h:60
stim::month
int month
Definition: misc.h:58
stn_values
Definition: misc.h:88
stn_values::qual
char qual
Definition: misc.h:93
stn_values::zdate
int zdate
Definition: misc.h:90
stn_values::ztime
int ztime
Definition: misc.h:91
stn_values::value
float value
Definition: misc.h:92
Generated by doxygen 1.9.1