hb5_search.c

Go to the documentation of this file.

#include <sqlhdr.h>
#include <sqliapi.h>
static const char _Cn1[] = "hb5cursor";
#line 1 "hb5_search.ec"
#include "prototypes_new.h"
/* 
 * EXEC SQL include sqlca.h;
 */
#line 2 "hb5_search.ec"
 
#line 2 "hb5_search.ec"
#line 1 "/opt/informix/incl/esql/sqlca.h"
/****************************************************************************
 *
 * Licensed Material - Property Of IBM
 *
 * "Restricted Materials of IBM"
 *
 * IBM Informix Client SDK
 * Copyright IBM Corporation 1997, 2008. All rights reserved.
 *
 *  Title:       sqlca.h
 *  Description: SQL Control Area
 *
 ***************************************************************************
 */
 
#ifndef SQLCA_INCL
#define SQLCA_INCL
 
#include "ifxtypes.h"
 
#ifdef __cplusplus
extern "C" {
#endif
 
typedef struct sqlca_s
    {
    int4 sqlcode;
#ifdef DB2CLI
    char sqlerrm[600]; /* error message parameters */
#else /* DB2CLI */
    char sqlerrm[72]; /* error message parameters */
#endif /* DB2CLI */
    char sqlerrp[8];
    int4 sqlerrd[6];
            /* 0 - estimated number of rows returned */
            /* 1 - serial value after insert or  ISAM error code */
            /* 2 - number of rows processed */
            /* 3 - estimated cost */
            /* 4 - offset of the error into the SQL statement */
            /* 5 - rowid after insert  */
#ifdef _FGL_
    char sqlawarn[8];
#else
    struct sqlcaw_s
    {
    char sqlwarn0; /* = W if any of sqlwarn[1-7] = W */
    char sqlwarn1; /* = W if any truncation occurred or
                database has transactions or
                    no privileges revoked */
    char sqlwarn2; /* = W if a null value returned or
                ANSI database */
    char sqlwarn3; /* = W if no. in select list != no. in into list or
                turbo backend or no privileges granted */
    char sqlwarn4; /* = W if no where clause on prepared update, delete or
                incompatible float format */
    char sqlwarn5; /* = W if non-ANSI statement */
    char sqlwarn6; /* = W if server is in data replication secondary mode */
    char sqlwarn7; /* = W if database locale is different from proc_locale
                          = W if backend XPS and if explain avoid_execute is set
                              (for select, insert, delete and update only)
            */
    } sqlwarn;
#endif
    } ifx_sqlca_t;
 
/* NOTE: 4gl assumes that the sqlwarn structure can be defined as
 *  sqlawarn -- an 8 character string, because single-char
 *  variables are not recognized in 4gl.
 *
 * If this structure should change, the code generated by 4gl compiler
 *  must also change
 */
 
#define SQLNOTFOUND 100
 
#ifndef IFX_THREAD
#ifdef DB2CLI
#define sqlca ifmxsqlca
extern struct sqlca_s sqlca;
#else /* DB2CLI */
extern struct sqlca_s sqlca;
#endif /* DB2CLI */
 
#ifndef DRDAHELP
extern int4 SQLCODE;
#endif
 
extern char SQLSTATE[];
#else /* IFX_THREAD */
extern int4 * ifx_sqlcode(void);
extern struct sqlca_s * ifx_sqlca(void);
/* ifx_sqlstate() declared in sqlhdr.h */
#define SQLCODE (*(ifx_sqlcode()))
#define SQLSTATE ((char *)(ifx_sqlstate()))
#define sqlca (*(ifx_sqlca()))
#endif /* IFX_THREAD */
 
#ifdef __cplusplus
}
#endif
 
#endif /* SQLCA_INCL */
 
#line 103 "/opt/informix/incl/esql/sqlca.h"
#line 3 "hb5_search.ec"
 
 
/*
 * EXEC SQL BEGIN DECLARE SECTION;
 */
#line 5 "hb5_search.ec"
#line 6 "hb5_search.ec"
extern   char astring[50];
struct etn_rec
  {
      char id[6];
      char plat[9];
      char des[51];
      char det[41];
      char init[9];
      char lat[7];
      char lng[8];
    int elev;
      char stat[3];
      char huc[9];
      char cou[4];
      char zon[5];
      char hsa[4];
      char cwa[4];
    int post;
      char dbsource[4];
  }  btn_rec;
/*
 * EXEC SQL END DECLARE SECTION;
 */
#line 30 "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 45 "hb5_search.ec"
  {
#line 45 "hb5_search.ec"
  static ifx_sqlvar_t _sqibind[] = 
    {
      { 100, 50, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
#line 45 "hb5_search.ec"
    };
  static ifx_sqlda_t _SD0 = { 1, _sqibind, {0}, 1, 0 };
#line 45 "hb5_search.ec"
  _sqibind[0].sqldata = astring;
  sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn1, 768), &_SD0, (char *)0, (struct value *)0, 1, 0);
#line 45 "hb5_search.ec"
  }
 
if(sqlca.sqlcode !=0 )
              return(sqlca.sqlcode);
 
for(i=0;i<500;i++) {
 
/*
 *           EXEC SQL fetch hb5cursor into :btn_rec;
 */
#line 52 "hb5_search.ec"
  {
#line 52 "hb5_search.ec"
  static ifx_sqlvar_t _sqobind[] = 
    {
      { 100, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 51, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 41, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 9, 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 },
      { 102, sizeof((btn_rec).elev), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 102, sizeof((btn_rec).post), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
#line 52 "hb5_search.ec"
    };
  static ifx_sqlda_t _SD0 = { 16, _sqobind, {0}, 16, 0 };
  static _FetchSpec _FS1 = { 0, 1, 0 };
#line 52 "hb5_search.ec"
  _sqobind[0].sqldata = (btn_rec).id;
#line 52 "hb5_search.ec"
  _sqobind[1].sqldata = (btn_rec).plat;
#line 52 "hb5_search.ec"
  _sqobind[2].sqldata = (btn_rec).des;
#line 52 "hb5_search.ec"
  _sqobind[3].sqldata = (btn_rec).det;
#line 52 "hb5_search.ec"
  _sqobind[4].sqldata = (btn_rec).init;
#line 52 "hb5_search.ec"
  _sqobind[5].sqldata = (btn_rec).lat;
#line 52 "hb5_search.ec"
  _sqobind[6].sqldata = (btn_rec).lng;
#line 52 "hb5_search.ec"
  _sqobind[7].sqldata = (char *) &(btn_rec).elev;
#line 52 "hb5_search.ec"
  _sqobind[8].sqldata = (btn_rec).stat;
#line 52 "hb5_search.ec"
  _sqobind[9].sqldata = (btn_rec).huc;
#line 52 "hb5_search.ec"
  _sqobind[10].sqldata = (btn_rec).cou;
#line 52 "hb5_search.ec"
  _sqobind[11].sqldata = (btn_rec).zon;
#line 52 "hb5_search.ec"
  _sqobind[12].sqldata = (btn_rec).hsa;
#line 52 "hb5_search.ec"
  _sqobind[13].sqldata = (btn_rec).cwa;
#line 52 "hb5_search.ec"
  _sqobind[14].sqldata = (char *) &(btn_rec).post;
#line 52 "hb5_search.ec"
  _sqobind[15].sqldata = (btn_rec).dbsource;
  sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn1, 768), (ifx_sqlda_t *)0, &_SD0, (char *)0, &_FS1);
#line 52 "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 64 "hb5_search.ec"
  {
#line 64 "hb5_search.ec"
  sqli_curs_close(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn1, 768));
#line 64 "hb5_search.ec"
  }
 
return(i);
 
}
 
 
 
 
#line 71 "hb5_search.ec"