isQualBetter.c

Go to the documentation of this file.

#include <sqlhdr.h>
#include <sqliapi.h>
#line 1 "isQualBetter.ec"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
/* 
 * exec sql include sqlca;
 */
#line 4 "isQualBetter.ec"
 
#line 4 "isQualBetter.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 5 "isQualBetter.ec"
 
int isQualBetter(char ch1, char ch2)
{
 
/*
 * $char a1, a2;
 */
#line 9 "isQualBetter.ec"
#line 9 "isQualBetter.ec"
  char a1, a2;
/*
 * $int power1, power2, i;
 */
#line 10 "isQualBetter.ec"
#line 10 "isQualBetter.ec"
int power1, power2, i;
 
 
 
 
 
/* $database fastetc; */
 
power1 = -1; power2 = -2;
a1 = ch1; a2 = ch2;
 
/*
 * $select power into :power1 from qual_code
 *  where q=:a1;
 */
#line 21 "isQualBetter.ec"
  {
#line 22 "isQualBetter.ec"
  static const char *sqlcmdtxt[] =
#line 22 "isQualBetter.ec"
    {
#line 22 "isQualBetter.ec"
    " select power from qual_code where q = ?",
    0
    };
#line 22 "isQualBetter.ec"
static ifx_cursor_t _SQ0 = {0};
  static ifx_sqlvar_t _sqibind[] = 
    {
      { 108, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
#line 22 "isQualBetter.ec"
    };
  static ifx_sqlvar_t _sqobind[] = 
    {
      { 102, sizeof(power1), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
#line 22 "isQualBetter.ec"
    };
#line 22 "isQualBetter.ec"
  _sqibind[0].sqldata = &a1;
#line 22 "isQualBetter.ec"
  _sqobind[0].sqldata = (char *) &power1;
#line 22 "isQualBetter.ec"
  sqli_slct(ESQLINTVERSION, &_SQ0,(char **) sqlcmdtxt,1,_sqibind,1,_sqobind,0,(ifx_literal_t *) 0,(ifx_namelist_t *) 0,0);
#line 22 "isQualBetter.ec"
  }
if(SQLCODE != 0) return -4;
if(power1 < 0) return power1;
 
/*
 * $select power into :power2 from qual_code
 *  where q=:a2;
 */
#line 26 "isQualBetter.ec"
  {
#line 27 "isQualBetter.ec"
  static const char *sqlcmdtxt[] =
#line 27 "isQualBetter.ec"
    {
#line 27 "isQualBetter.ec"
    " select power from qual_code where q = ?",
    0
    };
#line 27 "isQualBetter.ec"
static ifx_cursor_t _SQ0 = {0};
  static ifx_sqlvar_t _sqibind[] = 
    {
      { 108, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
#line 27 "isQualBetter.ec"
    };
  static ifx_sqlvar_t _sqobind[] = 
    {
      { 102, sizeof(power2), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
#line 27 "isQualBetter.ec"
    };
#line 27 "isQualBetter.ec"
  _sqibind[0].sqldata = &a2;
#line 27 "isQualBetter.ec"
  _sqobind[0].sqldata = (char *) &power2;
#line 27 "isQualBetter.ec"
  sqli_slct(ESQLINTVERSION, &_SQ0,(char **) sqlcmdtxt,1,_sqibind,1,_sqobind,0,(ifx_literal_t *) 0,(ifx_namelist_t *) 0,0);
#line 27 "isQualBetter.ec"
  }
if(SQLCODE != 0) return -5;
if(power2 < 0) return power2;
 
 
if(power1 > power2)
  return 1;
else
  return -3;
}
 
 
 
 
 
 
 
 
#line 43 "isQualBetter.ec"