get_pos.c

Go to the documentation of this file.

#include "prototypes_new.h"
 
char *get_pos(char *hb5)
 
{
 
EXEC SQL BEGIN DECLARE SECTION;
char hb5i[10];
char basin[10];
EXEC SQL END DECLARE SECTION;
 
int j;
 
sprintf(hb5i,"%s*",hb5);
 
EXEC SQL prepare selectseg from
            "select segid
            from fgroup_seg
        where fgroupid matches '*_F' and
            segid matches ?";
                
if(sqlca.sqlcode < 0) {
 
            printf("informix1 error %d\n",sqlca.sqlcode);
                    exit(1);
                       
            }
            
EXEC SQL declare segcursor cursor for selectseg;
 
if(sqlca.sqlcode < 0) {
            printf("informix2 error %d\n",sqlca.sqlcode);
                    exit(1);    
           
            }             
          
EXEC SQL open segcursor using :hb5i;
 
if(sqlca.sqlcode < 0) {
            printf("informix3 error %d\n",sqlca.sqlcode);
                    exit(1);
                       
            }   
 
 
j=0;
for(;;) {
 
   EXEC SQL fetch segcursor into :basin;
 
   if(sqlca.sqlcode < 0) {
            printf("informix4 error %d\n",sqlca.sqlcode);
                    exit(1);
               
            }   
            
   if(sqlca.sqlcode == 100) 
                         break;
                    
   j++;
   
   c[j]=basin[5];
   
      
}
 
if(j==2) {
 
         if(c[0]=='L' && c[1]=='H')
                      basin[5]='L';
              
     else if(c[0]=='O' && c[1]=='H')
                      basin[5]='H';
              
         else if(c[0]=='H' && c[1]=='R')
                      basin[5]='R';
              
         else if(c[0]=='L' && c[1]=='O')
                      basin[5]='L';
              
         else
        printf("could not resolve\n");        
 
         }
 
EXEC SQL close segcursor;
 
return(&basin[5]);
 
}