get_espts_dir.c

Go to the documentation of this file.

#include <sqlhdr.h>
#include <sqliapi.h>
#line 1 "get_espts_dir.ec"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <ctype.h>
#include <sys/time.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>
 
get_espts_dir(char *source, char *espts_dir)
{
/* general defintions */
int i;
int len1,len2;
 
/*
 * exec sql begin declare section;
 */
#line 17 "get_espts_dir.ec"
#line 18 "get_espts_dir.ec"
  char src[2];
  char sub_dir[21];
/*
 * exec sql end declare section;
 */
#line 20 "get_espts_dir.ec"
 
 
  /* open up the database */
/*
 *   $database "fastetc";
 */
#line 23 "get_espts_dir.ec"
  {
#line 23 "get_espts_dir.ec"
  sqli_db_open("fastetc", 0);
#line 23 "get_espts_dir.ec"
  }
  if(sqlca.sqlcode)
  {
    printf("database did not open (%d)\n",sqlca.sqlcode);
    exit(0);
  }
 
  strcpy(src,source);
  len1=strlen("espts_dir");
  get_apps_defaults("espts_dir",&len1,espts_dir,&len2);
 
/*
 *   $select espts_dir into $sub_dir from espts_dir where src=$src;
 */
#line 34 "get_espts_dir.ec"
  {
#line 34 "get_espts_dir.ec"
  static const char *sqlcmdtxt[] =
#line 34 "get_espts_dir.ec"
    {
#line 34 "get_espts_dir.ec"
    "select espts_dir from espts_dir where src = ?",
    0
    };
#line 34 "get_espts_dir.ec"
static ifx_cursor_t _SQ0 = {0};
  static ifx_sqlvar_t _sqibind[] = 
    {
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
#line 34 "get_espts_dir.ec"
    };
  static ifx_sqlvar_t _sqobind[] = 
    {
      { 100, 21, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
#line 34 "get_espts_dir.ec"
    };
#line 34 "get_espts_dir.ec"
  _sqibind[0].sqldata = src;
#line 34 "get_espts_dir.ec"
  _sqobind[0].sqldata = sub_dir;
#line 34 "get_espts_dir.ec"
  sqli_slct(ESQLINTVERSION, &_SQ0,sqlcmdtxt,1,_sqibind,1,_sqobind,0,(ifx_literal_t *)0,(ifx_namelist_t *)0,0);
#line 34 "get_espts_dir.ec"
  }
  if(!sqlca.sqlcode)
    strcat(espts_dir,sub_dir);
  else
    *(espts_dir)='\0';
 
  return(0);
}
 
#line 41 "get_espts_dir.ec"