get_sensor_list.c

Go to the documentation of this file.

#include <sqlhdr.h>
extern _SQCURSOR *_iqnprep();
static char *_Cn1 = "sensorcursor"; static _SQCURSOR *_SQ1 = 0;
#line 1 "get_sensor_list.ec"
#include "prototypes.h"
/* 
 * EXEC SQL include sqlca.h;
 */
#line 2 "get_sensor_list.ec"
#line 1 "/usr/informix/incl/esql/sqlca.h"
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
#ifndef SQLCA_INCL
 
#define SQLCA_INCL
 
struct sqlca_s
    {
    long sqlcode;
    char sqlerrm[72];
    char sqlerrp[8];
    long sqlerrd[6];
        
        
        
        
        
        
    struct sqlcaw_s
    {
    char sqlwarn0;
    char sqlwarn1;
 
    char sqlwarn2;
 
    char sqlwarn3;
 
    char sqlwarn4;
 
    char sqlwarn5;
    char sqlwarn6;
    char sqlwarn7;
    } sqlwarn;
    };
 
 
 
 
 
 
 
 
 
#ifdef VMS
noshare
#endif
extern struct sqlca_s sqlca;
 
extern long SQLCODE;
 
#define SQLNOTFOUND 100
 
#endif
#line 3 "get_sensor_list.ec"
int get_sensor_list(char *hb5,struct sens_rec *sens_record)
 
{
 
int i;
 
/*
 * EXEC SQL BEGIN DECLARE SECTION;
 */
#line 9 "get_sensor_list.ec"
 
extern char astring[50];
extern struct eens_rec
  {
    char id[6];
    char pe1[2];
    char pe2[2];
    char dur[2];
    char t[2];
    char s[2];
    char e[2];
    char p[2];
    int post;
    char init[9];
    char ok[2];
  }  bens_rec;
/*
 * EXEC SQL END DECLARE SECTION;
 */
#line 27 "get_sensor_list.ec"
 
 
strcpy(astring,hb5);
 
i=0;
while(astring[i] != 0)
   astring[i++]=toupper(astring[i]);
 
/*
 * EXEC SQL open sensorcursor using: astring;
 */
#line 35 "get_sensor_list.ec"
  {
#line 35 "get_sensor_list.ec"
  static struct sqlvar_struct _sqibind[] = 
    {
      { 100, 50, 0, 0, 0, 0, 0, 0, 0 },
#line 35 "get_sensor_list.ec"
    };
  static struct sqlda _SD0 = { 1, _sqibind, 0, 1, 0 };
#line 35 "get_sensor_list.ec"
  _sqibind[0].sqldata = astring;
#line 35 "get_sensor_list.ec"
  if (!_SQ1) _SQ1 = _iqlocate_cursor(_Cn1, 0, 1, 0);
#line 35 "get_sensor_list.ec"
  _iqdcopen(_SQ1, &_SD0, (char *)0, (char *)0, 1);
#line 35 "get_sensor_list.ec"
  }
 
if(sqlca.sqlcode < 0)
         return(sqlca.sqlcode);
 
 for(i=0;i<50;i++) {
 
/*
 *           EXEC SQL fetch sensorcursor into :bens_rec;
 */
#line 42 "get_sensor_list.ec"
  {
#line 42 "get_sensor_list.ec"
  static struct sqlvar_struct _sqobind[] = 
    {
      { 100, 6, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
      { 102, sizeof((bens_rec).post), 0, 0, 0, 0, 0, 0, 0 },
      { 100, 9, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0 },
#line 42 "get_sensor_list.ec"
    };
  static struct sqlda _SD0 = { 11, _sqobind, 0, 11, 0 };
  static _FetchSpec _FS1 = { 0, 1, 0 };
#line 42 "get_sensor_list.ec"
  _sqobind[0].sqldata = (bens_rec).id;
#line 42 "get_sensor_list.ec"
  _sqobind[1].sqldata = (bens_rec).pe1;
#line 42 "get_sensor_list.ec"
  _sqobind[2].sqldata = (bens_rec).pe2;
#line 42 "get_sensor_list.ec"
  _sqobind[3].sqldata = (bens_rec).dur;
#line 42 "get_sensor_list.ec"
  _sqobind[4].sqldata = (bens_rec).t;
#line 42 "get_sensor_list.ec"
  _sqobind[5].sqldata = (bens_rec).s;
#line 42 "get_sensor_list.ec"
  _sqobind[6].sqldata = (bens_rec).e;
#line 42 "get_sensor_list.ec"
  _sqobind[7].sqldata = (bens_rec).p;
#line 42 "get_sensor_list.ec"
  _sqobind[8].sqldata = (char *) &(bens_rec).post;
#line 42 "get_sensor_list.ec"
  _sqobind[9].sqldata = (bens_rec).init;
#line 42 "get_sensor_list.ec"
  _sqobind[10].sqldata = (bens_rec).ok;
#line 42 "get_sensor_list.ec"
  if (!_SQ1) _SQ1 = _iqlocate_cursor(_Cn1, 0, 1, 0);
#line 42 "get_sensor_list.ec"
  _iqcftch(_SQ1, (struct sqlda *)0, &_SD0, (char *)0, &_FS1);
#line 42 "get_sensor_list.ec"
  }
 
          if(sqlca.sqlcode < 0)
                  return(sqlca.sqlcode);
 
          if(sqlca.sqlcode != 0)
                  break;
 
          memcpy(&sens_record[i],&bens_rec,sizeof(struct eens_rec));
 
   }
 
/*
 * EXEC SQL close sensorcursor;
 */
#line 54 "get_sensor_list.ec"
  {
#line 54 "get_sensor_list.ec"
#line 54 "get_sensor_list.ec"
  if (!_SQ1) _SQ1 = _iqlocate_cursor(_Cn1, 0, 1, 0);
#line 54 "get_sensor_list.ec"
  _iqclose(_SQ1);
#line 54 "get_sensor_list.ec"
  }
 
return(i);
 
 
}