get_nam2.c

Go to the documentation of this file.

#include <sqlhdr.h>
#include <sqliapi.h>
#line 1 "get_nam2.ec"
/*Translated by FOR_C, v3.4.5 (H), on 07/24/95 at 11:53:10 */
/*FOR_C Options SET: do=r ftn=nk op=iv s=vzn str=l */
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <fcrt.h>
/* 
 * exec sql include sqlca;
 */
#line 7 "get_nam2.ec"
 
#line 7 "get_nam2.ec"
#line 1 "/opt/informix/incl/esql/sqlca.h"
/***************************************************************************
 *
 *             INFORMIX SOFTWARE, INC.
 *
 *                PROPRIETARY DATA
 *
 *  THIS DOCUMENT CONTAINS TRADE SECRET DATA WHICH IS THE PROPERTY OF
 *  INFORMIX SOFTWARE, INC.  THIS DOCUMENT IS SUBMITTED TO RECIPIENT IN
 *  CONFIDENCE.  INFORMATION CONTAINED HEREIN MAY NOT BE USED, COPIED OR
 *  DISCLOSED IN WHOLE OR IN PART EXCEPT AS PERMITTED BY WRITTEN AGREEMENT
 *  SIGNED BY AN OFFICER OF INFORMIX SOFTWARE, INC.
 *
 *  THIS MATERIAL IS ALSO COPYRIGHTED AS AN UNPUBLISHED WORK UNDER
 *  SECTIONS 104 AND 408 OF TITLE 17 OF THE UNITED STATES CODE.
 *  UNAUTHORIZED USE, COPYING OR OTHER REPRODUCTION IS PROHIBITED BY LAW.
 *
 *
 *  Title:  sqlca.h
 *  Sccsid: @(#)sqlca.h 9.4 1/18/93  11:09:48
 *  Description:
 *      SQL Control Area
 *
 ***************************************************************************
 */
 
#ifndef SQLCA_INCL
#define SQLCA_INCL
 
#include "ifxtypes.h"
 
#ifdef __cplusplus
extern "C" {
#endif
 
typedef struct sqlca_s
    {
    int4 sqlcode;
    char sqlerrm[72]; /* error message parameters */
    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
            */
    } 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
 */
 
#ifdef VMS
noshare
#endif /* VMS */
 
#define SQLNOTFOUND 100
 
#ifndef IFX_THREAD
extern struct sqlca_s sqlca;
 
extern int4 SQLCODE;
 
extern char SQLSTATE[];
#else /* IFX_THREAD */
extern int4 * ifx_sqlcode();
extern struct sqlca_s * ifx_sqlca();
#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 8 "get_nam2.ec"
 
/*     get_nam2.rcp
 *
 *     this subroutine returns the watershed name, river name, and
 *     location when passed the comms5 id.
 *
 *                 sid   -  comms 5 id (passed)
 *                 wshed -  water shed name (first 4 of huc)
 *                 river -  river name
 *                 loc   -  gauge location
 *                 err   -  error return
 *                          1 - okay
 *                          2 - primekey not found
 *                          3 - climatdb error
 *
 *     version 1.0       aug 1991 / dgs
 *
 *cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 * */
void /*FUNCTION*/ get_nam2(sid, sid_s, wshed, wshed_s, river, river_s,
     loc, loc_s, err)
/*
 * exec sql begin declare section;
 */
#line 29 "get_nam2.ec"
#line 30 "get_nam2.ec"
#line 30 "get_nam2.ec"
#line 30 "get_nam2.ec"
  char *sid;
int sid_s;
#line 31 "get_nam2.ec"
#line 31 "get_nam2.ec"
  char *wshed;
int wshed_s;
#line 32 "get_nam2.ec"
#line 32 "get_nam2.ec"
  char *river;
int river_s;
#line 33 "get_nam2.ec"
#line 33 "get_nam2.ec"
  char *loc;
int loc_s;
#line 34 "get_nam2.ec"
long int *err;
/*
 * exec sql end declare section;
 */
#line 35 "get_nam2.ec"
 
{
/*
 *      exec sql begin declare section;
 */
#line 37 "get_nam2.ec"
#line 38 "get_nam2.ec"
#line 38 "get_nam2.ec"
static   char dbname[200];
#line 39 "get_nam2.ec"
static   char thuc1[9], twshed[31], nam[51];
#line 40 "get_nam2.ec"
static long int task, error, n, i, i_;
#line 41 "get_nam2.ec"
static float sqlcod;
/*
 *      exec sql end declare section;
 */
#line 42 "get_nam2.ec"
 
 
    f_strncpy( wshed, "                    ", wshed_s - 1 );
    f_strncpy( river, "                              ", river_s -
     1 );
    f_strncpy( loc, "                              ", loc_s - 1 );
 
    /* ***** find huc *****
     * */
    *err = 1;
    n = 0;
    error = ReadConfig(dbname, "DBNAME");
    if(error != 0) {
      fprintf(stderr,"cannot get DBNAME var from sws.config\nassuming fastetc\n");
      strcpy(dbname, "fastetc");
    }
/*
 *  exec sql database $dbname;
 */
#line 58 "get_nam2.ec"
  {
#line 58 "get_nam2.ec"
  sqli_db_open(dbname, 0);
#line 58 "get_nam2.ec"
  }
 
    if( SQLCODE != 0 )
        {
        *err = 3;
        goto L_500;
        }
 
/*
 *           exec sql select huc,des
 *            into :thuc1, :nam
 *            from stn
 *            where id= :sid;
 */
#line 66 "get_nam2.ec"
  {
#line 69 "get_nam2.ec"
  static const char *sqlcmdtxt[] =
#line 69 "get_nam2.ec"
    {
#line 69 "get_nam2.ec"
    " select huc , des from stn where id = ?",
    0
    };
#line 69 "get_nam2.ec"
static ifx_cursor_t _SQ0 = {0};
  static ifx_sqlvar_t _sqibind[] = 
    {
      { 100, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
#line 69 "get_nam2.ec"
    };
  static ifx_sqlvar_t _sqobind[] = 
    {
      { 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 },
#line 69 "get_nam2.ec"
    };
#line 69 "get_nam2.ec"
  _sqibind[0].sqldata = sid;
#line 69 "get_nam2.ec"
  _sqobind[0].sqldata = thuc1;
#line 69 "get_nam2.ec"
  _sqobind[1].sqldata = nam;
#line 69 "get_nam2.ec"
  sqli_slct(ESQLINTVERSION, &_SQ0,(char **) sqlcmdtxt,1,_sqibind,2,_sqobind,0,(ifx_literal_t *) 0,(ifx_namelist_t *) 0,0);
#line 69 "get_nam2.ec"
  }
 
    if( SQLCODE != 0 )
        {
 
        *err = 2;
        goto L_500;
        }
 
    /* ***** get wshed *****
     * */
/*
 *           exec sql select des4
 *            into :twshed
 *            from huc
 *            where code= :thuc1;
 */
#line 80 "get_nam2.ec"
  {
#line 83 "get_nam2.ec"
  static const char *sqlcmdtxt[] =
#line 83 "get_nam2.ec"
    {
#line 83 "get_nam2.ec"
    " select des4 from huc where code = ?",
    0
    };
#line 83 "get_nam2.ec"
static ifx_cursor_t _SQ0 = {0};
  static ifx_sqlvar_t _sqibind[] = 
    {
      { 100, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
#line 83 "get_nam2.ec"
    };
  static ifx_sqlvar_t _sqobind[] = 
    {
      { 100, 31, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
#line 83 "get_nam2.ec"
    };
#line 83 "get_nam2.ec"
  _sqibind[0].sqldata = thuc1;
#line 83 "get_nam2.ec"
  _sqobind[0].sqldata = twshed;
#line 83 "get_nam2.ec"
  sqli_slct(ESQLINTVERSION, &_SQ0,(char **) sqlcmdtxt,1,_sqibind,1,_sqobind,0,(ifx_literal_t *) 0,(ifx_namelist_t *) 0,0);
#line 83 "get_nam2.ec"
  }
    if( SQLCODE != 0 )
        {
 
        f_strncpy( wshed, "                    ", wshed_s - 1 );
        }
    else
        {
        f_strncpy( wshed, ntstr(twshed+0,20), wshed_s - 1 );
        }
 
    /* ***** split name up here *****
     *
     *        ** look for ' - ' within the station name */
    for( i = 2; i <= 49; i++ )
        {
        i_ = i - 1;
        if( f_strcmp(ntstr(nam+i - 2,min(i + 1,50) - (i - 1) + 1),
         " - ") == 0 )
            goto L_200;
        }
    /*        ** not there, break on 1st 25 and 2nd 25 */
    f_subscpy( river, 0, 24, river_s - 1, ntstr(nam+0,25) );
    f_subscpy( loc, 0, 24, loc_s - 1, ntstr(nam+25,25) );
    return;
 
L_200:
    f_strncpy( river, "                              ", river_s -
     1 );
    if( i <= 32 )
        {
        if( i > 2 )
            f_subscpy( river, 0, i - 3, river_s - 1, ntstr(nam+0,min(i -
             2,50)) );
        }
    else
        {
        f_subscpy( river, 0, 29, river_s - 1, ntstr(nam+0,30) );
        }
    f_strncpy( loc, "                              ", loc_s - 1 );
    if( i >= 19 )
        {
        if( i <= 48 )
            f_subscpy( loc, 0, -i + 48, loc_s - 1, ntstr(nam+i + 1,-(i +
             2) + 51) );
        }
    else
        {
        f_subscpy( loc, 0, 29, loc_s - 1, ntstr(nam+i + 1,min(i +
         31,50) - (i + 2) + 1) );
        }
 
 
L_500:
    ;
 
    return;
} /* end of function */
 
 
 
 
 
 
 
#line 146 "get_nam2.ec"