Mapper
pro_dly.c
Go to the documentation of this file.
1 #include <sqlhdr.h>
2 #include <sqliapi.h>
3 #line 1 "pro_dly.ec"
4 #include "prototypes_new.h"
5 /*
6  * EXEC SQL include sqlca.h;
7  */
8 #line 2 "pro_dly.ec"
9 
10 #line 2 "pro_dly.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 "pro_dly.ec"
117 
118 /*
119  * EXEC SQL BEGIN DECLARE SECTION;
120  */
121 #line 4 "pro_dly.ec"
122 #line 5 "pro_dly.ec"
123 int eyr, emo, edy;
124 int byr, bmo, bdy;
125 extern struct pro_dly_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  double zday01;
138  double zday02;
139  double zday03;
140  double zday04;
141  double zday05;
142  double zday06;
143  double zday07;
144  double zday08;
145  double zday09;
146  double zday10;
147  double zday11;
148  double zday12;
149  double zday13;
150  double zday14;
151  double zday15;
152  double zday16;
153  double zday17;
154  double zday18;
155  double zday19;
156  double zday20;
157  double zday21;
158  double zday22;
159  double zday23;
160  double zday24;
161  double zday25;
162  double zday26;
163  double zday27;
164  double zday28;
165  double zday29;
166  double zday30;
167  double zday31;
168  char qzday01[2];
169  char qzday02[2];
170  char qzday03[2];
171  char qzday04[2];
172  char qzday05[2];
173  char qzday06[2];
174  char qzday07[2];
175  char qzday08[2];
176  char qzday09[2];
177  char qzday10[2];
178  char qzday11[2];
179  char qzday12[2];
180  char qzday13[2];
181  char qzday14[2];
182  char qzday15[2];
183  char qzday16[2];
184  char qzday17[2];
185  char qzday18[2];
186  char qzday19[2];
187  char qzday20[2];
188  char qzday21[2];
189  char qzday22[2];
190  char qzday23[2];
191  char qzday24[2];
192  char qzday25[2];
193  char qzday26[2];
194  char qzday27[2];
195  char qzday28[2];
196  char qzday29[2];
197  char qzday30[2];
198  char qzday31[2];
200 /*
201  * EXEC SQL END DECLARE SECTION;
202  */
203 #line 86 "pro_dly.ec"
204 
205 
206 extern struct data_rec {
207  char id[9];
208  char source[9];
209  char pe1;
210  char pe2;
211  char dur;
212  char t;
213  char s;
214  char e;
215  char p;
216  int zdate;
217  int ztime;
218  int czdate;
219  int cztime;
220  int idur;
221  double codp;
222  char lwal;
223  int idote;
224  int irev;
225  double value;
226  double values[96];
227  char lwals[96];
228  char pedtsep[8];
230 
232 
233 int pro_dly(char *hb5,char *parm,struct stim begin_date,struct stim
234 end_date, char *qual, struct stn_values *stn_values)
235 
236 {
237 
238 int i,jtotal,k,atime;
239 int etime,btime;
240 int hour,min;
241 int zdate,hh,qlen;
242 int numdays;
243 
244 /*
245  * EXEC SQL BEGIN DECLARE SECTION;
246  */
247 #line 126 "pro_dly.ec"
248 #line 127 "pro_dly.ec"
249 int edate, bdate;
250 int month, day, year;
251  char sparm[10];
252 struct stat
253  {
254  char hb5[6];
255  char pe1[2];
256  char pe2[2];
257  char dur[2];
258  char t[2];
259  char s[2];
260  char e[2];
261  char p[2];
262  } stat;
263 /*
264  * EXEC SQL END DECLARE SECTION;
265  */
266 #line 143 "pro_dly.ec"
267 
268 
269 
270 qlen=strlen(qual);
271 
272 stat.pe1[1]=0;
273 stat.pe2[1]=0;
274 stat.dur[1]=0;
275 stat.t[1]=0;
276 stat.s[1]=0;
277 stat.e[1]=0;
278 stat.p[1]=0;
279 
280 strcpy(stat.hb5,hb5);
281 stat.pe1[0]=parm[0];
282 stat.pe2[0]=parm[1];
283 stat.dur[0]=parm[2];
284 stat.t[0]=parm[3];
285 stat.s[0]=parm[4];
286 stat.e[0]=parm[5];
287 stat.p[0]=parm[6];
288 
289 eyr=end_date.year;
290 emo=end_date.month;
291 edy=end_date.day;
292 etime=end_date.hour*10000+
293  end_date.minute*100;
294 
295 byr=begin_date.year;
296 bmo=begin_date.month;
297 bdy=begin_date.day;
298 
299 year=byr;
300 month=bmo;
301 day=bdy;
302 
303 jtotal=0;
304 
305 
306 for(;;) {
307 
308 
309 /*
310  * EXEC SQL select *
311  * into :dly_rec
312  * from prodly
313  * where id=:stat.hb5 and
314  * pe1=:stat.pe1 and
315  * pe2=:stat.pe2 and
316  * dur=:stat.dur and
317  * t=:stat.t and
318  * s=:stat.s and
319  * e=:stat.e and
320  * p=:stat.p and
321  * cal_yr=:year and
322  * mon=:month;
323  */
324 #line 185 "pro_dly.ec"
325  {
326 #line 197 "pro_dly.ec"
327  static const char *sqlcmdtxt[] =
328 #line 197 "pro_dly.ec"
329  {
330 #line 197 "pro_dly.ec"
331  "select * from prodly where id = ? and pe1 = ? and pe2 = ? and dur = ? and t = ? and s = ? and e = ? and p = ? and cal_yr = ? and mon = ?",
332  0
333  };
334 #line 197 "pro_dly.ec"
335 static ifx_cursor_t _SQ0 = {0};
336  static ifx_sqlvar_t _sqibind[] =
337  {
338  { 100, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
339  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
340  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
341  { 100, 2, 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  { 102, sizeof(year), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
347  { 102, sizeof(month), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
348 #line 197 "pro_dly.ec"
349  };
350  static ifx_sqlvar_t _sqobind[] =
351  {
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((dly_rec).cal_yr), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
361  { 102, sizeof((dly_rec).mon), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
362  { 105, sizeof((dly_rec).zday01), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
363  { 105, sizeof((dly_rec).zday02), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
364  { 105, sizeof((dly_rec).zday03), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
365  { 105, sizeof((dly_rec).zday04), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
366  { 105, sizeof((dly_rec).zday05), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
367  { 105, sizeof((dly_rec).zday06), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
368  { 105, sizeof((dly_rec).zday07), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
369  { 105, sizeof((dly_rec).zday08), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
370  { 105, sizeof((dly_rec).zday09), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
371  { 105, sizeof((dly_rec).zday10), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
372  { 105, sizeof((dly_rec).zday11), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
373  { 105, sizeof((dly_rec).zday12), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
374  { 105, sizeof((dly_rec).zday13), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
375  { 105, sizeof((dly_rec).zday14), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
376  { 105, sizeof((dly_rec).zday15), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
377  { 105, sizeof((dly_rec).zday16), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
378  { 105, sizeof((dly_rec).zday17), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
379  { 105, sizeof((dly_rec).zday18), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
380  { 105, sizeof((dly_rec).zday19), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
381  { 105, sizeof((dly_rec).zday20), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
382  { 105, sizeof((dly_rec).zday21), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
383  { 105, sizeof((dly_rec).zday22), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
384  { 105, sizeof((dly_rec).zday23), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
385  { 105, sizeof((dly_rec).zday24), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
386  { 105, sizeof((dly_rec).zday25), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
387  { 105, sizeof((dly_rec).zday26), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
388  { 105, sizeof((dly_rec).zday27), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
389  { 105, sizeof((dly_rec).zday28), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
390  { 105, sizeof((dly_rec).zday29), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
391  { 105, sizeof((dly_rec).zday30), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
392  { 105, sizeof((dly_rec).zday31), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
393  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
394  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
395  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
396  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
397  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
398  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
399  { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
400  { 100, 2, 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 #line 197 "pro_dly.ec"
425  };
426 #line 197 "pro_dly.ec"
427  _sqibind[0].sqldata = stat.hb5;
428 #line 197 "pro_dly.ec"
429  _sqibind[1].sqldata = stat.pe1;
430 #line 197 "pro_dly.ec"
431  _sqibind[2].sqldata = stat.pe2;
432 #line 197 "pro_dly.ec"
433  _sqibind[3].sqldata = stat.dur;
434 #line 197 "pro_dly.ec"
435  _sqibind[4].sqldata = stat.t;
436 #line 197 "pro_dly.ec"
437  _sqibind[5].sqldata = stat.s;
438 #line 197 "pro_dly.ec"
439  _sqibind[6].sqldata = stat.e;
440 #line 197 "pro_dly.ec"
441  _sqibind[7].sqldata = stat.p;
442 #line 197 "pro_dly.ec"
443  _sqibind[8].sqldata = (char *) &year;
444 #line 197 "pro_dly.ec"
445  _sqibind[9].sqldata = (char *) &month;
446 #line 197 "pro_dly.ec"
447  _sqobind[0].sqldata = (dly_rec).id;
448 #line 197 "pro_dly.ec"
449  _sqobind[1].sqldata = (dly_rec).pe1;
450 #line 197 "pro_dly.ec"
451  _sqobind[2].sqldata = (dly_rec).pe2;
452 #line 197 "pro_dly.ec"
453  _sqobind[3].sqldata = (dly_rec).dur;
454 #line 197 "pro_dly.ec"
455  _sqobind[4].sqldata = (dly_rec).t;
456 #line 197 "pro_dly.ec"
457  _sqobind[5].sqldata = (dly_rec).s;
458 #line 197 "pro_dly.ec"
459  _sqobind[6].sqldata = (dly_rec).e;
460 #line 197 "pro_dly.ec"
461  _sqobind[7].sqldata = (dly_rec).p;
462 #line 197 "pro_dly.ec"
463  _sqobind[8].sqldata = (char *) &(dly_rec).cal_yr;
464 #line 197 "pro_dly.ec"
465  _sqobind[9].sqldata = (char *) &(dly_rec).mon;
466 #line 197 "pro_dly.ec"
467  _sqobind[10].sqldata = (char *) &(dly_rec).zday01;
468 #line 197 "pro_dly.ec"
469  _sqobind[11].sqldata = (char *) &(dly_rec).zday02;
470 #line 197 "pro_dly.ec"
471  _sqobind[12].sqldata = (char *) &(dly_rec).zday03;
472 #line 197 "pro_dly.ec"
473  _sqobind[13].sqldata = (char *) &(dly_rec).zday04;
474 #line 197 "pro_dly.ec"
475  _sqobind[14].sqldata = (char *) &(dly_rec).zday05;
476 #line 197 "pro_dly.ec"
477  _sqobind[15].sqldata = (char *) &(dly_rec).zday06;
478 #line 197 "pro_dly.ec"
479  _sqobind[16].sqldata = (char *) &(dly_rec).zday07;
480 #line 197 "pro_dly.ec"
481  _sqobind[17].sqldata = (char *) &(dly_rec).zday08;
482 #line 197 "pro_dly.ec"
483  _sqobind[18].sqldata = (char *) &(dly_rec).zday09;
484 #line 197 "pro_dly.ec"
485  _sqobind[19].sqldata = (char *) &(dly_rec).zday10;
486 #line 197 "pro_dly.ec"
487  _sqobind[20].sqldata = (char *) &(dly_rec).zday11;
488 #line 197 "pro_dly.ec"
489  _sqobind[21].sqldata = (char *) &(dly_rec).zday12;
490 #line 197 "pro_dly.ec"
491  _sqobind[22].sqldata = (char *) &(dly_rec).zday13;
492 #line 197 "pro_dly.ec"
493  _sqobind[23].sqldata = (char *) &(dly_rec).zday14;
494 #line 197 "pro_dly.ec"
495  _sqobind[24].sqldata = (char *) &(dly_rec).zday15;
496 #line 197 "pro_dly.ec"
497  _sqobind[25].sqldata = (char *) &(dly_rec).zday16;
498 #line 197 "pro_dly.ec"
499  _sqobind[26].sqldata = (char *) &(dly_rec).zday17;
500 #line 197 "pro_dly.ec"
501  _sqobind[27].sqldata = (char *) &(dly_rec).zday18;
502 #line 197 "pro_dly.ec"
503  _sqobind[28].sqldata = (char *) &(dly_rec).zday19;
504 #line 197 "pro_dly.ec"
505  _sqobind[29].sqldata = (char *) &(dly_rec).zday20;
506 #line 197 "pro_dly.ec"
507  _sqobind[30].sqldata = (char *) &(dly_rec).zday21;
508 #line 197 "pro_dly.ec"
509  _sqobind[31].sqldata = (char *) &(dly_rec).zday22;
510 #line 197 "pro_dly.ec"
511  _sqobind[32].sqldata = (char *) &(dly_rec).zday23;
512 #line 197 "pro_dly.ec"
513  _sqobind[33].sqldata = (char *) &(dly_rec).zday24;
514 #line 197 "pro_dly.ec"
515  _sqobind[34].sqldata = (char *) &(dly_rec).zday25;
516 #line 197 "pro_dly.ec"
517  _sqobind[35].sqldata = (char *) &(dly_rec).zday26;
518 #line 197 "pro_dly.ec"
519  _sqobind[36].sqldata = (char *) &(dly_rec).zday27;
520 #line 197 "pro_dly.ec"
521  _sqobind[37].sqldata = (char *) &(dly_rec).zday28;
522 #line 197 "pro_dly.ec"
523  _sqobind[38].sqldata = (char *) &(dly_rec).zday29;
524 #line 197 "pro_dly.ec"
525  _sqobind[39].sqldata = (char *) &(dly_rec).zday30;
526 #line 197 "pro_dly.ec"
527  _sqobind[40].sqldata = (char *) &(dly_rec).zday31;
528 #line 197 "pro_dly.ec"
529  _sqobind[41].sqldata = (dly_rec).qzday01;
530 #line 197 "pro_dly.ec"
531  _sqobind[42].sqldata = (dly_rec).qzday02;
532 #line 197 "pro_dly.ec"
533  _sqobind[43].sqldata = (dly_rec).qzday03;
534 #line 197 "pro_dly.ec"
535  _sqobind[44].sqldata = (dly_rec).qzday04;
536 #line 197 "pro_dly.ec"
537  _sqobind[45].sqldata = (dly_rec).qzday05;
538 #line 197 "pro_dly.ec"
539  _sqobind[46].sqldata = (dly_rec).qzday06;
540 #line 197 "pro_dly.ec"
541  _sqobind[47].sqldata = (dly_rec).qzday07;
542 #line 197 "pro_dly.ec"
543  _sqobind[48].sqldata = (dly_rec).qzday08;
544 #line 197 "pro_dly.ec"
545  _sqobind[49].sqldata = (dly_rec).qzday09;
546 #line 197 "pro_dly.ec"
547  _sqobind[50].sqldata = (dly_rec).qzday10;
548 #line 197 "pro_dly.ec"
549  _sqobind[51].sqldata = (dly_rec).qzday11;
550 #line 197 "pro_dly.ec"
551  _sqobind[52].sqldata = (dly_rec).qzday12;
552 #line 197 "pro_dly.ec"
553  _sqobind[53].sqldata = (dly_rec).qzday13;
554 #line 197 "pro_dly.ec"
555  _sqobind[54].sqldata = (dly_rec).qzday14;
556 #line 197 "pro_dly.ec"
557  _sqobind[55].sqldata = (dly_rec).qzday15;
558 #line 197 "pro_dly.ec"
559  _sqobind[56].sqldata = (dly_rec).qzday16;
560 #line 197 "pro_dly.ec"
561  _sqobind[57].sqldata = (dly_rec).qzday17;
562 #line 197 "pro_dly.ec"
563  _sqobind[58].sqldata = (dly_rec).qzday18;
564 #line 197 "pro_dly.ec"
565  _sqobind[59].sqldata = (dly_rec).qzday19;
566 #line 197 "pro_dly.ec"
567  _sqobind[60].sqldata = (dly_rec).qzday20;
568 #line 197 "pro_dly.ec"
569  _sqobind[61].sqldata = (dly_rec).qzday21;
570 #line 197 "pro_dly.ec"
571  _sqobind[62].sqldata = (dly_rec).qzday22;
572 #line 197 "pro_dly.ec"
573  _sqobind[63].sqldata = (dly_rec).qzday23;
574 #line 197 "pro_dly.ec"
575  _sqobind[64].sqldata = (dly_rec).qzday24;
576 #line 197 "pro_dly.ec"
577  _sqobind[65].sqldata = (dly_rec).qzday25;
578 #line 197 "pro_dly.ec"
579  _sqobind[66].sqldata = (dly_rec).qzday26;
580 #line 197 "pro_dly.ec"
581  _sqobind[67].sqldata = (dly_rec).qzday27;
582 #line 197 "pro_dly.ec"
583  _sqobind[68].sqldata = (dly_rec).qzday28;
584 #line 197 "pro_dly.ec"
585  _sqobind[69].sqldata = (dly_rec).qzday29;
586 #line 197 "pro_dly.ec"
587  _sqobind[70].sqldata = (dly_rec).qzday30;
588 #line 197 "pro_dly.ec"
589  _sqobind[71].sqldata = (dly_rec).qzday31;
590 #line 197 "pro_dly.ec"
591  sqli_slct(ESQLINTVERSION, &_SQ0,sqlcmdtxt,10,_sqibind,72,_sqobind,0,(ifx_literal_t *)0,(ifx_namelist_t *)0,0);
592 #line 197 "pro_dly.ec"
593  }
594 
595 
596 
597 
598  if(sqlca.sqlcode < 0)
599  return(sqlca.sqlcode);
600 
601  if(sqlca.sqlcode == 0) {
602 
603 
604  get_val31_array();
605 
606 
607 
608  numdays=getmonthdays(year,month);
609 
610 
611  for(k=numdays;k>0;k--) {
612 
613  day=k;
614 
615  zdate=dly_rec.cal_yr*10000+dly_rec.mon*100+day;
616 
617  if(year==eyr && month==emo && day < edy)
618  break;
619 
620  if(year==byr && month==bmo && day > bdy)
621  continue;
622 
623  if(data_record.values[k] < -98)
624  continue;
625 
626  if(*qual != 0) {
627 
628  for(hh=0;hh<qlen;hh++)
629  if(*(qual+hh) == data_record.lwals[k])
630  break;
631 
632  if(hh==qlen)
633  continue;
634 
635  }
636 
637 
638 
640  stn_values[jtotal].zdate=zdate;
641 
642  stn_values[jtotal].qual= data_record.lwals[k];
643 
644  stn_values[jtotal++].ztime=120000;
645 
646  }
647 
648 
649  }
650 
651  if(jtotal > 9600)
652  break;
653 
654  if(year==eyr && month==emo)
655  break;
657 
658  }
659 
660 
661 return(jtotal);
662 
663 }
664 
666 {
667 
708  data_record.lwals[10] = dly_rec.qzday10[0];
709  data_record.lwals[11] = dly_rec.qzday11[0];
710  data_record.lwals[12] = dly_rec.qzday12[0];
711  data_record.lwals[13] = dly_rec.qzday13[0];
712  data_record.lwals[14] = dly_rec.qzday14[0];
713  data_record.lwals[15] = dly_rec.qzday15[0];
714  data_record.lwals[16] = dly_rec.qzday16[0];
715  data_record.lwals[17] = dly_rec.qzday17[0];
716  data_record.lwals[18] = dly_rec.qzday18[0];
717  data_record.lwals[19] = dly_rec.qzday19[0];
718  data_record.lwals[20] = dly_rec.qzday20[0];
719  data_record.lwals[21] = dly_rec.qzday21[0];
720  data_record.lwals[22] = dly_rec.qzday22[0];
721  data_record.lwals[23] = dly_rec.qzday23[0];
722  data_record.lwals[24] = dly_rec.qzday24[0];
723  data_record.lwals[25] = dly_rec.qzday25[0];
724  data_record.lwals[26] = dly_rec.qzday26[0];
725  data_record.lwals[27] = dly_rec.qzday27[0];
726  data_record.lwals[28] = dly_rec.qzday28[0];
727  data_record.lwals[29] = dly_rec.qzday29[0];
728  data_record.lwals[30] = dly_rec.qzday30[0];
729  data_record.lwals[31] = dly_rec.qzday31[0];
730 
731  return(0);
732 }
733 
734 void change_date1(int *year,int *month)
735 
736 {
737 
738 char buf[10];
739 XmString btn_text;
740 Arg args[10];
741 
742 (*month)--;
743 if(*month==0) {
744 
745  (*year)--;
746  *month=12;
747 
748  }
749 
750 }
751 
752 int getmonthdays(int year,int month)
753 
754 {
755 
756 
757 extern int mday[];
758 
759 if (!((year)%4))
760  mday[1]=29;
761 else
762  mday[1]=28;
763 
764 /*
765 if ((year)==1972 || (year)==1976 || (year)==1980 ||
766  (year)==1984 || (year)==1988 || (year)==1992 ||
767  (year)==1996 || (year)==2000 || (year)==2004 ||
768  (year)==2008 || (year)==2012 || (year)==2016)
769  mday[1]=29;
770 else
771  mday[1]=28;
772 */
773 
774 
775 return(mday[month-1]);
776 
777 }
778 
779 
780 #line 382 "pro_dly.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
char qual[10]
Definition: subdisplay.c:33
int month
Definition: display_data.c:26
int mday[]
Definition: fmap_qtrly.c:519
char * mon[]
struct stat buf
Definition: is_file_closed.c:8
int k
Definition: mapp2h.h:48
Arg args[10]
int emo
Definition: pro_dly.c:123
struct data_rec data_record
int bdy
Definition: pro_dly.c:124
void change_date1()
int eyr
Definition: pro_dly.c:123
int edy
Definition: pro_dly.c:123
int pro_dly(char *hb5, char *parm, struct stim begin_date, struct stim end_date, char *qual, struct stn_values *stn_values)
Definition: pro_dly.c:233
int bmo
Definition: pro_dly.c:124
int4 SQLCODE
struct sqlca_s ifx_sqlca_t
int get_val31_array()
Definition: pro_dly.c:665
struct pro_dly_rec dly_rec
int getmonthdays(int year, int month)
Definition: pro_dly.c:752
char SQLSTATE[]
struct sqlca_s sqlca
int byr
Definition: pro_dly.c:124
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 zday10
Definition: pro_dly.c:146
double zday04
Definition: pro_dly.c:140
double zday17
Definition: pro_dly.c:153
double zday11
Definition: pro_dly.c:147
char qzday31[2]
Definition: pro_dly.c:198
char qzday05[2]
Definition: pro_dly.c:172
double zday08
Definition: pro_dly.c:144
char e[2]
Definition: pro_dly.c:133
char qzday30[2]
Definition: pro_dly.c:197
double zday28
Definition: pro_dly.c:164
char pe1[2]
Definition: pro_dly.c:128
char qzday14[2]
Definition: pro_dly.c:181
double zday26
Definition: pro_dly.c:162
char qzday10[2]
Definition: pro_dly.c:177
char t[2]
Definition: pro_dly.c:131
char qzday02[2]
Definition: pro_dly.c:169
double zday18
Definition: pro_dly.c:154
char qzday07[2]
Definition: pro_dly.c:174
int cal_yr
Definition: pro_dly.c:135
double zday15
Definition: pro_dly.c:151
char qzday27[2]
Definition: pro_dly.c:194
char qzday29[2]
Definition: pro_dly.c:196
double zday22
Definition: pro_dly.c:158
double zday31
Definition: pro_dly.c:167
double zday09
Definition: pro_dly.c:145
char qzday26[2]
Definition: pro_dly.c:193
double zday30
Definition: pro_dly.c:166
char qzday01[2]
Definition: pro_dly.c:168
char qzday20[2]
Definition: pro_dly.c:187
double zday05
Definition: pro_dly.c:141
double zday14
Definition: pro_dly.c:150
double zday01
Definition: pro_dly.c:137
char pe2[2]
Definition: pro_dly.c:129
char qzday08[2]
Definition: pro_dly.c:175
double zday23
Definition: pro_dly.c:159
double zday20
Definition: pro_dly.c:156
double zday27
Definition: pro_dly.c:163
double zday07
Definition: pro_dly.c:143
char dur[2]
Definition: pro_dly.c:130
char qzday12[2]
Definition: pro_dly.c:179
char qzday17[2]
Definition: pro_dly.c:184
char qzday06[2]
Definition: pro_dly.c:173
char qzday11[2]
Definition: pro_dly.c:178
double zday06
Definition: pro_dly.c:142
char qzday16[2]
Definition: pro_dly.c:183
double zday19
Definition: pro_dly.c:155
char qzday15[2]
Definition: pro_dly.c:182
char qzday18[2]
Definition: pro_dly.c:185
char p[2]
Definition: pro_dly.c:134
char qzday19[2]
Definition: pro_dly.c:186
double zday02
Definition: pro_dly.c:138
char qzday03[2]
Definition: pro_dly.c:170
char qzday21[2]
Definition: pro_dly.c:188
double zday24
Definition: pro_dly.c:160
double zday12
Definition: pro_dly.c:148
double zday13
Definition: pro_dly.c:149
char qzday24[2]
Definition: pro_dly.c:191
double zday03
Definition: pro_dly.c:139
char s[2]
Definition: pro_dly.c:132
double zday21
Definition: pro_dly.c:157
char qzday22[2]
Definition: pro_dly.c:189
double zday16
Definition: pro_dly.c:152
double zday29
Definition: pro_dly.c:165
double zday25
Definition: pro_dly.c:161
char qzday04[2]
Definition: pro_dly.c:171
char qzday28[2]
Definition: pro_dly.c:195
char qzday25[2]
Definition: pro_dly.c:192
char qzday23[2]
Definition: pro_dly.c:190
char qzday13[2]
Definition: pro_dly.c:180
char qzday09[2]
Definition: pro_dly.c:176
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