hb5_search.c

Go to the documentation of this file.

#include <sqlhdr.h>
extern _SQCURSOR *_iqnprep();
static char *_Cn1 = "hb5cursor"; static _SQCURSOR *_SQ1 = 0;
#line 1 "hb5_search.ec"
#include "prototypes.h"
/* 
 * EXEC SQL include sqlca.h;
 */
#line 2 "hb5_search.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 "hb5_search.ec"
 
 
/*
 * EXEC SQL BEGIN DECLARE SECTION;
 */
#line 5 "hb5_search.ec"
 
extern char astring[50];
extern struct etn_rec
  {
    char id[6];
    char plat[9];
    char aid[9];
    char aid2[9];
    char type[2];
    char des[51];
    char det[41];
    char init[9];
    char lat[7];
    char lng[8];
    int elev;
    char stat[3];
    char huc1[9];
    char cou[4];
    char zon[5];
    char ownag[7];
    char ownloc[4];
    char maintag[7];
    char maintloc[4];
    int post;
  }  btn_rec;
/*
 * EXEC SQL END DECLARE SECTION;
 */
#line 33 "hb5_search.ec"
 
 
int hb5_search(int dbase,char *cstr,struct stn_rec *stn_record)
 
{
 
 
int i;
 
strcpy(astring,cstr);
 
i=0;
while(astring[i] != 0)
   astring[i++]=toupper(astring[i]);
 
/*
 * EXEC SQL open hb5cursor using: astring;
 */
#line 48 "hb5_search.ec"
  {
#line 48 "hb5_search.ec"
  static struct sqlvar_struct _sqibind[] = 
    {
      { 100, 50, 0, 0, 0, 0, 0, 0, 0 },
#line 48 "hb5_search.ec"
    };
  static struct sqlda _SD0 = { 1, _sqibind, 0, 1, 0 };
#line 48 "hb5_search.ec"
  _sqibind[0].sqldata = astring;
#line 48 "hb5_search.ec"
  if (!_SQ1) _SQ1 = _iqlocate_cursor(_Cn1, 0, 1, 0);
#line 48 "hb5_search.ec"
  _iqdcopen(_SQ1, &_SD0, (char *)0, (char *)0, 1);
#line 48 "hb5_search.ec"
  }
 
if(sqlca.sqlcode !=0 )
              return(sqlca.sqlcode);
 
for(i=0;i<500;i++) {
 
/*
 *           EXEC SQL fetch hb5cursor into :btn_rec;
 */
#line 55 "hb5_search.ec"
  {
#line 55 "hb5_search.ec"
  static struct sqlvar_struct _sqobind[] = 
    {
      { 100, 6, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 9, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 9, 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 },
      { 100, 51, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 41, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 9, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 7, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 8, 0, 0, 0, 0, 0, 0, 0 },
      { 102, sizeof((btn_rec).elev), 0, 0, 0, 0, 0, 0, 0 },
      { 100, 3, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 9, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 4, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 5, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 7, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 4, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 7, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 4, 0, 0, 0, 0, 0, 0, 0 },
      { 102, sizeof((btn_rec).post), 0, 0, 0, 0, 0, 0, 0 },
#line 55 "hb5_search.ec"
    };
  static struct sqlda _SD0 = { 20, _sqobind, 0, 20, 0 };
  static _FetchSpec _FS1 = { 0, 1, 0 };
#line 55 "hb5_search.ec"
  _sqobind[0].sqldata = (btn_rec).id;
#line 55 "hb5_search.ec"
  _sqobind[1].sqldata = (btn_rec).plat;
#line 55 "hb5_search.ec"
  _sqobind[2].sqldata = (btn_rec).aid;
#line 55 "hb5_search.ec"
  _sqobind[3].sqldata = (btn_rec).aid2;
#line 55 "hb5_search.ec"
  _sqobind[4].sqldata = (btn_rec).type;
#line 55 "hb5_search.ec"
  _sqobind[5].sqldata = (btn_rec).des;
#line 55 "hb5_search.ec"
  _sqobind[6].sqldata = (btn_rec).det;
#line 55 "hb5_search.ec"
  _sqobind[7].sqldata = (btn_rec).init;
#line 55 "hb5_search.ec"
  _sqobind[8].sqldata = (btn_rec).lat;
#line 55 "hb5_search.ec"
  _sqobind[9].sqldata = (btn_rec).lng;
#line 55 "hb5_search.ec"
  _sqobind[10].sqldata = (char *) &(btn_rec).elev;
#line 55 "hb5_search.ec"
  _sqobind[11].sqldata = (btn_rec).stat;
#line 55 "hb5_search.ec"
  _sqobind[12].sqldata = (btn_rec).huc1;
#line 55 "hb5_search.ec"
  _sqobind[13].sqldata = (btn_rec).cou;
#line 55 "hb5_search.ec"
  _sqobind[14].sqldata = (btn_rec).zon;
#line 55 "hb5_search.ec"
  _sqobind[15].sqldata = (btn_rec).ownag;
#line 55 "hb5_search.ec"
  _sqobind[16].sqldata = (btn_rec).ownloc;
#line 55 "hb5_search.ec"
  _sqobind[17].sqldata = (btn_rec).maintag;
#line 55 "hb5_search.ec"
  _sqobind[18].sqldata = (btn_rec).maintloc;
#line 55 "hb5_search.ec"
  _sqobind[19].sqldata = (char *) &(btn_rec).post;
#line 55 "hb5_search.ec"
  if (!_SQ1) _SQ1 = _iqlocate_cursor(_Cn1, 0, 1, 0);
#line 55 "hb5_search.ec"
  _iqcftch(_SQ1, (struct sqlda *)0, &_SD0, (char *)0, &_FS1);
#line 55 "hb5_search.ec"
  }
 
          if(sqlca.sqlcode < 0)
                    return(sqlca.sqlcode);
 
          if(sqlca.sqlcode != 0)
                    break;
 
          memcpy(&stn_record[i],&btn_rec,sizeof(struct stn_rec));
 
   }
 
/*
 * EXEC SQL close hb5cursor;
 */
#line 67 "hb5_search.ec"
  {
#line 67 "hb5_search.ec"
#line 67 "hb5_search.ec"
  if (!_SQ1) _SQ1 = _iqlocate_cursor(_Cn1, 0, 1, 0);
#line 67 "hb5_search.ec"
  _iqclose(_SQ1);
#line 67 "hb5_search.ec"
  }
 
return(i);
 
}