get_sensor_info.c

Go to the documentation of this file.

#include <sqlhdr.h>
#include <sqliapi.h>
static const char _Cn2[] = "loop_c";
static const char _Cn1[] = "qid";
#line 1 "get_sensor_info.ec"
#include "prototypes.h"
 
int get_sensor_info(char *stn_id, char *shef, struct sensor_file *sfile)
{
/* general variable definitions */
char *caller="get_stn_info:  ";
char deg[3];
char min[2];
char sec[2];
 
/* declare informix host variables */
/*
 * exec sql begin declare section;
 */
#line 12 "get_sensor_info.ec"
#line 13 "get_sensor_info.ec"
  char query[1000];
  char stn_des[31];
  char stn_lat[7];
  char stn_lon[8];
int stn_elev;
/*
 * exec sql end declare section;
 */
#line 18 "get_sensor_info.ec"
 
 
/* build loop to find the entry for station */
sprintf(query,"select elev, lat, lng, des from stn where "
              "id = \"%s\" ", stn_id);
 
/*
 * $prepare qid from $query;
 */
#line 24 "get_sensor_info.ec"
  {
#line 24 "get_sensor_info.ec"
  sqli_prep(ESQLINTVERSION, _Cn1, query,(ifx_literal_t *)0, (ifx_namelist_t *)0, -1, 0, 0 ); 
#line 24 "get_sensor_info.ec"
  }
if(sqlca.sqlcode)
{
  printf("%sprepare qid (%d)\n",caller,sqlca.sqlcode);
  return(-1);
}
 
/*
 * $declare loop_c cursor for qid;
 */
#line 31 "get_sensor_info.ec"
  {
#line 31 "get_sensor_info.ec"
  sqli_curs_decl_dynm(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn2, 512), _Cn2, sqli_curs_locate(ESQLINTVERSION, _Cn1, 513), 0, 0);
#line 31 "get_sensor_info.ec"
  }
if(sqlca.sqlcode)
{
  printf("%sdeclare loop_c (%d)\n",caller,sqlca.sqlcode);
/*
 *   $free qid;
 */
#line 35 "get_sensor_info.ec"
  {
#line 35 "get_sensor_info.ec"
  sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn1, 770));
#line 35 "get_sensor_info.ec"
  }
  return(-1);
}
 
/*
 * $open loop_c;
 */
#line 39 "get_sensor_info.ec"
  {
#line 39 "get_sensor_info.ec"
  sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn2, 768), (ifx_sqlda_t *)0, (char *)0, (struct value *)0, 0, 0);
#line 39 "get_sensor_info.ec"
  }
if(sqlca.sqlcode)
{
  printf("%sopen loop_c (%d)\n",caller,sqlca.sqlcode);
/*
 *   $free loop_c;
 */
#line 43 "get_sensor_info.ec"
  {
#line 43 "get_sensor_info.ec"
  sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn2, 770));
#line 43 "get_sensor_info.ec"
  }
/*
 *   $free qid;
 */
#line 44 "get_sensor_info.ec"
  {
#line 44 "get_sensor_info.ec"
  sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn1, 770));
#line 44 "get_sensor_info.ec"
  }
  return(-1);
}
 
/*
 * $fetch loop_c into $stn_elev, $stn_lat, $stn_lon, $stn_des;
 */
#line 48 "get_sensor_info.ec"
  {
#line 48 "get_sensor_info.ec"
  static ifx_sqlvar_t _sqobind[] = 
    {
      { 102, sizeof(stn_elev), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 31, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
#line 48 "get_sensor_info.ec"
    };
  static ifx_sqlda_t _SD0 = { 4, _sqobind, {0}, 4, 0 };
  static _FetchSpec _FS1 = { 0, 1, 0 };
#line 48 "get_sensor_info.ec"
  _sqobind[0].sqldata = (char *) &stn_elev;
#line 48 "get_sensor_info.ec"
  _sqobind[1].sqldata = stn_lat;
#line 48 "get_sensor_info.ec"
  _sqobind[2].sqldata = stn_lon;
#line 48 "get_sensor_info.ec"
  _sqobind[3].sqldata = stn_des;
  sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn2, 768), (ifx_sqlda_t *)0, &_SD0, (char *)0, &_FS1);
#line 48 "get_sensor_info.ec"
  }
if(sqlca.sqlcode)
{
  printf("%sfetch loop_c (%d)\n",caller,sqlca.sqlcode);
/*
 *   $free loop_c;
 */
#line 52 "get_sensor_info.ec"
  {
#line 52 "get_sensor_info.ec"
  sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn2, 770));
#line 52 "get_sensor_info.ec"
  }
/*
 *   $free qid;
 */
#line 53 "get_sensor_info.ec"
  {
#line 53 "get_sensor_info.ec"
  sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn1, 770));
#line 53 "get_sensor_info.ec"
  }
  return(-1);
}
sfile->sid=(char)NULL;
sprintf(sfile->name,"%s",stn_des);
sprintf(sfile->hb5_id,stn_id);
sprintf(sfile->pc,shef);
sfile->lat_ord=atoi(stn_lat);
sfile->long_ord=atoi(stn_lon);
sfile->hemisphere_lat='W';
sfile->hemisphere_long='N';
sfile->elevation = (float)stn_elev;
/*
sfile->elevation_units="feet";
*/
 
/*
 * $close loop_c;
 */
#line 69 "get_sensor_info.ec"
  {
#line 69 "get_sensor_info.ec"
  sqli_curs_close(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn2, 768));
#line 69 "get_sensor_info.ec"
  }
/*
 * $free loop_c;
 */
#line 70 "get_sensor_info.ec"
  {
#line 70 "get_sensor_info.ec"
  sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn2, 770));
#line 70 "get_sensor_info.ec"
  }
/*
 * $free qid;
 */
#line 71 "get_sensor_info.ec"
  {
#line 71 "get_sensor_info.ec"
  sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn1, 770));
#line 71 "get_sensor_info.ec"
  }
return 0;
}
 
 
#line 74 "get_sensor_info.ec"