exp.c

Go to the documentation of this file.

#include <sqlhdr.h>
extern _SQCURSOR *_iqnprep();
static char *_Cn2 = "sensorcursor"; static _SQCURSOR *_SQ2 = 0;
static char *_Cn1 = "selectsensor"; static _SQCURSOR *_SQ1 = 0;
#line 1 "exp.ec"
#include <stdio.h>
#include "rate_table.h"
#include "math.h"
/* 
 * EXEC SQL include sqlca.h;
 */
#line 4 "exp.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 5 "exp.ec"
 
main()
{
FILE *fp;
int err, flow, warning,i,j;
double stage;
RatingTable rate_table;
char c;
 
/*
 * EXEC SQL BEGIN DECLARE SECTION;
 */
#line 14 "exp.ec"
 
char astring[10];
char ihb5[10];
/*
 * EXEC SQL END DECLARE SECTION;
 */
#line 18 "exp.ec"
 
 
/*
 * EXEC SQL database rawdb;
 */
#line 20 "exp.ec"
  {
#line 20 "exp.ec"
  _iqdbase("rawdb", 0);
#line 20 "exp.ec"
  }
 
strcpy(astring, "H");
 
i=0;
while(astring[i] !=0)
  astring[i++]=toupper(astring[i]);
 
/*
 * EXEC SQL prepare selectsensor from
 * "select id
 * from sens
 * where pe1 matches ?";
 */
#line 28 "exp.ec"
  {
#line 28 "exp.ec"
#line 28 "exp.ec"
  _SQ1 = _iqnprep(_Cn1, "select id from sens where pe1 matches ?", 0);
#line 31 "exp.ec"
  }
 
if(sqlca.sqlcode < 0)
  return(sqlca.sqlcode);
 
/*
 * EXEC SQL declare sensorcursor cursor for selectsensor;
 */
#line 36 "exp.ec"
  {
#line 36 "exp.ec"
#line 36 "exp.ec"
  if (!_SQ2) _SQ2 = _iqlocate_cursor(_Cn2, 0, 0, 0);
#line 36 "exp.ec"
  if (!_SQ1) _SQ1 = _iqlocate_cursor(_Cn1, 1, 1, 0);
#line 36 "exp.ec"
  _iqcddcl(_SQ2, _Cn2, _SQ1, 0);
#line 36 "exp.ec"
  }
 
if(sqlca.sqlcode < 0)
  return(sqlca.sqlcode);
 
/*
 * EXEC SQL open sensorcursor using: astring;
 */
#line 41 "exp.ec"
  {
#line 41 "exp.ec"
  static struct sqlvar_struct _sqibind[] = 
    {
      { 100, 10, 0, 0, 0, 0, 0, 0, 0 },
#line 41 "exp.ec"
    };
  static struct sqlda _SD0 = { 1, _sqibind, 0, 1, 0 };
#line 41 "exp.ec"
  _sqibind[0].sqldata = astring;
#line 41 "exp.ec"
  if (!_SQ2) _SQ2 = _iqlocate_cursor(_Cn2, 0, 1, 0);
#line 41 "exp.ec"
  _iqdcopen(_SQ2, &_SD0, (char *)0, (char *)0, 1);
#line 41 "exp.ec"
  }
 
if(sqlca.sqlcode < 0)
  return(sqlca.sqlcode);
 
if ((fp = fopen("rc","w"))== NULL)
  printf("\nunable to open rc\n");
 
fprintf(fp,"\nDEF-RC");
for(i=0;i<1000;i++)
  {
/*
 *     EXEC SQL fetch sensorcursor into :ihb5;
 */
#line 52 "exp.ec"
  {
#line 52 "exp.ec"
  static struct sqlvar_struct _sqobind[] = 
    {
      { 100, 10, 0, 0, 0, 0, 0, 0, 0 },
#line 52 "exp.ec"
    };
  static struct sqlda _SD0 = { 1, _sqobind, 0, 1, 0 };
  static _FetchSpec _FS1 = { 0, 1, 0 };
#line 52 "exp.ec"
  _sqobind[0].sqldata = ihb5;
#line 52 "exp.ec"
  if (!_SQ2) _SQ2 = _iqlocate_cursor(_Cn2, 0, 1, 0);
#line 52 "exp.ec"
  _iqcftch(_SQ2, (struct sqlda *)0, &_SD0, (char *)0, &_FS1);
#line 52 "exp.ec"
  }
 
    if(sqlca.sqlcode < 0)
      return(sqlca.sqlcode);
 
    if(sqlca.sqlcode !=0)
      break;
 
printf("\nihb5 is %s\n", ihb5);
 
rate_table = getrc(ihb5,19020126, &warning);
 
printf("HI2\n");
 
fprintf(fp,"\n%s REPLHQ\n %d ENGL        %5.2lf",
              ihb5, rate_table.AryMax, rate_table.HMin);
 
for ( j = 0; j < rate_table.AryMax; j++)
  {
    if(rate_table.RatStg[j] != 0)
      {
    if(j%3 == 0)
      fprintf(fp,"\n");
    fprintf(fp,"  %5.2lf   %5d",
        rate_table.RatStg[j], rate_table.RatQ[j]);
      }
  }
}
 
fprintf(fp, "\nEND\n");
 
/*
 * EXEC SQL close sensorcursor;
 */
#line 83 "exp.ec"
  {
#line 83 "exp.ec"
#line 83 "exp.ec"
  if (!_SQ2) _SQ2 = _iqlocate_cursor(_Cn2, 0, 1, 0);
#line 83 "exp.ec"
  _iqclose(_SQ2);
#line 83 "exp.ec"
  }
 
exit(1);
}