Mapper
pro_hrly.c
Go to the documentation of this file.
1 #include <sqlhdr.h>
2 #include <sqliapi.h>
3 #line 1 "pro_hrly.ec"
4 #include "prototypes_new.h"
5 /*
6  * EXEC SQL include sqlca.h;
7  */
8 #line 2 "pro_hrly.ec"
9 
10 #line 2 "pro_hrly.ec"
11 #line 1 "/opt/informix/incl/esql/sqlca.h"
12 /****************************************************************************
13  *
14  * Licensed Material - Property Of IBM
15  *
16  * "Restricted Materials of IBM"
17  *
18  * IBM Informix Client SDK
19  * Copyright IBM Corporation 1997, 2008. All rights reserved.
20  *
21  * Title: sqlca.h
22  * Description: SQL Control Area
23  *
24  ***************************************************************************
25  */
26 
27 #ifndef SQLCA_INCL
28 #define SQLCA_INCL
29 
30 #include "ifxtypes.h"
31 
32 #ifdef __cplusplus
33 extern "C" {
34 #endif
35 
36 typedef struct sqlca_s
37  {
38  int4 sqlcode;
39 #ifdef DB2CLI
40  char sqlerrm[600]; /* error message parameters */
41 #else /* DB2CLI */
42  char sqlerrm[72]; /* error message parameters */
43 #endif /* DB2CLI */
44  char sqlerrp[8];
45  int4 sqlerrd[6];
46  /* 0 - estimated number of rows returned */
47  /* 1 - serial value after insert or ISAM error code */
48  /* 2 - number of rows processed */
49  /* 3 - estimated cost */
50  /* 4 - offset of the error into the SQL statement */
51  /* 5 - rowid after insert */
52 #ifdef _FGL_
53  char sqlawarn[8];
54 #else
55  struct sqlcaw_s
56  {
57  char sqlwarn0; /* = W if any of sqlwarn[1-7] = W */
58  char sqlwarn1; /* = W if any truncation occurred or
59  database has transactions or
60  no privileges revoked */
61  char sqlwarn2; /* = W if a null value returned or
62  ANSI database */
63  char sqlwarn3; /* = W if no. in select list != no. in into list or
64  turbo backend or no privileges granted */
65  char sqlwarn4; /* = W if no where clause on prepared update, delete or
66  incompatible float format */
67  char sqlwarn5; /* = W if non-ANSI statement */
68  char sqlwarn6; /* = W if server is in data replication secondary mode */
69  char sqlwarn7; /* = W if database locale is different from proc_locale
70  = W if backend XPS and if explain avoid_execute is set
71  (for select, insert, delete and update only)
72  */
73  } sqlwarn;
74 #endif
75  } ifx_sqlca_t;
76 
77 /* NOTE: 4gl assumes that the sqlwarn structure can be defined as
78  * sqlawarn -- an 8 character string, because single-char
79  * variables are not recognized in 4gl.
80  *
81  * If this structure should change, the code generated by 4gl compiler
82  * must also change
83  */
84 
85 #define SQLNOTFOUND 100
86 
87 #ifndef IFX_THREAD
88 #ifdef DB2CLI
89 #define sqlca ifmxsqlca
90 extern struct sqlca_s sqlca;
91 #else /* DB2CLI */
92 extern struct sqlca_s sqlca;
93 #endif /* DB2CLI */
94 
95 #ifndef DRDAHELP
96 extern int4 SQLCODE;
97 #endif
98 
99 extern char SQLSTATE[];
100 #else /* IFX_THREAD */
101 extern int4 * ifx_sqlcode(void);
102 extern struct sqlca_s * ifx_sqlca(void);
103 /* ifx_sqlstate() declared in sqlhdr.h */
104 #define SQLCODE (*(ifx_sqlcode()))
105 #define SQLSTATE ((char *)(ifx_sqlstate()))
106 #define sqlca (*(ifx_sqlca()))
107 #endif /* IFX_THREAD */
108 
109 #ifdef __cplusplus
110 }
111 #endif
112 
113 #endif /* SQLCA_INCL */
114 
115 #line 103 "/opt/informix/incl/esql/sqlca.h"
116 #line 3 "pro_hrly.ec"
117 
118 /*
119  * EXEC SQL BEGIN DECLARE SECTION;
120  */
121 #line 4 "pro_hrly.ec"
122 #line 5 "pro_hrly.ec"
123 int eyr, emo, edy;
124 int byr, bmo, bdy;
125 extern struct pro_hrly_rec
126  {
127  char id[6];
128  char pe1[2];
129  char pe2[2];
130  char dur[2];
131  char t[2];
132  char s[2];
133  char e[2];
134  char p[2];
135  int cal_yr;
136  int mon;
137  int zday;
138  double zhr00;
139  double zhr01;
140  double zhr02;
141  double zhr03;
142  double zhr04;
143  double zhr05;
144  double zhr06;
145  double zhr07;
146  double zhr08;
147  double zhr09;
148  double zhr10;
149  double zhr11;
150  double zhr12;
151  double zhr13;
152  double zhr14;
153  double zhr15;
154  double zhr16;
155  double zhr17;
156  double zhr18;
157  double zhr19;
158  double zhr20;
159  double zhr21;
160  double zhr22;
161  double zhr23;
162  char qzhr00[2];
163  char qzhr01[2];
164  char qzhr02[2];
165  char qzhr03[2];
166  char qzhr04[2];
167  char qzhr05[2];
168  char qzhr06[2];
169  char qzhr07[2];
170  char qzhr08[2];
171  char qzhr09[2];
172  char qzhr10[2];
173  char qzhr11[2];
174  char qzhr12[2];
175  char qzhr13[2];
176  char qzhr14[2];
177  char qzhr15[2];
178  char qzhr16[2];
179  char qzhr17[2];
180  char qzhr18[2];
181  char qzhr19[2];
182  char qzhr20[2];
183  char qzhr21[2];
184  char qzhr22[2];
185  char qzhr23[2];
186  } hrly_rec;
187 /*
188  * EXEC SQL END DECLARE SECTION;
189  */
190 #line 73 "pro_hrly.ec"
191 
192 
193 extern struct data_rec {
194  char id[9];
195  char source[9];
196  char pe1;
197  char pe2;
198  char dur;
199  char t;
200  char s;
201  char e;
202  char p;
203  int zdate;
204  int ztime;
205  int czdate;
206  int cztime;
207  int idur;
208  double codp;
209  char lwal;
210  int idote;
211  int irev;
212  double value;
213  double values[96];
214  char lwals[96];
215  char pedtsep[8];
216  } data_record;
217 
218 void change_dateh();
219 
220 int pro_hrly(char *hb5,char *parm,struct stim begin_date,struct stim
221 end_date, char *qual, struct stn_values *stn_values)
222 
223 {
224 
225 int i,jtotal,k,atime;
226 int etime,btime;
227 int hour,min;
228 int zdate,hh,qlen;
229 
230 /*
231  * EXEC SQL BEGIN DECLARE SECTION;
232  */
233 #line 112 "pro_hrly.ec"
234 #line 113 "pro_hrly.ec"
235 int edate, bdate;
236 int month, day, year;
237  char sparm[10];
238 struct stat
239  {
240  char hb5[6];
241  char pe1[2];
242  char pe2[2];
243  char dur[2];
244  char t[2];
245  char s[2];
246  char e[2];
247  char p[2];
248  } stat;
249 /*
250  * EXEC SQL END DECLARE SECTION;
251  */
252 #line 129 "pro_hrly.ec"
253 
254 
255 qlen=strlen(qual);
256 
257 stat.pe1[1]=0;
258 stat.pe2[1]=0;
259 stat.dur[1]=0;
260 stat.t[1]=0;
261 stat.s[1]=0;
262 stat.e[1]=0;
263 stat.p[1]=0;
264 
265 strcpy(stat.hb5,hb5);
266 stat.pe1[0]=parm[0];
267 stat.pe2[0]=parm[1];
268 stat.dur[0]=parm[2];
269 stat.t[0]=parm[3];
270 stat.s[0]=parm[4];
271 stat.e[0]=parm[5];
272 stat.p[0]=parm[6];
273 
274 eyr=end_date.year;
275 emo=end_date.month;
276 edy=end_date.day;
277 etime=end_date.hour*10000+
278  end_date.minute*100;
279 
280 byr=begin_date.year;
281 bmo=begin_date.month;
282 bdy=begin_date.day;
283 btime=begin_date.hour*10000+
284  begin_date.minute*100;
285 
286 year=byr;
287 month=bmo;
288 day=bdy;
289 
290 jtotal=0;
291 
292 for(;;) {
293 
294 /*
295  * EXEC SQL select *
296  * into :hrly_rec
297  * from prohrly
298  * where id=:stat.hb5 and
299  * pe1=:stat.pe1 and
300  * pe2=:stat.pe2 and
301  * dur=:stat.dur and
302  * t=:stat.t and
303  * s=:stat.s and
304  * e=:stat.e and
305  * p=:stat.p and
306  * cal_yr=:year and
307  * mon=:month and
308  * zday=:day
309  *
310  * union
311  *
312  * select *
313  * into :hrly_rec
314  * from calhrly
315  * where id=:stat.hb5 and
316  * pe1=:stat.pe1 and
317  * pe2=:stat.pe2 and
318  * dur=:stat.dur and
319  * t=:stat.t and
320  * s=:stat.s and
321  * e=:stat.e and
322  * p=:stat.p and
323  * cal_yr=:year and
324  * mon=:month and
325  * zday=:day;
326  */
327 #line 170 "pro_hrly.ec"
328  {
329 #line 200 "pro_hrly.ec"
330  static const char *sqlcmdtxt[] =
331 #line 200 "pro_hrly.ec"
332  {
333 #line 200 "pro_hrly.ec"
334  "select * from prohrly where id = ? and pe1 = ? and pe2 = ? and dur = ? and t = ? and s = ? and e = ? and p = ? and cal_yr = ? and mon = ? and zday = ? union select * from calhrly where id = ? and pe1 = ? and pe2 = ? and dur = ? and t = ? and s = ? and e = ? and p = ? and cal_yr = ? and mon = ? and zday = ?",
335  0
336  };
337 #line 200 "pro_hrly.ec"
338 static ifx_cursor_t _SQ0 = {0};
339  static ifx_sqlvar_t _sqibind[] =
340  {
341  { 100, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
342  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
343  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
344  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
345  { 100, 2, 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  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
348  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
349  { 102, sizeof(year), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
350  { 102, sizeof(month), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
351  { 102, sizeof(day), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
352  { 100, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
353  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
354  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
355  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
356  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
357  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
358  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
359  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
360  { 102, sizeof(year), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
361  { 102, sizeof(month), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
362  { 102, sizeof(day), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
363 #line 200 "pro_hrly.ec"
364  };
365  static ifx_sqlvar_t _sqobind[] =
366  {
367  { 100, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
368  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
369  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
370  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
371  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
372  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
373  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
374  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
375  { 102, sizeof((hrly_rec).cal_yr), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
376  { 102, sizeof((hrly_rec).mon), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
377  { 102, sizeof((hrly_rec).zday), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
378  { 105, sizeof((hrly_rec).zhr00), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
379  { 105, sizeof((hrly_rec).zhr01), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
380  { 105, sizeof((hrly_rec).zhr02), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
381  { 105, sizeof((hrly_rec).zhr03), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
382  { 105, sizeof((hrly_rec).zhr04), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
383  { 105, sizeof((hrly_rec).zhr05), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
384  { 105, sizeof((hrly_rec).zhr06), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
385  { 105, sizeof((hrly_rec).zhr07), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
386  { 105, sizeof((hrly_rec).zhr08), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
387  { 105, sizeof((hrly_rec).zhr09), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
388  { 105, sizeof((hrly_rec).zhr10), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
389  { 105, sizeof((hrly_rec).zhr11), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
390  { 105, sizeof((hrly_rec).zhr12), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
391  { 105, sizeof((hrly_rec).zhr13), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
392  { 105, sizeof((hrly_rec).zhr14), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
393  { 105, sizeof((hrly_rec).zhr15), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
394  { 105, sizeof((hrly_rec).zhr16), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
395  { 105, sizeof((hrly_rec).zhr17), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
396  { 105, sizeof((hrly_rec).zhr18), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
397  { 105, sizeof((hrly_rec).zhr19), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
398  { 105, sizeof((hrly_rec).zhr20), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
399  { 105, sizeof((hrly_rec).zhr21), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
400  { 105, sizeof((hrly_rec).zhr22), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
401  { 105, sizeof((hrly_rec).zhr23), 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, 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, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
414  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
415  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
416  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
417  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
418  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
419  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
420  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
421  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
422  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
423  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
424  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
425  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
426  { 100, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
427  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
428  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
429  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
430  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
431  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
432  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
433  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
434  { 102, sizeof((hrly_rec).cal_yr), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
435  { 102, sizeof((hrly_rec).mon), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
436  { 102, sizeof((hrly_rec).zday), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
437  { 105, sizeof((hrly_rec).zhr00), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
438  { 105, sizeof((hrly_rec).zhr01), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
439  { 105, sizeof((hrly_rec).zhr02), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
440  { 105, sizeof((hrly_rec).zhr03), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
441  { 105, sizeof((hrly_rec).zhr04), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
442  { 105, sizeof((hrly_rec).zhr05), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
443  { 105, sizeof((hrly_rec).zhr06), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
444  { 105, sizeof((hrly_rec).zhr07), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
445  { 105, sizeof((hrly_rec).zhr08), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
446  { 105, sizeof((hrly_rec).zhr09), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
447  { 105, sizeof((hrly_rec).zhr10), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
448  { 105, sizeof((hrly_rec).zhr11), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
449  { 105, sizeof((hrly_rec).zhr12), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
450  { 105, sizeof((hrly_rec).zhr13), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
451  { 105, sizeof((hrly_rec).zhr14), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
452  { 105, sizeof((hrly_rec).zhr15), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
453  { 105, sizeof((hrly_rec).zhr16), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
454  { 105, sizeof((hrly_rec).zhr17), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
455  { 105, sizeof((hrly_rec).zhr18), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
456  { 105, sizeof((hrly_rec).zhr19), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
457  { 105, sizeof((hrly_rec).zhr20), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
458  { 105, sizeof((hrly_rec).zhr21), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
459  { 105, sizeof((hrly_rec).zhr22), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
460  { 105, sizeof((hrly_rec).zhr23), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
461  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
462  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
463  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
464  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
465  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
466  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
467  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
468  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
469  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
470  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
471  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
472  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
473  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
474  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
475  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
476  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
477  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
478  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
479  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
480  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
481  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
482  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
483  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
484  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
485 #line 200 "pro_hrly.ec"
486  };
487 #line 200 "pro_hrly.ec"
488  _sqibind[0].sqldata = stat.hb5;
489 #line 200 "pro_hrly.ec"
490  _sqibind[1].sqldata = stat.pe1;
491 #line 200 "pro_hrly.ec"
492  _sqibind[2].sqldata = stat.pe2;
493 #line 200 "pro_hrly.ec"
494  _sqibind[3].sqldata = stat.dur;
495 #line 200 "pro_hrly.ec"
496  _sqibind[4].sqldata = stat.t;
497 #line 200 "pro_hrly.ec"
498  _sqibind[5].sqldata = stat.s;
499 #line 200 "pro_hrly.ec"
500  _sqibind[6].sqldata = stat.e;
501 #line 200 "pro_hrly.ec"
502  _sqibind[7].sqldata = stat.p;
503 #line 200 "pro_hrly.ec"
504  _sqibind[8].sqldata = (char *) &year;
505 #line 200 "pro_hrly.ec"
506  _sqibind[9].sqldata = (char *) &month;
507 #line 200 "pro_hrly.ec"
508  _sqibind[10].sqldata = (char *) &day;
509 #line 200 "pro_hrly.ec"
510  _sqibind[11].sqldata = stat.hb5;
511 #line 200 "pro_hrly.ec"
512  _sqibind[12].sqldata = stat.pe1;
513 #line 200 "pro_hrly.ec"
514  _sqibind[13].sqldata = stat.pe2;
515 #line 200 "pro_hrly.ec"
516  _sqibind[14].sqldata = stat.dur;
517 #line 200 "pro_hrly.ec"
518  _sqibind[15].sqldata = stat.t;
519 #line 200 "pro_hrly.ec"
520  _sqibind[16].sqldata = stat.s;
521 #line 200 "pro_hrly.ec"
522  _sqibind[17].sqldata = stat.e;
523 #line 200 "pro_hrly.ec"
524  _sqibind[18].sqldata = stat.p;
525 #line 200 "pro_hrly.ec"
526  _sqibind[19].sqldata = (char *) &year;
527 #line 200 "pro_hrly.ec"
528  _sqibind[20].sqldata = (char *) &month;
529 #line 200 "pro_hrly.ec"
530  _sqibind[21].sqldata = (char *) &day;
531 #line 200 "pro_hrly.ec"
532  _sqobind[0].sqldata = (hrly_rec).id;
533 #line 200 "pro_hrly.ec"
534  _sqobind[1].sqldata = (hrly_rec).pe1;
535 #line 200 "pro_hrly.ec"
536  _sqobind[2].sqldata = (hrly_rec).pe2;
537 #line 200 "pro_hrly.ec"
538  _sqobind[3].sqldata = (hrly_rec).dur;
539 #line 200 "pro_hrly.ec"
540  _sqobind[4].sqldata = (hrly_rec).t;
541 #line 200 "pro_hrly.ec"
542  _sqobind[5].sqldata = (hrly_rec).s;
543 #line 200 "pro_hrly.ec"
544  _sqobind[6].sqldata = (hrly_rec).e;
545 #line 200 "pro_hrly.ec"
546  _sqobind[7].sqldata = (hrly_rec).p;
547 #line 200 "pro_hrly.ec"
548  _sqobind[8].sqldata = (char *) &(hrly_rec).cal_yr;
549 #line 200 "pro_hrly.ec"
550  _sqobind[9].sqldata = (char *) &(hrly_rec).mon;
551 #line 200 "pro_hrly.ec"
552  _sqobind[10].sqldata = (char *) &(hrly_rec).zday;
553 #line 200 "pro_hrly.ec"
554  _sqobind[11].sqldata = (char *) &(hrly_rec).zhr00;
555 #line 200 "pro_hrly.ec"
556  _sqobind[12].sqldata = (char *) &(hrly_rec).zhr01;
557 #line 200 "pro_hrly.ec"
558  _sqobind[13].sqldata = (char *) &(hrly_rec).zhr02;
559 #line 200 "pro_hrly.ec"
560  _sqobind[14].sqldata = (char *) &(hrly_rec).zhr03;
561 #line 200 "pro_hrly.ec"
562  _sqobind[15].sqldata = (char *) &(hrly_rec).zhr04;
563 #line 200 "pro_hrly.ec"
564  _sqobind[16].sqldata = (char *) &(hrly_rec).zhr05;
565 #line 200 "pro_hrly.ec"
566  _sqobind[17].sqldata = (char *) &(hrly_rec).zhr06;
567 #line 200 "pro_hrly.ec"
568  _sqobind[18].sqldata = (char *) &(hrly_rec).zhr07;
569 #line 200 "pro_hrly.ec"
570  _sqobind[19].sqldata = (char *) &(hrly_rec).zhr08;
571 #line 200 "pro_hrly.ec"
572  _sqobind[20].sqldata = (char *) &(hrly_rec).zhr09;
573 #line 200 "pro_hrly.ec"
574  _sqobind[21].sqldata = (char *) &(hrly_rec).zhr10;
575 #line 200 "pro_hrly.ec"
576  _sqobind[22].sqldata = (char *) &(hrly_rec).zhr11;
577 #line 200 "pro_hrly.ec"
578  _sqobind[23].sqldata = (char *) &(hrly_rec).zhr12;
579 #line 200 "pro_hrly.ec"
580  _sqobind[24].sqldata = (char *) &(hrly_rec).zhr13;
581 #line 200 "pro_hrly.ec"
582  _sqobind[25].sqldata = (char *) &(hrly_rec).zhr14;
583 #line 200 "pro_hrly.ec"
584  _sqobind[26].sqldata = (char *) &(hrly_rec).zhr15;
585 #line 200 "pro_hrly.ec"
586  _sqobind[27].sqldata = (char *) &(hrly_rec).zhr16;
587 #line 200 "pro_hrly.ec"
588  _sqobind[28].sqldata = (char *) &(hrly_rec).zhr17;
589 #line 200 "pro_hrly.ec"
590  _sqobind[29].sqldata = (char *) &(hrly_rec).zhr18;
591 #line 200 "pro_hrly.ec"
592  _sqobind[30].sqldata = (char *) &(hrly_rec).zhr19;
593 #line 200 "pro_hrly.ec"
594  _sqobind[31].sqldata = (char *) &(hrly_rec).zhr20;
595 #line 200 "pro_hrly.ec"
596  _sqobind[32].sqldata = (char *) &(hrly_rec).zhr21;
597 #line 200 "pro_hrly.ec"
598  _sqobind[33].sqldata = (char *) &(hrly_rec).zhr22;
599 #line 200 "pro_hrly.ec"
600  _sqobind[34].sqldata = (char *) &(hrly_rec).zhr23;
601 #line 200 "pro_hrly.ec"
602  _sqobind[35].sqldata = (hrly_rec).qzhr00;
603 #line 200 "pro_hrly.ec"
604  _sqobind[36].sqldata = (hrly_rec).qzhr01;
605 #line 200 "pro_hrly.ec"
606  _sqobind[37].sqldata = (hrly_rec).qzhr02;
607 #line 200 "pro_hrly.ec"
608  _sqobind[38].sqldata = (hrly_rec).qzhr03;
609 #line 200 "pro_hrly.ec"
610  _sqobind[39].sqldata = (hrly_rec).qzhr04;
611 #line 200 "pro_hrly.ec"
612  _sqobind[40].sqldata = (hrly_rec).qzhr05;
613 #line 200 "pro_hrly.ec"
614  _sqobind[41].sqldata = (hrly_rec).qzhr06;
615 #line 200 "pro_hrly.ec"
616  _sqobind[42].sqldata = (hrly_rec).qzhr07;
617 #line 200 "pro_hrly.ec"
618  _sqobind[43].sqldata = (hrly_rec).qzhr08;
619 #line 200 "pro_hrly.ec"
620  _sqobind[44].sqldata = (hrly_rec).qzhr09;
621 #line 200 "pro_hrly.ec"
622  _sqobind[45].sqldata = (hrly_rec).qzhr10;
623 #line 200 "pro_hrly.ec"
624  _sqobind[46].sqldata = (hrly_rec).qzhr11;
625 #line 200 "pro_hrly.ec"
626  _sqobind[47].sqldata = (hrly_rec).qzhr12;
627 #line 200 "pro_hrly.ec"
628  _sqobind[48].sqldata = (hrly_rec).qzhr13;
629 #line 200 "pro_hrly.ec"
630  _sqobind[49].sqldata = (hrly_rec).qzhr14;
631 #line 200 "pro_hrly.ec"
632  _sqobind[50].sqldata = (hrly_rec).qzhr15;
633 #line 200 "pro_hrly.ec"
634  _sqobind[51].sqldata = (hrly_rec).qzhr16;
635 #line 200 "pro_hrly.ec"
636  _sqobind[52].sqldata = (hrly_rec).qzhr17;
637 #line 200 "pro_hrly.ec"
638  _sqobind[53].sqldata = (hrly_rec).qzhr18;
639 #line 200 "pro_hrly.ec"
640  _sqobind[54].sqldata = (hrly_rec).qzhr19;
641 #line 200 "pro_hrly.ec"
642  _sqobind[55].sqldata = (hrly_rec).qzhr20;
643 #line 200 "pro_hrly.ec"
644  _sqobind[56].sqldata = (hrly_rec).qzhr21;
645 #line 200 "pro_hrly.ec"
646  _sqobind[57].sqldata = (hrly_rec).qzhr22;
647 #line 200 "pro_hrly.ec"
648  _sqobind[58].sqldata = (hrly_rec).qzhr23;
649 #line 200 "pro_hrly.ec"
650  _sqobind[59].sqldata = (hrly_rec).id;
651 #line 200 "pro_hrly.ec"
652  _sqobind[60].sqldata = (hrly_rec).pe1;
653 #line 200 "pro_hrly.ec"
654  _sqobind[61].sqldata = (hrly_rec).pe2;
655 #line 200 "pro_hrly.ec"
656  _sqobind[62].sqldata = (hrly_rec).dur;
657 #line 200 "pro_hrly.ec"
658  _sqobind[63].sqldata = (hrly_rec).t;
659 #line 200 "pro_hrly.ec"
660  _sqobind[64].sqldata = (hrly_rec).s;
661 #line 200 "pro_hrly.ec"
662  _sqobind[65].sqldata = (hrly_rec).e;
663 #line 200 "pro_hrly.ec"
664  _sqobind[66].sqldata = (hrly_rec).p;
665 #line 200 "pro_hrly.ec"
666  _sqobind[67].sqldata = (char *) &(hrly_rec).cal_yr;
667 #line 200 "pro_hrly.ec"
668  _sqobind[68].sqldata = (char *) &(hrly_rec).mon;
669 #line 200 "pro_hrly.ec"
670  _sqobind[69].sqldata = (char *) &(hrly_rec).zday;
671 #line 200 "pro_hrly.ec"
672  _sqobind[70].sqldata = (char *) &(hrly_rec).zhr00;
673 #line 200 "pro_hrly.ec"
674  _sqobind[71].sqldata = (char *) &(hrly_rec).zhr01;
675 #line 200 "pro_hrly.ec"
676  _sqobind[72].sqldata = (char *) &(hrly_rec).zhr02;
677 #line 200 "pro_hrly.ec"
678  _sqobind[73].sqldata = (char *) &(hrly_rec).zhr03;
679 #line 200 "pro_hrly.ec"
680  _sqobind[74].sqldata = (char *) &(hrly_rec).zhr04;
681 #line 200 "pro_hrly.ec"
682  _sqobind[75].sqldata = (char *) &(hrly_rec).zhr05;
683 #line 200 "pro_hrly.ec"
684  _sqobind[76].sqldata = (char *) &(hrly_rec).zhr06;
685 #line 200 "pro_hrly.ec"
686  _sqobind[77].sqldata = (char *) &(hrly_rec).zhr07;
687 #line 200 "pro_hrly.ec"
688  _sqobind[78].sqldata = (char *) &(hrly_rec).zhr08;
689 #line 200 "pro_hrly.ec"
690  _sqobind[79].sqldata = (char *) &(hrly_rec).zhr09;
691 #line 200 "pro_hrly.ec"
692  _sqobind[80].sqldata = (char *) &(hrly_rec).zhr10;
693 #line 200 "pro_hrly.ec"
694  _sqobind[81].sqldata = (char *) &(hrly_rec).zhr11;
695 #line 200 "pro_hrly.ec"
696  _sqobind[82].sqldata = (char *) &(hrly_rec).zhr12;
697 #line 200 "pro_hrly.ec"
698  _sqobind[83].sqldata = (char *) &(hrly_rec).zhr13;
699 #line 200 "pro_hrly.ec"
700  _sqobind[84].sqldata = (char *) &(hrly_rec).zhr14;
701 #line 200 "pro_hrly.ec"
702  _sqobind[85].sqldata = (char *) &(hrly_rec).zhr15;
703 #line 200 "pro_hrly.ec"
704  _sqobind[86].sqldata = (char *) &(hrly_rec).zhr16;
705 #line 200 "pro_hrly.ec"
706  _sqobind[87].sqldata = (char *) &(hrly_rec).zhr17;
707 #line 200 "pro_hrly.ec"
708  _sqobind[88].sqldata = (char *) &(hrly_rec).zhr18;
709 #line 200 "pro_hrly.ec"
710  _sqobind[89].sqldata = (char *) &(hrly_rec).zhr19;
711 #line 200 "pro_hrly.ec"
712  _sqobind[90].sqldata = (char *) &(hrly_rec).zhr20;
713 #line 200 "pro_hrly.ec"
714  _sqobind[91].sqldata = (char *) &(hrly_rec).zhr21;
715 #line 200 "pro_hrly.ec"
716  _sqobind[92].sqldata = (char *) &(hrly_rec).zhr22;
717 #line 200 "pro_hrly.ec"
718  _sqobind[93].sqldata = (char *) &(hrly_rec).zhr23;
719 #line 200 "pro_hrly.ec"
720  _sqobind[94].sqldata = (hrly_rec).qzhr00;
721 #line 200 "pro_hrly.ec"
722  _sqobind[95].sqldata = (hrly_rec).qzhr01;
723 #line 200 "pro_hrly.ec"
724  _sqobind[96].sqldata = (hrly_rec).qzhr02;
725 #line 200 "pro_hrly.ec"
726  _sqobind[97].sqldata = (hrly_rec).qzhr03;
727 #line 200 "pro_hrly.ec"
728  _sqobind[98].sqldata = (hrly_rec).qzhr04;
729 #line 200 "pro_hrly.ec"
730  _sqobind[99].sqldata = (hrly_rec).qzhr05;
731 #line 200 "pro_hrly.ec"
732  _sqobind[100].sqldata = (hrly_rec).qzhr06;
733 #line 200 "pro_hrly.ec"
734  _sqobind[101].sqldata = (hrly_rec).qzhr07;
735 #line 200 "pro_hrly.ec"
736  _sqobind[102].sqldata = (hrly_rec).qzhr08;
737 #line 200 "pro_hrly.ec"
738  _sqobind[103].sqldata = (hrly_rec).qzhr09;
739 #line 200 "pro_hrly.ec"
740  _sqobind[104].sqldata = (hrly_rec).qzhr10;
741 #line 200 "pro_hrly.ec"
742  _sqobind[105].sqldata = (hrly_rec).qzhr11;
743 #line 200 "pro_hrly.ec"
744  _sqobind[106].sqldata = (hrly_rec).qzhr12;
745 #line 200 "pro_hrly.ec"
746  _sqobind[107].sqldata = (hrly_rec).qzhr13;
747 #line 200 "pro_hrly.ec"
748  _sqobind[108].sqldata = (hrly_rec).qzhr14;
749 #line 200 "pro_hrly.ec"
750  _sqobind[109].sqldata = (hrly_rec).qzhr15;
751 #line 200 "pro_hrly.ec"
752  _sqobind[110].sqldata = (hrly_rec).qzhr16;
753 #line 200 "pro_hrly.ec"
754  _sqobind[111].sqldata = (hrly_rec).qzhr17;
755 #line 200 "pro_hrly.ec"
756  _sqobind[112].sqldata = (hrly_rec).qzhr18;
757 #line 200 "pro_hrly.ec"
758  _sqobind[113].sqldata = (hrly_rec).qzhr19;
759 #line 200 "pro_hrly.ec"
760  _sqobind[114].sqldata = (hrly_rec).qzhr20;
761 #line 200 "pro_hrly.ec"
762  _sqobind[115].sqldata = (hrly_rec).qzhr21;
763 #line 200 "pro_hrly.ec"
764  _sqobind[116].sqldata = (hrly_rec).qzhr22;
765 #line 200 "pro_hrly.ec"
766  _sqobind[117].sqldata = (hrly_rec).qzhr23;
767 #line 200 "pro_hrly.ec"
768  sqli_slct(ESQLINTVERSION, &_SQ0,sqlcmdtxt,22,_sqibind,118,_sqobind,0,(ifx_literal_t *)0,(ifx_namelist_t *)0,0);
769 #line 200 "pro_hrly.ec"
770  }
771 
772 
773  if(sqlca.sqlcode < 0) {
774 
775 
776  return(sqlca.sqlcode);
777 
778  }
779 
780  if(sqlca.sqlcode == 0) {
781 
782 
783 
784  get_val24_array();
785 
786  for(k=23;k>=0;k--) {
787 
788  hour=k;
789  atime=hour*10000;
790  zdate=hrly_rec.cal_yr*10000+hrly_rec.mon*100+hrly_rec.zday;
791 
792  if(year==eyr && month==emo && day==edy &&
793  atime < etime)
794  break;
795 
796  if(year==byr && month==bmo && day==bdy &&
797  atime > btime)
798  continue;
799 
800  if(data_record.values[k] < -98)
801  continue;
802 
803 
804  if(*qual != 0) {
805 
806  for(hh=0;hh<qlen;hh++)
807  if(*(qual+hh) == data_record.lwals[k])
808  break;
809 
810  if(hh==qlen)
811  continue;
812 
813  }
814 
815  stn_values[jtotal].value=data_record.values[k];
816  stn_values[jtotal].zdate=zdate;
817  stn_values[jtotal].qual= data_record.lwals[k];
818 
819  stn_values[jtotal++].ztime=atime;
820 
821  }
822 
823 
824  }
825 
826  if(jtotal > 9600)
827  break;
828 
829  if(year==eyr && month==emo && day==edy)
830  break;
831 
832  change_dateh(&year,&month,&day);
833 
834  }
835 
836 return(jtotal);
837 
838 }
839 
840 int get_val24_array()
841 {
842 
843  data_record.values[0] = hrly_rec.zhr00;
844  data_record.values[1] = hrly_rec.zhr01;
845  data_record.values[2] = hrly_rec.zhr02;
846  data_record.values[3] = hrly_rec.zhr03;
847  data_record.values[4] = hrly_rec.zhr04;
848  data_record.values[5] = hrly_rec.zhr05;
849  data_record.values[6] = hrly_rec.zhr06;
850  data_record.values[7] = hrly_rec.zhr07;
851  data_record.values[8] = hrly_rec.zhr08;
852  data_record.values[9] = hrly_rec.zhr09;
853  data_record.values[10] = hrly_rec.zhr10;
854  data_record.values[11] = hrly_rec.zhr11;
855  data_record.values[12] = hrly_rec.zhr12;
856  data_record.values[13] = hrly_rec.zhr13;
857  data_record.values[14] = hrly_rec.zhr14;
858  data_record.values[15] = hrly_rec.zhr15;
859  data_record.values[16] = hrly_rec.zhr16;
860  data_record.values[17] = hrly_rec.zhr17;
861  data_record.values[18] = hrly_rec.zhr18;
862  data_record.values[19] = hrly_rec.zhr19;
863  data_record.values[20] = hrly_rec.zhr20;
864  data_record.values[21] = hrly_rec.zhr21;
865  data_record.values[22] = hrly_rec.zhr22;
866  data_record.values[23] = hrly_rec.zhr23;
867  data_record.lwals[0] = hrly_rec.qzhr00[0];
868  data_record.lwals[1] = hrly_rec.qzhr01[0];
869  data_record.lwals[2] = hrly_rec.qzhr02[0];
870  data_record.lwals[3] = hrly_rec.qzhr03[0];
871  data_record.lwals[4] = hrly_rec.qzhr04[0];
872  data_record.lwals[5] = hrly_rec.qzhr05[0];
873  data_record.lwals[6] = hrly_rec.qzhr06[0];
874  data_record.lwals[7] = hrly_rec.qzhr07[0];
875  data_record.lwals[8] = hrly_rec.qzhr08[0];
876  data_record.lwals[9] = hrly_rec.qzhr09[0];
877  data_record.lwals[10] = hrly_rec.qzhr10[0];
878  data_record.lwals[11] = hrly_rec.qzhr11[0];
879  data_record.lwals[12] = hrly_rec.qzhr12[0];
880  data_record.lwals[13] = hrly_rec.qzhr13[0];
881  data_record.lwals[14] = hrly_rec.qzhr14[0];
882  data_record.lwals[15] = hrly_rec.qzhr15[0];
883  data_record.lwals[16] = hrly_rec.qzhr16[0];
884  data_record.lwals[17] = hrly_rec.qzhr17[0];
885  data_record.lwals[18] = hrly_rec.qzhr18[0];
886  data_record.lwals[19] = hrly_rec.qzhr19[0];
887  data_record.lwals[20] = hrly_rec.qzhr20[0];
888  data_record.lwals[21] = hrly_rec.qzhr21[0];
889  data_record.lwals[22] = hrly_rec.qzhr22[0];
890  data_record.lwals[23] = hrly_rec.qzhr23[0];
891 
892  return(0);
893 }
894 
895 void change_dateh(int *year,int *month, int*day)
896 
897 {
898 
899 extern int mday[];
900 char buf[10];
901 XmString btn_text;
902 Arg args[10];
903 
904 if (!((*year)%4))
905  mday[1]=29;
906 else
907  mday[1]=28;
908 
909 /*
910 if ((*year)==1972 || (*year)==1976 || (*year)==1980 ||
911  (*year)==1984 || (*year)==1988 || (*year)==1992 ||
912  (*year)==1996 || (*year)==2000 || (*year)==2004 ||
913  (*year)==2008 || (*year)==2012 || (*year)==2016)
914  mday[1]=29;
915 else
916  mday[1]=28;
917 */
918 
919 (*day)--;
920 
921 if(*day <= 0) {
922 
923  (*month)--;
924  if(*month==0) {
925 
926  (*year)--;
927  *month=12;
928 
929  }
930 
931  *day=mday[*month-1];
932 
933  }
934 
935 else if(*day > mday[*month-1]) {
936 
937  *(month)++;
938 
939  if(*month > 12) {
940 
941  (*year)++;
942  *month=1;
943 
944  }
945 
946  *day=1;
947 
948  }
949 
950 
951 }
952 
953 
954 
955 #line 383 "pro_hrly.ec"
i
static int i
Definition: get_apps_defaults.c:110
hour
int hour
Definition: display_data.c:26
day
int day
Definition: display_data.c:26
year
int year
Definition: display_data.c:26
qual
char qual[10]
Definition: subdisplay.c:33
month
int month
Definition: display_data.c:26
mday
int mday[]
Definition: fmap_qtrly.c:519
mon
char * mon[]
Definition: get_isohyet_coord_new.c:3
buf
struct stat buf
Definition: is_file_closed.c:8
k
int k
Definition: mapp2h.h:48
args
Arg args[10]
Definition: plot_qpf_legend.c:23
emo
int emo
Definition: pro_hrly.c:123
data_record
struct data_rec data_record
bdy
int bdy
Definition: pro_hrly.c:124
eyr
int eyr
Definition: pro_hrly.c:123
edy
int edy
Definition: pro_hrly.c:123
bmo
int bmo
Definition: pro_hrly.c:124
SQLCODE
int4 SQLCODE
ifx_sqlca_t
struct sqlca_s ifx_sqlca_t
change_dateh
void change_dateh()
SQLSTATE
char SQLSTATE[]
sqlca
struct sqlca_s sqlca
byr
int byr
Definition: pro_hrly.c:124
pro_hrly
int pro_hrly(char *hb5, char *parm, struct stim begin_date, struct stim end_date, char *qual, struct stn_values *stn_values)
Definition: pro_hrly.c:220
hrly_rec
struct pro_hrly_rec hrly_rec
get_val24_array
int get_val24_array()
Definition: pro_hrly.c:840
prototypes_new.h
data_rec
Definition: calfma_qtrly.c:160
data_rec::idote
int idote
Definition: calfma_qtrly.c:177
data_rec::cztime
int cztime
Definition: calfma_qtrly.c:173
data_rec::source
char source[9]
Definition: calfma_qtrly.c:162
data_rec::pe2
char pe2
Definition: calfma_qtrly.c:164
data_rec::t
char t
Definition: calfma_qtrly.c:166
data_rec::s
char s
Definition: calfma_qtrly.c:167
data_rec::irev
int irev
Definition: calfma_qtrly.c:178
data_rec::p
char p
Definition: calfma_qtrly.c:169
data_rec::values
double values[96]
Definition: calfma_qtrly.c:180
data_rec::lwal
char lwal
Definition: calfma_qtrly.c:176
data_rec::zdate
int zdate
Definition: calfma_qtrly.c:170
data_rec::lwals
char lwals[96]
Definition: calfma_qtrly.c:181
data_rec::idur
int idur
Definition: calfma_qtrly.c:174
data_rec::ztime
int ztime
Definition: calfma_qtrly.c:171
data_rec::pedtsep
char pedtsep[8]
Definition: calfma_qtrly.c:182
data_rec::codp
double codp
Definition: calfma_qtrly.c:175
data_rec::dur
char dur
Definition: calfma_qtrly.c:165
data_rec::pe1
char pe1
Definition: calfma_qtrly.c:163
data_rec::value
double value
Definition: calfma_qtrly.c:179
data_rec::e
char e
Definition: calfma_qtrly.c:168
data_rec::czdate
int czdate
Definition: calfma_qtrly.c:172
pro_hrly_rec
Definition: pro_hrly.c:126
pro_hrly_rec::zhr02
double zhr02
Definition: pro_hrly.c:140
pro_hrly_rec::qzhr09
char qzhr09[2]
Definition: pro_hrly.c:171
pro_hrly_rec::zhr01
double zhr01
Definition: pro_hrly.c:139
pro_hrly_rec::zhr16
double zhr16
Definition: pro_hrly.c:154
pro_hrly_rec::zhr21
double zhr21
Definition: pro_hrly.c:159
pro_hrly_rec::qzhr17
char qzhr17[2]
Definition: pro_hrly.c:179
pro_hrly_rec::zhr15
double zhr15
Definition: pro_hrly.c:153
pro_hrly_rec::qzhr06
char qzhr06[2]
Definition: pro_hrly.c:168
pro_hrly_rec::qzhr02
char qzhr02[2]
Definition: pro_hrly.c:164
pro_hrly_rec::qzhr21
char qzhr21[2]
Definition: pro_hrly.c:183
pro_hrly_rec::dur
char dur[2]
Definition: pro_hrly.c:130
pro_hrly_rec::zhr22
double zhr22
Definition: pro_hrly.c:160
pro_hrly_rec::qzhr08
char qzhr08[2]
Definition: pro_hrly.c:170
pro_hrly_rec::pe2
char pe2[2]
Definition: pro_hrly.c:129
pro_hrly_rec::mon
int mon
Definition: pro_hrly.c:136
pro_hrly_rec::zhr05
double zhr05
Definition: pro_hrly.c:143
pro_hrly_rec::zhr11
double zhr11
Definition: pro_hrly.c:149
pro_hrly_rec::zhr00
double zhr00
Definition: pro_hrly.c:138
pro_hrly_rec::t
char t[2]
Definition: pro_hrly.c:131
pro_hrly_rec::zhr23
double zhr23
Definition: pro_hrly.c:161
pro_hrly_rec::zhr12
double zhr12
Definition: pro_hrly.c:150
pro_hrly_rec::qzhr20
char qzhr20[2]
Definition: pro_hrly.c:182
pro_hrly_rec::zhr03
double zhr03
Definition: pro_hrly.c:141
pro_hrly_rec::zhr17
double zhr17
Definition: pro_hrly.c:155
pro_hrly_rec::qzhr07
char qzhr07[2]
Definition: pro_hrly.c:169
pro_hrly_rec::qzhr23
char qzhr23[2]
Definition: pro_hrly.c:185
pro_hrly_rec::zhr14
double zhr14
Definition: pro_hrly.c:152
pro_hrly_rec::zhr06
double zhr06
Definition: pro_hrly.c:144
pro_hrly_rec::pe1
char pe1[2]
Definition: pro_hrly.c:128
pro_hrly_rec::zhr10
double zhr10
Definition: pro_hrly.c:148
pro_hrly_rec::qzhr11
char qzhr11[2]
Definition: pro_hrly.c:173
pro_hrly_rec::qzhr03
char qzhr03[2]
Definition: pro_hrly.c:165
pro_hrly_rec::zhr13
double zhr13
Definition: pro_hrly.c:151
pro_hrly_rec::qzhr19
char qzhr19[2]
Definition: pro_hrly.c:181
pro_hrly_rec::zday
int zday
Definition: pro_hrly.c:137
pro_hrly_rec::p
char p[2]
Definition: pro_hrly.c:134
pro_hrly_rec::qzhr00
char qzhr00[2]
Definition: pro_hrly.c:162
pro_hrly_rec::qzhr04
char qzhr04[2]
Definition: pro_hrly.c:166
pro_hrly_rec::qzhr18
char qzhr18[2]
Definition: pro_hrly.c:180
pro_hrly_rec::cal_yr
int cal_yr
Definition: pro_hrly.c:135
pro_hrly_rec::zhr20
double zhr20
Definition: pro_hrly.c:158
pro_hrly_rec::zhr08
double zhr08
Definition: pro_hrly.c:146
pro_hrly_rec::qzhr14
char qzhr14[2]
Definition: pro_hrly.c:176
pro_hrly_rec::s
char s[2]
Definition: pro_hrly.c:132
pro_hrly_rec::qzhr01
char qzhr01[2]
Definition: pro_hrly.c:163
pro_hrly_rec::qzhr12
char qzhr12[2]
Definition: pro_hrly.c:174
pro_hrly_rec::zhr19
double zhr19
Definition: pro_hrly.c:157
pro_hrly_rec::zhr18
double zhr18
Definition: pro_hrly.c:156
pro_hrly_rec::e
char e[2]
Definition: pro_hrly.c:133
pro_hrly_rec::zhr04
double zhr04
Definition: pro_hrly.c:142
pro_hrly_rec::qzhr15
char qzhr15[2]
Definition: pro_hrly.c:177
pro_hrly_rec::qzhr10
char qzhr10[2]
Definition: pro_hrly.c:172
pro_hrly_rec::qzhr16
char qzhr16[2]
Definition: pro_hrly.c:178
pro_hrly_rec::zhr09
double zhr09
Definition: pro_hrly.c:147
pro_hrly_rec::qzhr22
char qzhr22[2]
Definition: pro_hrly.c:184
pro_hrly_rec::zhr07
double zhr07
Definition: pro_hrly.c:145
pro_hrly_rec::qzhr05
char qzhr05[2]
Definition: pro_hrly.c:167
pro_hrly_rec::qzhr13
char qzhr13[2]
Definition: pro_hrly.c:175
sqlca_s::sqlcaw_s::sqlwarn5
char sqlwarn5
Definition: db.c:65
sqlca_s::sqlcaw_s::sqlwarn3
char sqlwarn3
Definition: db.c:61
sqlca_s::sqlcaw_s::sqlwarn4
char sqlwarn4
Definition: db.c:63
sqlca_s::sqlcaw_s::sqlwarn7
char sqlwarn7
Definition: db.c:67
sqlca_s::sqlcaw_s::sqlwarn1
char sqlwarn1
Definition: db.c:57
sqlca_s::sqlcaw_s::sqlwarn6
char sqlwarn6
Definition: db.c:66
sqlca_s::sqlcaw_s::sqlwarn2
char sqlwarn2
Definition: db.c:59
sqlca_s::sqlcaw_s::sqlwarn0
char sqlwarn0
Definition: db.c:56
sqlca_s
Definition: db.c:43
sqlca_s::sqlerrd
long sqlerrd[6]
Definition: db.c:47
sqlca_s::sqlwarn
struct sqlca_s::sqlcaw_s sqlwarn
sqlca_s::sqlcode
long sqlcode
Definition: db.c:44
sqlca_s::sqlerrm
char sqlerrm[72]
Definition: db.c:45
sqlca_s::sqlerrp
char sqlerrp[8]
Definition: db.c:46
stim
Definition: misc.h:93
stim::minute
int minute
Definition: misc.h:99
stim::day
int day
Definition: misc.h:97
stim::year
int year
Definition: misc.h:95
stim::hour
int hour
Definition: misc.h:98
stim::month
int month
Definition: misc.h:96
stn_values
Definition: hydro_data.h:31
stn_values::qual
char qual
Definition: hydro_data.h:36
stn_values::zdate
int zdate
Definition: hydro_data.h:33
stn_values::ztime
int ztime
Definition: hydro_data.h:34
stn_values::value
float value
Definition: hydro_data.h:35
Generated by doxygen 1.9.1