init_review.c

Go to the documentation of this file.

#include <sqlhdr.h>
#include <sqlca.h>
extern _SQCURSOR *_iqnprep();
static char *_Cn10 = "ratecursor"; static _SQCURSOR *_SQ10 = 0;
static char *_Cn9 = "selectrate"; static _SQCURSOR *_SQ9 = 0;
static char *_Cn8 = "shiftcursor"; static _SQCURSOR *_SQ8 = 0;
static char *_Cn7 = "selectshift"; static _SQCURSOR *_SQ7 = 0;
static char *_Cn6 = "selectcur9"; static _SQCURSOR *_SQ6 = 0;
static char *_Cn5 = "selectvalue9"; static _SQCURSOR *_SQ5 = 0;
static char *_Cn4 = "sensorcursor"; static _SQCURSOR *_SQ4 = 0;
static char *_Cn3 = "selectsensor"; static _SQCURSOR *_SQ3 = 0;
static char *_Cn2 = "stncursor"; static _SQCURSOR *_SQ2 = 0;
static char *_Cn1 = "selectstn"; static _SQCURSOR *_SQ1 = 0;
#line 1 "init_review.ec"
 
void init_review()
 
{
 
/*
 * EXEC SQL database rawdb;
 */
#line 6 "init_review.ec"
  {
#line 6 "init_review.ec"
  _iqdbase("rawdb", 0);
#line 6 "init_review.ec"
  }
 
/*
 * EXEC SQL prepare selectstn from
 *      "select *
 *       from stn
 *       order by huc1,stat,id";
 */
#line 8 "init_review.ec"
  {
#line 8 "init_review.ec"
#line 8 "init_review.ec"
  _SQ1 = _iqnprep(_Cn1, "select *       from stn       order by huc1,stat,id", 0);
#line 11 "init_review.ec"
  }
 
if(sqlca.sqlcode < 0){
 
              printf("informix error %d\n",sqlca.sqlcode);
              exit(1);
 
              }
 
/*
 * EXEC SQL declare stncursor cursor for selectstn;
 */
#line 20 "init_review.ec"
  {
#line 20 "init_review.ec"
#line 20 "init_review.ec"
  if (!_SQ2) _SQ2 = _iqlocate_cursor(_Cn2, 0, 0, 0);
#line 20 "init_review.ec"
  if (!_SQ1) _SQ1 = _iqlocate_cursor(_Cn1, 1, 1, 0);
#line 20 "init_review.ec"
  _iqcddcl(_SQ2, _Cn2, _SQ1, 0);
#line 20 "init_review.ec"
  }
 
if(sqlca.sqlcode < 0){
 
              printf("informix error %d\n",sqlca.sqlcode);
              exit(1);
 
              }
 
/*
 * EXEC SQL prepare selectsensor from
 *      "select *
 *       from sens
 *       where id matches ?";
 */
#line 29 "init_review.ec"
  {
#line 29 "init_review.ec"
#line 29 "init_review.ec"
  _SQ3 = _iqnprep(_Cn3, "select *       from sens       where id matches ?", 0);
#line 32 "init_review.ec"
  }
 
/*
 * EXEC SQL declare sensorcursor cursor for selectsensor;
 */
#line 34 "init_review.ec"
  {
#line 34 "init_review.ec"
#line 34 "init_review.ec"
  if (!_SQ4) _SQ4 = _iqlocate_cursor(_Cn4, 0, 0, 0);
#line 34 "init_review.ec"
  if (!_SQ3) _SQ3 = _iqlocate_cursor(_Cn3, 1, 1, 0);
#line 34 "init_review.ec"
  _iqcddcl(_SQ4, _Cn4, _SQ3, 0);
#line 34 "init_review.ec"
  }
 
if(sqlca.sqlcode < 0){
 
              printf("informix error %d\n",sqlca.sqlcode);
              exit(1);
 
              }
 
 
/*
 * EXEC SQL prepare selectvalue9 from
 *  "select *
 *   from val96
 *   where pe1  = 'H' and pe2 = 'G'
 *   and zdate >= ? and zdate <= ?
 *   order by id asc,zdate desc";
 */
#line 44 "init_review.ec"
  {
#line 44 "init_review.ec"
#line 44 "init_review.ec"
  _SQ5 = _iqnprep(_Cn5, "select *   from val96   where pe1  = 'H' and pe2 = 'G'   and zdate >= ? and zdate <= ?   order by id asc,zdate desc", 0);
#line 49 "init_review.ec"
  }
 
if(sqlca.sqlcode != 0){
 
              printf("informix error %d\n",sqlca.sqlcode);
              exit(1);
 
              }
 
/*
 * EXEC SQL declare selectcur9 cursor for selectvalue9;
 */
#line 58 "init_review.ec"
  {
#line 58 "init_review.ec"
#line 58 "init_review.ec"
  if (!_SQ6) _SQ6 = _iqlocate_cursor(_Cn6, 0, 0, 0);
#line 58 "init_review.ec"
  if (!_SQ5) _SQ5 = _iqlocate_cursor(_Cn5, 1, 1, 0);
#line 58 "init_review.ec"
  _iqcddcl(_SQ6, _Cn6, _SQ5, 0);
#line 58 "init_review.ec"
  }
 
if(sqlca.sqlcode < 0){
 
              printf("informix error %d\n",sqlca.sqlcode);
              exit(1);
 
              }
 
/*
 * EXEC SQL prepare selectshift from
 *        "select *
 *  from ratshift
 *  where id matches ?
 *         order by begin_date desc";
 */
#line 67 "init_review.ec"
  {
#line 67 "init_review.ec"
#line 67 "init_review.ec"
  _SQ7 = _iqnprep(_Cn7, "select *   from ratshift   where id matches ?         order by begin_date desc", 0);
#line 71 "init_review.ec"
  }
 
if(sqlca.sqlcode < 0){
 
              printf("informix error %d\n",sqlca.sqlcode);
              exit(1);
 
              }
 
/*
 * EXEC SQL declare shiftcursor cursor for selectshift;
 */
#line 80 "init_review.ec"
  {
#line 80 "init_review.ec"
#line 80 "init_review.ec"
  if (!_SQ8) _SQ8 = _iqlocate_cursor(_Cn8, 0, 0, 0);
#line 80 "init_review.ec"
  if (!_SQ7) _SQ7 = _iqlocate_cursor(_Cn7, 1, 1, 0);
#line 80 "init_review.ec"
  _iqcddcl(_SQ8, _Cn8, _SQ7, 0);
#line 80 "init_review.ec"
  }
 
if(sqlca.sqlcode < 0) {
 
              printf("informix error %d\n",sqlca.sqlcode);
              exit(1);
 
              }
 
/*
 * EXEC SQL prepare selectrate from
 *        "select *
 *  from rattbl
 *  where id matches ? and
 *         tbl = ?";
 */
#line 89 "init_review.ec"
  {
#line 89 "init_review.ec"
#line 89 "init_review.ec"
  _SQ9 = _iqnprep(_Cn9, "select *   from rattbl     where id matches ? and         tbl = ?", 0);
#line 93 "init_review.ec"
  }
 
if(sqlca.sqlcode < 0){
 
              printf("informix error %d\n",sqlca.sqlcode);
              exit(1);
 
              }
 
/*
 * EXEC SQL declare ratecursor cursor for selectrate;
 */
#line 102 "init_review.ec"
  {
#line 102 "init_review.ec"
#line 102 "init_review.ec"
  if (!_SQ10) _SQ10 = _iqlocate_cursor(_Cn10, 0, 0, 0);
#line 102 "init_review.ec"
  if (!_SQ9) _SQ9 = _iqlocate_cursor(_Cn9, 1, 1, 0);
#line 102 "init_review.ec"
  _iqcddcl(_SQ10, _Cn10, _SQ9, 0);
#line 102 "init_review.ec"
  }
 
if(sqlca.sqlcode < 0){
 
              printf("informix error %d\n",sqlca.sqlcode);
              exit(1);
 
              }
 
}