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