Mapper
fpro_hrly.c
Go to the documentation of this file.
1 #include <sqlhdr.h>
2 #include <sqliapi.h>
3 #line 1 "fpro_hrly.ec"
4 #include "prototypes_new.h"
5 /*
6  * EXEC SQL include sqlca.h;
7  */
8 #line 2 "fpro_hrly.ec"
9 
10 #line 2 "fpro_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
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 "fpro_hrly.ec"
117 
118 /*
119  * EXEC SQL BEGIN DECLARE SECTION;
120  */
121 #line 4 "fpro_hrly.ec"
122 #line 5 "fpro_hrly.ec"
123 int eyr, emo, edy;
124 int byr, bmo, bdy;
125 extern struct fpro_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 vcal_yr;
136  int vmon;
137  int vzday;
138  int ccal_yr;
139  int cmon;
140  int czday;
141  int cztime;
142  double zhr00;
143  double zhr01;
144  double zhr02;
145  double zhr03;
146  double zhr04;
147  double zhr05;
148  double zhr06;
149  double zhr07;
150  double zhr08;
151  double zhr09;
152  double zhr10;
153  double zhr11;
154  double zhr12;
155  double zhr13;
156  double zhr14;
157  double zhr15;
158  double zhr16;
159  double zhr17;
160  double zhr18;
161  double zhr19;
162  double zhr20;
163  double zhr21;
164  double zhr22;
165  double zhr23;
166  char qzhr00[2];
167  char qzhr01[2];
168  char qzhr02[2];
169  char qzhr03[2];
170  char qzhr04[2];
171  char qzhr05[2];
172  char qzhr06[2];
173  char qzhr07[2];
174  char qzhr08[2];
175  char qzhr09[2];
176  char qzhr10[2];
177  char qzhr11[2];
178  char qzhr12[2];
179  char qzhr13[2];
180  char qzhr14[2];
181  char qzhr15[2];
182  char qzhr16[2];
183  char qzhr17[2];
184  char qzhr18[2];
185  char qzhr19[2];
186  char qzhr20[2];
187  char qzhr21[2];
188  char qzhr22[2];
189  char qzhr23[2];
191 /*
192  * EXEC SQL END DECLARE SECTION;
193  */
194 #line 76 "fpro_hrly.ec"
195 
196 
197 extern struct data_rec {
198  char id[9];
199  char source[9];
200  char pe1;
201  char pe2;
202  char dur;
203  char t;
204  char s;
205  char e;
206  char p;
207  int zdate;
208  int ztime;
209  int czdate;
210  int cztime;
211  int idur;
212  double codp;
213  char lwal;
214  int idote;
215  int irev;
216  double value;
217  double values[96];
218  char lwals[96];
219  char pedtsep[8];
221 
223 
225 
226 int fpro_hrly(char *hb5,char *parm,struct stim begin_date,struct stim
227 end_date, struct stim q_date,struct stn_values *stn_values)
228 
229 {
230 
231 int i,jtotal,k,atime,iclear;
232 int etime,btime;
233 int hour,min;
234 int zdate,hh,qlen;
235 time_t tim,tim2;
236 struct tm *gmtim;
237 
238 
239 /*
240  * EXEC SQL BEGIN DECLARE SECTION;
241  */
242 #line 120 "fpro_hrly.ec"
243 #line 121 "fpro_hrly.ec"
244 int edate, bdate;
245 int month, day, year;
246  char sparm[10];
247 int fyear, fmonth, fday, fhour, fminute, ftime;
248  char shb5[6];
249  char pe1[2];
250  char pe2[2];
251  char dur[2];
252  char t[2];
253  char s[2];
254  char e[2];
255  char p[2];
256 /*
257  * EXEC SQL END DECLARE SECTION;
258  */
259 #line 134 "fpro_hrly.ec"
260 
261 
262 pe1[1]=0;
263 pe2[1]=0;
264 dur[1]=0;
265 t[1]=0;
266 s[1]=0;
267 e[1]=0;
268 p[1]=0;
269 
270 strcpy(shb5,hb5);
271 
272 pe1[0]=parm[0];
273 pe2[0]=parm[1];
274 dur[0]=parm[2];
275 t[0]=parm[3];
276 s[0]=parm[4];
277 e[0]=parm[5];
278 p[0]=parm[6];
279 
280 eyr=end_date.year;
281 emo=end_date.month;
282 edy=end_date.day;
283 etime=end_date.hour*10000+
284  end_date.minute*100;
285 
286 byr=begin_date.year;
287 bmo=begin_date.month;
288 bdy=begin_date.day;
289 btime=begin_date.hour*10000+
290  begin_date.minute*100;
291 
292 year=byr;
293 month=bmo;
294 day=bdy;
295 
296 fyear=q_date.year;
297 fmonth=q_date.month;
298 fday=q_date.day;
299 fhour=q_date.hour;
300 fminute=q_date.minute;
301 ftime=fhour*10000+fminute*100;
302 
303 jtotal=0;
304 
305 iclear=0;
306 
307 for(;;) {
308 
309 /*
310  * EXEC SQL select *
311  * into :fhrly_rec
312  * from fprohrly
313  * where id=:shb5 and
314  * pe1=:pe1 and
315  * pe2=:pe2 and
316  * dur=:dur and
317  * t=:t and
318  * s=:s and
319  * e=:e and
320  * p=:p and
321  * vcal_yr=:year and
322  * vmon=:month and
323  * vzday=:day and
324  * ccal_yr=:fyear and
325  * cmon=:fmonth and
326  * czday=:fday and
327  * cztime=:ftime;
328  */
329 #line 183 "fpro_hrly.ec"
330  {
331 #line 200 "fpro_hrly.ec"
332  static const char *sqlcmdtxt[] =
333 #line 200 "fpro_hrly.ec"
334  {
335 #line 200 "fpro_hrly.ec"
336  "select * from fprohrly where id = ? and pe1 = ? and pe2 = ? and dur = ? and t = ? and s = ? and e = ? and p = ? and vcal_yr = ? and vmon = ? and vzday = ? and ccal_yr = ? and cmon = ? and czday = ? and cztime = ?",
337  0
338  };
339 #line 200 "fpro_hrly.ec"
340 static ifx_cursor_t _SQ0 = {0};
341  static ifx_sqlvar_t _sqibind[] =
342  {
343  { 100, 6, 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  { 100, 2, 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  { 102, sizeof(year), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
352  { 102, sizeof(month), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
353  { 102, sizeof(day), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
354  { 102, sizeof(fyear), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
355  { 102, sizeof(fmonth), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
356  { 102, sizeof(fday), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
357  { 102, sizeof(ftime), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
358 #line 200 "fpro_hrly.ec"
359  };
360  static ifx_sqlvar_t _sqobind[] =
361  {
362  { 100, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
363  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
364  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
365  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
366  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
367  { 100, 2, 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  { 102, sizeof((fhrly_rec).vcal_yr), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
371  { 102, sizeof((fhrly_rec).vmon), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
372  { 102, sizeof((fhrly_rec).vzday), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
373  { 102, sizeof((fhrly_rec).ccal_yr), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
374  { 102, sizeof((fhrly_rec).cmon), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
375  { 102, sizeof((fhrly_rec).czday), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
376  { 102, sizeof((fhrly_rec).cztime), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
377  { 105, sizeof((fhrly_rec).zhr00), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
378  { 105, sizeof((fhrly_rec).zhr01), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
379  { 105, sizeof((fhrly_rec).zhr02), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
380  { 105, sizeof((fhrly_rec).zhr03), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
381  { 105, sizeof((fhrly_rec).zhr04), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
382  { 105, sizeof((fhrly_rec).zhr05), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
383  { 105, sizeof((fhrly_rec).zhr06), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
384  { 105, sizeof((fhrly_rec).zhr07), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
385  { 105, sizeof((fhrly_rec).zhr08), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
386  { 105, sizeof((fhrly_rec).zhr09), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
387  { 105, sizeof((fhrly_rec).zhr10), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
388  { 105, sizeof((fhrly_rec).zhr11), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
389  { 105, sizeof((fhrly_rec).zhr12), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
390  { 105, sizeof((fhrly_rec).zhr13), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
391  { 105, sizeof((fhrly_rec).zhr14), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
392  { 105, sizeof((fhrly_rec).zhr15), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
393  { 105, sizeof((fhrly_rec).zhr16), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
394  { 105, sizeof((fhrly_rec).zhr17), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
395  { 105, sizeof((fhrly_rec).zhr18), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
396  { 105, sizeof((fhrly_rec).zhr19), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
397  { 105, sizeof((fhrly_rec).zhr20), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
398  { 105, sizeof((fhrly_rec).zhr21), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
399  { 105, sizeof((fhrly_rec).zhr22), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
400  { 105, sizeof((fhrly_rec).zhr23), 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, 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 #line 200 "fpro_hrly.ec"
426  };
427 #line 200 "fpro_hrly.ec"
428  _sqibind[0].sqldata = shb5;
429 #line 200 "fpro_hrly.ec"
430  _sqibind[1].sqldata = pe1;
431 #line 200 "fpro_hrly.ec"
432  _sqibind[2].sqldata = pe2;
433 #line 200 "fpro_hrly.ec"
434  _sqibind[3].sqldata = dur;
435 #line 200 "fpro_hrly.ec"
436  _sqibind[4].sqldata = t;
437 #line 200 "fpro_hrly.ec"
438  _sqibind[5].sqldata = s;
439 #line 200 "fpro_hrly.ec"
440  _sqibind[6].sqldata = e;
441 #line 200 "fpro_hrly.ec"
442  _sqibind[7].sqldata = p;
443 #line 200 "fpro_hrly.ec"
444  _sqibind[8].sqldata = (char *) &year;
445 #line 200 "fpro_hrly.ec"
446  _sqibind[9].sqldata = (char *) &month;
447 #line 200 "fpro_hrly.ec"
448  _sqibind[10].sqldata = (char *) &day;
449 #line 200 "fpro_hrly.ec"
450  _sqibind[11].sqldata = (char *) &fyear;
451 #line 200 "fpro_hrly.ec"
452  _sqibind[12].sqldata = (char *) &fmonth;
453 #line 200 "fpro_hrly.ec"
454  _sqibind[13].sqldata = (char *) &fday;
455 #line 200 "fpro_hrly.ec"
456  _sqibind[14].sqldata = (char *) &ftime;
457 #line 200 "fpro_hrly.ec"
458  _sqobind[0].sqldata = (fhrly_rec).id;
459 #line 200 "fpro_hrly.ec"
460  _sqobind[1].sqldata = (fhrly_rec).pe1;
461 #line 200 "fpro_hrly.ec"
462  _sqobind[2].sqldata = (fhrly_rec).pe2;
463 #line 200 "fpro_hrly.ec"
464  _sqobind[3].sqldata = (fhrly_rec).dur;
465 #line 200 "fpro_hrly.ec"
466  _sqobind[4].sqldata = (fhrly_rec).t;
467 #line 200 "fpro_hrly.ec"
468  _sqobind[5].sqldata = (fhrly_rec).s;
469 #line 200 "fpro_hrly.ec"
470  _sqobind[6].sqldata = (fhrly_rec).e;
471 #line 200 "fpro_hrly.ec"
472  _sqobind[7].sqldata = (fhrly_rec).p;
473 #line 200 "fpro_hrly.ec"
474  _sqobind[8].sqldata = (char *) &(fhrly_rec).vcal_yr;
475 #line 200 "fpro_hrly.ec"
476  _sqobind[9].sqldata = (char *) &(fhrly_rec).vmon;
477 #line 200 "fpro_hrly.ec"
478  _sqobind[10].sqldata = (char *) &(fhrly_rec).vzday;
479 #line 200 "fpro_hrly.ec"
480  _sqobind[11].sqldata = (char *) &(fhrly_rec).ccal_yr;
481 #line 200 "fpro_hrly.ec"
482  _sqobind[12].sqldata = (char *) &(fhrly_rec).cmon;
483 #line 200 "fpro_hrly.ec"
484  _sqobind[13].sqldata = (char *) &(fhrly_rec).czday;
485 #line 200 "fpro_hrly.ec"
486  _sqobind[14].sqldata = (char *) &(fhrly_rec).cztime;
487 #line 200 "fpro_hrly.ec"
488  _sqobind[15].sqldata = (char *) &(fhrly_rec).zhr00;
489 #line 200 "fpro_hrly.ec"
490  _sqobind[16].sqldata = (char *) &(fhrly_rec).zhr01;
491 #line 200 "fpro_hrly.ec"
492  _sqobind[17].sqldata = (char *) &(fhrly_rec).zhr02;
493 #line 200 "fpro_hrly.ec"
494  _sqobind[18].sqldata = (char *) &(fhrly_rec).zhr03;
495 #line 200 "fpro_hrly.ec"
496  _sqobind[19].sqldata = (char *) &(fhrly_rec).zhr04;
497 #line 200 "fpro_hrly.ec"
498  _sqobind[20].sqldata = (char *) &(fhrly_rec).zhr05;
499 #line 200 "fpro_hrly.ec"
500  _sqobind[21].sqldata = (char *) &(fhrly_rec).zhr06;
501 #line 200 "fpro_hrly.ec"
502  _sqobind[22].sqldata = (char *) &(fhrly_rec).zhr07;
503 #line 200 "fpro_hrly.ec"
504  _sqobind[23].sqldata = (char *) &(fhrly_rec).zhr08;
505 #line 200 "fpro_hrly.ec"
506  _sqobind[24].sqldata = (char *) &(fhrly_rec).zhr09;
507 #line 200 "fpro_hrly.ec"
508  _sqobind[25].sqldata = (char *) &(fhrly_rec).zhr10;
509 #line 200 "fpro_hrly.ec"
510  _sqobind[26].sqldata = (char *) &(fhrly_rec).zhr11;
511 #line 200 "fpro_hrly.ec"
512  _sqobind[27].sqldata = (char *) &(fhrly_rec).zhr12;
513 #line 200 "fpro_hrly.ec"
514  _sqobind[28].sqldata = (char *) &(fhrly_rec).zhr13;
515 #line 200 "fpro_hrly.ec"
516  _sqobind[29].sqldata = (char *) &(fhrly_rec).zhr14;
517 #line 200 "fpro_hrly.ec"
518  _sqobind[30].sqldata = (char *) &(fhrly_rec).zhr15;
519 #line 200 "fpro_hrly.ec"
520  _sqobind[31].sqldata = (char *) &(fhrly_rec).zhr16;
521 #line 200 "fpro_hrly.ec"
522  _sqobind[32].sqldata = (char *) &(fhrly_rec).zhr17;
523 #line 200 "fpro_hrly.ec"
524  _sqobind[33].sqldata = (char *) &(fhrly_rec).zhr18;
525 #line 200 "fpro_hrly.ec"
526  _sqobind[34].sqldata = (char *) &(fhrly_rec).zhr19;
527 #line 200 "fpro_hrly.ec"
528  _sqobind[35].sqldata = (char *) &(fhrly_rec).zhr20;
529 #line 200 "fpro_hrly.ec"
530  _sqobind[36].sqldata = (char *) &(fhrly_rec).zhr21;
531 #line 200 "fpro_hrly.ec"
532  _sqobind[37].sqldata = (char *) &(fhrly_rec).zhr22;
533 #line 200 "fpro_hrly.ec"
534  _sqobind[38].sqldata = (char *) &(fhrly_rec).zhr23;
535 #line 200 "fpro_hrly.ec"
536  _sqobind[39].sqldata = (fhrly_rec).qzhr00;
537 #line 200 "fpro_hrly.ec"
538  _sqobind[40].sqldata = (fhrly_rec).qzhr01;
539 #line 200 "fpro_hrly.ec"
540  _sqobind[41].sqldata = (fhrly_rec).qzhr02;
541 #line 200 "fpro_hrly.ec"
542  _sqobind[42].sqldata = (fhrly_rec).qzhr03;
543 #line 200 "fpro_hrly.ec"
544  _sqobind[43].sqldata = (fhrly_rec).qzhr04;
545 #line 200 "fpro_hrly.ec"
546  _sqobind[44].sqldata = (fhrly_rec).qzhr05;
547 #line 200 "fpro_hrly.ec"
548  _sqobind[45].sqldata = (fhrly_rec).qzhr06;
549 #line 200 "fpro_hrly.ec"
550  _sqobind[46].sqldata = (fhrly_rec).qzhr07;
551 #line 200 "fpro_hrly.ec"
552  _sqobind[47].sqldata = (fhrly_rec).qzhr08;
553 #line 200 "fpro_hrly.ec"
554  _sqobind[48].sqldata = (fhrly_rec).qzhr09;
555 #line 200 "fpro_hrly.ec"
556  _sqobind[49].sqldata = (fhrly_rec).qzhr10;
557 #line 200 "fpro_hrly.ec"
558  _sqobind[50].sqldata = (fhrly_rec).qzhr11;
559 #line 200 "fpro_hrly.ec"
560  _sqobind[51].sqldata = (fhrly_rec).qzhr12;
561 #line 200 "fpro_hrly.ec"
562  _sqobind[52].sqldata = (fhrly_rec).qzhr13;
563 #line 200 "fpro_hrly.ec"
564  _sqobind[53].sqldata = (fhrly_rec).qzhr14;
565 #line 200 "fpro_hrly.ec"
566  _sqobind[54].sqldata = (fhrly_rec).qzhr15;
567 #line 200 "fpro_hrly.ec"
568  _sqobind[55].sqldata = (fhrly_rec).qzhr16;
569 #line 200 "fpro_hrly.ec"
570  _sqobind[56].sqldata = (fhrly_rec).qzhr17;
571 #line 200 "fpro_hrly.ec"
572  _sqobind[57].sqldata = (fhrly_rec).qzhr18;
573 #line 200 "fpro_hrly.ec"
574  _sqobind[58].sqldata = (fhrly_rec).qzhr19;
575 #line 200 "fpro_hrly.ec"
576  _sqobind[59].sqldata = (fhrly_rec).qzhr20;
577 #line 200 "fpro_hrly.ec"
578  _sqobind[60].sqldata = (fhrly_rec).qzhr21;
579 #line 200 "fpro_hrly.ec"
580  _sqobind[61].sqldata = (fhrly_rec).qzhr22;
581 #line 200 "fpro_hrly.ec"
582  _sqobind[62].sqldata = (fhrly_rec).qzhr23;
583 #line 200 "fpro_hrly.ec"
584  sqli_slct(ESQLINTVERSION, &_SQ0,sqlcmdtxt,15,_sqibind,63,_sqobind,0,(ifx_literal_t *)0,(ifx_namelist_t *)0,0);
585 #line 200 "fpro_hrly.ec"
586  }
587 
588  if(sqlca.sqlcode < 0)
589  return(sqlca.sqlcode);
590 
591  if(sqlca.sqlcode==100) {
592 
593  iclear++;
594  change_dateff(&fyear,&fmonth,&fday,&ftime);
595 
596  if(iclear==12) {
597 
598  fyear=q_date.year;
599  fmonth=q_date.month;
600  fday=q_date.day;
601  fhour=q_date.hour;
602  fminute=q_date.minute;
603  ftime=fhour*10000+fminute*100;
604 
605  if(year==eyr && month==emo && day==edy)
606  break;
607 
609 
610  iclear=0;
611 
612  }
613 
614  continue;
615 
616 
617  }
618 
619 
620  if(sqlca.sqlcode == 0) {
621 
622  iclear=0;
623 
625 
626  for(k=23;k>=0;k--) {
627 
628  hour=k;
629  atime=hour*10000;
630  zdate=fhrly_rec.vcal_yr*10000+fhrly_rec.vmon*100+fhrly_rec.vzday;
631 
632  if(year==eyr && month==emo && day==edy &&
633  atime < etime)
634  break;
635 
636  if(year==byr && month==bmo && day==bdy &&
637  atime > btime)
638  continue;
639 
640  if(data_record.values[k] < -98)
641  continue;
642 
644  stn_values[jtotal].zdate=zdate;
645  stn_values[jtotal].qual= data_record.lwals[k];
646 
647  stn_values[jtotal++].ztime=atime;
648 
649  }
650 
651 
652  }
653 
654  if(jtotal > 9600)
655  break;
656 
657  if(year==eyr && month==emo && day==edy)
658  break;
659 
661 
662 
663  }
664 
665 return(jtotal);
666 
667 }
668 
670 {
671 
720 
721  return(0);
722 }
723 
724 void change_datef(int *year,int *month, int*day)
725 
726 {
727 
728 extern int mday[];
729 char buf[10];
730 XmString btn_text;
731 Arg args[10];
732 
733 if (!((*year)%4))
734  mday[1]=29;
735 else
736  mday[1]=28;
737 
738 /*
739 if ((*year)==1972 || (*year)==1976 || (*year)==1980 ||
740  (*year)==1984 || (*year)==1988 || (*year)==1992 ||
741  (*year)==1996 || (*year)==2000 || (*year)==2004 ||
742  (*year)==2008 || (*year)==2012 || (*year)==2016)
743  mday[1]=29;
744 else
745  mday[1]=28;
746 */
747 
748 (*day)--;
749 
750 if(*day <= 0) {
751 
752  (*month)--;
753  if(*month==0) {
754 
755  (*year)--;
756  *month=12;
757 
758  }
759 
760  *day=mday[*month-1];
761 
762  }
763 
764 else if(*day > mday[*month-1]) {
765 
766  *(month)++;
767 
768  if(*month > 12) {
769 
770  (*year)++;
771  *month=1;
772 
773  }
774 
775  *day=1;
776 
777  }
778 
779 
780 }
781 
782 void change_dateff(int *year,int *month, int *day,int *ztime)
783 
784 {
785 
786 extern int mday[];
787 char buf[10];
788 
789 if (!((*year)%4))
790  mday[1]=29;
791 else
792  mday[1]=28;
793 
794 /*
795 if ((*year)==1972 || (*year)==1976 || (*year)==1980 ||
796  (*year)==1984 || (*year)==1988 || (*year)==1992 ||
797  (*year)==1996 || (*year)==2000 || (*year)==2004 ||
798  (*year)==2008 || (*year)==2012 || (*year)==2016)
799  mday[1]=29;
800 else
801  mday[1]=28;
802 */
803 
804 *ztime=*ztime-10000;
805 
806 printf("ztime is %d\n",*ztime);
807 
808 if(*ztime < 0) {
809 
810  *ztime=230000;
811  (*day)--;
812 
813  }
814 
815 if(*day <= 0) {
816 
817  (*month)--;
818  if(*month==0) {
819 
820  (*year)--;
821  *month=12;
822 
823  }
824 
825  *day=mday[*month-1];
826 
827  }
828 
829 else if(*day > mday[*month-1]) {
830 
831  *(month)++;
832 
833  if(*month > 12) {
834 
835  (*year)++;
836  *month=1;
837 
838  }
839 
840  *day=1;
841 
842  }
843 
844 
845 return;
846 
847 }
848 
849 
850 #line 462 "fpro_hrly.ec"
static int i
int hour
Definition: display_data.c:26
int day
Definition: display_data.c:26
int year
Definition: display_data.c:26
int month
Definition: display_data.c:26
int mday[]
Definition: fmap_qtrly.c:519
void change_dateff()
int emo
Definition: fpro_hrly.c:123
struct data_rec data_record
struct fpro_hrly_rec fhrly_rec
int bdy
Definition: fpro_hrly.c:124
int eyr
Definition: fpro_hrly.c:123
int edy
Definition: fpro_hrly.c:123
int get_ffval24_array()
Definition: fpro_hrly.c:669
int bmo
Definition: fpro_hrly.c:124
int4 SQLCODE
struct sqlca_s ifx_sqlca_t
char SQLSTATE[]
struct sqlca_s sqlca
int byr
Definition: fpro_hrly.c:124
void change_datef()
int fpro_hrly(char *hb5, char *parm, struct stim begin_date, struct stim end_date, struct stim q_date, struct stn_values *stn_values)
Definition: fpro_hrly.c:226
struct stat buf
Definition: is_file_closed.c:8
printf("fbuf is %s\n", fbuf)
int k
Definition: mapp2h.h:48
Arg args[10]
char source[9]
Definition: calfma_qtrly.c:162
double values[96]
Definition: calfma_qtrly.c:180
char lwals[96]
Definition: calfma_qtrly.c:181
char pedtsep[8]
Definition: calfma_qtrly.c:182
double codp
Definition: calfma_qtrly.c:175
double value
Definition: calfma_qtrly.c:179
double zhr11
Definition: fpro_hrly.c:153
double zhr16
Definition: fpro_hrly.c:158
char pe2[2]
Definition: fpro_hrly.c:129
char qzhr15[2]
Definition: fpro_hrly.c:181
char qzhr16[2]
Definition: fpro_hrly.c:182
char p[2]
Definition: fpro_hrly.c:134
double zhr19
Definition: fpro_hrly.c:161
char qzhr22[2]
Definition: fpro_hrly.c:188
char qzhr11[2]
Definition: fpro_hrly.c:177
double zhr18
Definition: fpro_hrly.c:160
char qzhr01[2]
Definition: fpro_hrly.c:167
double zhr10
Definition: fpro_hrly.c:152
char qzhr17[2]
Definition: fpro_hrly.c:183
double zhr13
Definition: fpro_hrly.c:155
char qzhr18[2]
Definition: fpro_hrly.c:184
double zhr23
Definition: fpro_hrly.c:165
char qzhr08[2]
Definition: fpro_hrly.c:174
char dur[2]
Definition: fpro_hrly.c:130
char qzhr13[2]
Definition: fpro_hrly.c:179
char qzhr00[2]
Definition: fpro_hrly.c:166
double zhr22
Definition: fpro_hrly.c:164
char qzhr04[2]
Definition: fpro_hrly.c:170
char qzhr09[2]
Definition: fpro_hrly.c:175
double zhr12
Definition: fpro_hrly.c:154
char qzhr12[2]
Definition: fpro_hrly.c:178
double zhr03
Definition: fpro_hrly.c:145
char s[2]
Definition: fpro_hrly.c:132
char qzhr14[2]
Definition: fpro_hrly.c:180
char qzhr07[2]
Definition: fpro_hrly.c:173
double zhr04
Definition: fpro_hrly.c:146
double zhr01
Definition: fpro_hrly.c:143
double zhr14
Definition: fpro_hrly.c:156
char qzhr20[2]
Definition: fpro_hrly.c:186
double zhr07
Definition: fpro_hrly.c:149
char e[2]
Definition: fpro_hrly.c:133
char qzhr06[2]
Definition: fpro_hrly.c:172
char qzhr23[2]
Definition: fpro_hrly.c:189
double zhr05
Definition: fpro_hrly.c:147
double zhr00
Definition: fpro_hrly.c:142
double zhr20
Definition: fpro_hrly.c:162
char qzhr02[2]
Definition: fpro_hrly.c:168
double zhr17
Definition: fpro_hrly.c:159
char pe1[2]
Definition: fpro_hrly.c:128
char qzhr21[2]
Definition: fpro_hrly.c:187
double zhr09
Definition: fpro_hrly.c:151
double zhr21
Definition: fpro_hrly.c:163
char qzhr10[2]
Definition: fpro_hrly.c:176
double zhr02
Definition: fpro_hrly.c:144
double zhr08
Definition: fpro_hrly.c:150
char qzhr05[2]
Definition: fpro_hrly.c:171
char t[2]
Definition: fpro_hrly.c:131
char qzhr03[2]
Definition: fpro_hrly.c:169
char qzhr19[2]
Definition: fpro_hrly.c:185
double zhr06
Definition: fpro_hrly.c:148
double zhr15
Definition: fpro_hrly.c:157
char sqlwarn5
Definition: db.c:65
char sqlwarn3
Definition: db.c:61
char sqlwarn4
Definition: db.c:63
char sqlwarn7
Definition: db.c:67
char sqlwarn1
Definition: db.c:57
char sqlwarn6
Definition: db.c:66
char sqlwarn2
Definition: db.c:59
char sqlwarn0
Definition: db.c:56
Definition: db.c:43
long sqlerrd[6]
Definition: db.c:47
struct sqlca_s::sqlcaw_s sqlwarn
long sqlcode
Definition: db.c:44
char sqlerrm[72]
Definition: db.c:45
char sqlerrp[8]
Definition: db.c:46
Definition: misc.h:93
int minute
Definition: misc.h:99
int day
Definition: misc.h:97
int year
Definition: misc.h:95
int hour
Definition: misc.h:98
int month
Definition: misc.h:96
char qual
Definition: hydro_data.h:36
float value
Definition: hydro_data.h:35
tim()
Definition: tim.c:4