get_pos.c

Go to the documentation of this file.

#include <sqlhdr.h>
#include <sqliapi.h>
static const char _Cn2[] = "segcursor";
static const char _Cn1[] = "selectseg";
#line 1 "get_pos.ec"
#include "prototypes_new.h"
/* 
 * EXEC SQL include sqlca.h;
 */
#line 2 "get_pos.ec"
 
#line 2 "get_pos.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 "get_pos.ec"
 
void get_pos(char *hb5, char *drn)
 
{
 
/*
 * EXEC SQL BEGIN DECLARE SECTION;
 */
#line 8 "get_pos.ec"
#line 9 "get_pos.ec"
  char hb5i[10];
  char basin[10];
/*
 * EXEC SQL END DECLARE SECTION;
 */
#line 11 "get_pos.ec"
 
 
int j;
char c[5];
 
sprintf(hb5i,"%s*",hb5);
 
/*
 * EXEC SQL prepare selectseg from
 *             "select segid
 *             from fgroup_seg
 *      where fgroupid matches '*_F' and
 *             segid matches ?";
 */
#line 18 "get_pos.ec"
  {
#line 22 "get_pos.ec"
  sqli_prep(ESQLINTVERSION, _Cn1, "select segid            from fgroup_seg      where fgroupid matches '*_F' and            segid matches ?",(ifx_literal_t *)0, (ifx_namelist_t *)0, 2, 0, 0 ); 
#line 22 "get_pos.ec"
  }
            
if(sqlca.sqlcode < 0) {
 
            printf("informix1 error %d\n",sqlca.sqlcode);
                    exit(1);
                    
            }
        
/*
 * EXEC SQL declare segcursor cursor for selectseg;
 */
#line 31 "get_pos.ec"
  {
#line 31 "get_pos.ec"
  sqli_curs_decl_dynm(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn2, 512), _Cn2, sqli_curs_locate(ESQLINTVERSION, _Cn1, 513), 0, 0);
#line 31 "get_pos.ec"
  }
 
if(sqlca.sqlcode < 0) {
            printf("informix2 error %d\n",sqlca.sqlcode);
                    exit(1);
        
            }   
    
/*
 * EXEC SQL open segcursor using :hb5i;
 */
#line 39 "get_pos.ec"
  {
#line 39 "get_pos.ec"
  static ifx_sqlvar_t _sqibind[] = 
    {
      { 100, 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
#line 39 "get_pos.ec"
    };
  static ifx_sqlda_t _SD0 = { 1, _sqibind, {0}, 1, 0 };
#line 39 "get_pos.ec"
  _sqibind[0].sqldata = hb5i;
  sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn2, 768), &_SD0, (char *)0, (struct value *)0, 1, 0);
#line 39 "get_pos.ec"
  }
 
if(sqlca.sqlcode < 0) {
            printf("informix3 error %d\n",sqlca.sqlcode);
                    exit(1);
                    
            }   
 
 
j=0;
for(;;) {
 
/*
 *    EXEC SQL fetch segcursor into :basin;
 */
#line 51 "get_pos.ec"
  {
#line 51 "get_pos.ec"
  static ifx_sqlvar_t _sqobind[] = 
    {
      { 100, 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
#line 51 "get_pos.ec"
    };
  static ifx_sqlda_t _SD0 = { 1, _sqobind, {0}, 1, 0 };
  static _FetchSpec _FS1 = { 0, 1, 0 };
#line 51 "get_pos.ec"
  _sqobind[0].sqldata = basin;
  sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn2, 768), (ifx_sqlda_t *)0, &_SD0, (char *)0, &_FS1);
#line 51 "get_pos.ec"
  }
 
   if(sqlca.sqlcode < 0) {
            printf("informix4 error %d\n",sqlca.sqlcode);
                    exit(1);
            
            }   
        
   if(sqlca.sqlcode == 100)
                         break;
    
 
                        
   c[j]=basin[5];
 
 
 
   j++;
 
 
}
 
if(j==2) {
 
         if((c[0]=='L' && c[1]=='H') ||
        (c[1]=='L' && c[0]=='H'))
                      basin[5]='L';
            
     else if((c[0]=='O' && c[1]=='H') ||
             (c[1]=='O' && c[0]=='H'))
                      basin[5]='H';
            
         else if((c[0]=='H' && c[1]=='R') ||
             (c[1]=='H' && c[0]=='R'))
                      basin[5]='R';
            
         else if((c[0]=='H' && c[1]=='R') ||
             (c[1]=='H' && c[0]=='R'))
                      basin[5]='R';
            
         else if((c[0]=='O' && c[1]=='L') ||
             (c[1]=='O' && c[0]=='L'))
                      basin[5]='L';
            
         else
        printf("could not resolve %c %c\n",c[0],c[1]);      
 
         }
 
/*
 * EXEC SQL close segcursor;
 */
#line 100 "get_pos.ec"
  {
#line 100 "get_pos.ec"
  sqli_curs_close(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, _Cn2, 768));
#line 100 "get_pos.ec"
  }
 
basin[8]=0;
 
strcpy(drn,&basin[5]);
 
}
 
#line 106 "get_pos.ec"