PeQuery.cpp

Go to the documentation of this file.

#line 1 "PeQuery.pgc"
#include <dcl/Config.h>
 
/* Processed by ecpg (17.7) */
/* These include files are added by the preprocessor */
#include <ecpglib.h>
#include <ecpgerrno.h>
#include <sqlca.h>
/* End of automatic include section */
 
#include <stdlib.h>     // malloc, free
 
#include <ecpgtype.h>
#include <sqlda.h>
#include <pgtypes_numeric.h>
#include <pgtypes_date.h>
#include <pgtypes_interval.h>
#include <pgtypes_timestamp.h>
 
#include <dcl/Object.h>
#if __DCL_HAVE_ALLOC_DEBUG
#undef __DCL_ALLOC_LEVEL
#define __DCL_ALLOC_LEVEL   __DCL_ALLOC_INTERNAL
#endif
 
#include <dcl/Numeric.h>
#include <dcl/SQLCore.h>
 
#include "PeConnection.h"
#include "PeQuery.h"
#include "PeField.h"
#include "PeParam.h"
 
#undef __THIS_FILE__
static const char_t __THIS_FILE__[] = __T("dcl/sql/PeQuery.pgc");
 
__DCL_BEGIN_NAMESPACE
 
#define __SET_ERROR(_error) \
    conn()->setErrorHandle(_error, 0L, __THIS_FILE__, __LINE__)
#define __SET_ERROR_HANDLE(_SQLCODE) \
    conn()->setErrorHandle(SQL::eServerError, _SQLCODE, __THIS_FILE__, __LINE__)
#define __SET_ERROR_MSG(_message) \
    conn()->setErrorMessage(_message, __THIS_FILE__, __LINE__)
 
IMPLEMENT_CLASSINFO(PeQuery, SQL::Query)
 
PeQuery::PeQuery(PeConnection* pConnection)
    : Query(pConnection)
{
    ByteString strID;
    strID = ByteString::format("%zx", (size_t)this);
    __statementID = "stmt_" + strID;
    __cursorID = "curs_" + strID;
 
    __inSQLDA = NULL;
    __outSQLDA = NULL;
 
    __cursorOpened = false;
    __cursorDeclared = false;
 
    __fields = NULL;
    __params = NULL;
}
 
PeQuery::~PeQuery()
{
#ifdef __DCL_DEBUG
    if (!reset()) {
        char buf[256];
        size_t buflen = sizeof(buf) - 1;
        bool b = conn()->__getErrorMessage(buf, &buflen);
        buf[b ? buflen : 0] = '\0';
        __DCL_TRACE1(L"Warning! Query reset error! %hs\n", buf);
    }
#else
    (void)reset();
#endif
}
 
void PeQuery::__destroy()
{
//  cerr << "PeQuery::destory\n";
    delete this;
}
 
bool PeQuery::reset()
{
    bool r = true;
 
    /* exec sql begin declare section */
       
        
        
    
#line 84 "PeQuery.pgc"
 char * connID = conn () -> connectionID () ;
 
#line 85 "PeQuery.pgc"
 char * stmtID = ( _CONST char * ) __statementID . data () ;
 
#line 86 "PeQuery.pgc"
 char * cursorID = ( _CONST char * ) __cursorID . data () ;
/* exec sql end declare section */
#line 87 "PeQuery.pgc"
 
 
    { ECPGsetconn(__LINE__, connID);}
#line 89 "PeQuery.pgc"
 
    if (r && SQLCODE < 0) {
        __SET_ERROR_HANDLE(SQLCODE);
        return false;
    }
    __DCL_ASSERT(SQLCODE == 0);
 
    if (__cursorOpened) {
        __cursorOpened = false;
        { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "close $0", 
    ECPGt_char,&(cursorID),(long)0,(long)1,(1)*sizeof(char), 
    ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);}
#line 98 "PeQuery.pgc"
 
        if (r && SQLCODE < 0) {
            __SET_ERROR_HANDLE(SQLCODE);
            r = false;
        }
    }
 
    if (__cursorDeclared) {
        __cursorDeclared = false;
#if 0
        { ECPGdeallocate(__LINE__, 0, NULL, cursorID);}
#line 108 "PeQuery.pgc"
 
        if (r && SQLCODE < 0) {
            __SET_ERROR_HANDLE(SQLCODE);
            r = false;
        }
#endif
    }
 
    if (__outSQLDA) {
        { ECPGdeallocate(__LINE__, 0, NULL, stmtID);}
#line 117 "PeQuery.pgc"
 
        if (r && SQLCODE < 0) {
            __SET_ERROR_HANDLE(SQLCODE);
            r = false;
        }
    }
 
    Query::__eof = true;
    Query::__affectedRows = -1;
 
    // clear fields
    if (__fields) {
        __DCL_ASSERT(Query::__fieldCount > 0);
        delete[] __fields;
        __fields = NULL;
        Query::__fieldCount = 0;
    }
 
    // clear binds
    if (__params) {
        __DCL_ASSERT(Query::__paramCount > 0);
        delete[] __params;
        __params = NULL;
        Query::__paramCount = 0;
    }
 
    if (__outSQLDA) {
        // __outSQLDA는 Informix API에서 할당됨.
        __outSQLDA = NULL;
    }
 
    if (__inSQLDA) {
        free(__inSQLDA);
        __inSQLDA = NULL;
    }
 
    return r;
}
 
bool PeQuery::initFields()
{
    __DCL_ASSERT(
        (__fields == NULL) 
        && (Query::__fieldCount == 0)
        && (__outSQLDA != NULL)
        && (__outSQLDA->sqld > 0)
    );
 
    Query::__fieldCount = __outSQLDA->sqld;
    __fields = new PeField[Query::__fieldCount];
    if (__fields == NULL) {
        __SET_ERROR(SQL::eOutOfMemory);
        return false;
    }
 
    sqlvar_t* sqlvar = __outSQLDA->sqlvar;
    for(size_t i = 0; i < Query::__fieldCount; i++, sqlvar++) {
        if (!__fields[i].init(this, sqlvar))
            return false;
    }       
 
    return true;
}
 
bool PeQuery::initParams(size_t _paramCount)
{
    __DCL_ASSERT((__params == NULL)
        && (Query::__paramCount == 0)
        && (__outSQLDA != NULL)
    );
 
    size_t nAllocSize = sizeof(sqlda_t)
        + (sizeof(sqlvar_t) * _paramCount);
    __inSQLDA = (sqlda_t*)malloc(nAllocSize);
    if (__inSQLDA == NULL) {
        __SET_ERROR(SQL::eOutOfMemory);
        return false;
    }
    memset(__inSQLDA, 0, nAllocSize);
    __inSQLDA->sqln = (short)_paramCount;
 
    Query::__paramCount = _paramCount;
    __params = new PeParam[Query::__paramCount];
    if (__params == NULL) {
        __SET_ERROR(SQL::eOutOfMemory);
        return false;
    }
 
    sqlvar_t* sqlvar = __inSQLDA->sqlvar;
    for(size_t i = 0; i < Query::__paramCount; i++, sqlvar++) {
        if (!__params[i].init(this, sqlvar))
            return false;
    }
 
    return true;
}
 
const wchar_t* __dataTypeName(const sqlvar_t* _sqlvar);
 
bool PeQuery::__prepare(const char* _sql, size_t _sqllen,
        size_t _paramCount)
{
    if(!reset())
        return false;
 
    /* exec sql begin declare section */
       
        
        
    
#line 223 "PeQuery.pgc"
 char * connID = conn () -> connectionID () ;
 
#line 224 "PeQuery.pgc"
 char * stmtID = ( _CONST char * ) __statementID . data () ;
 
#line 225 "PeQuery.pgc"
 char * sql = ( _CONST char * ) _sql ;
/* exec sql end declare section */
#line 226 "PeQuery.pgc"
 
 
    { ECPGsetconn(__LINE__, connID);}
#line 228 "PeQuery.pgc"
 
    if (SQLCODE < 0) {
        __SET_ERROR_HANDLE(SQLCODE);
        return false;
    }
    __DCL_ASSERT(SQLCODE == 0);
 
    { ECPGprepare(__LINE__, NULL, 0, stmtID, sql);}
#line 235 "PeQuery.pgc"
 
 
    if (SQLCODE < 0) {
        __SET_ERROR_HANDLE(SQLCODE);
        return false;
    }
 
    { ECPGdescribe(__LINE__, 0, 0, NULL, stmtID,
    ECPGt_sqlda, &__outSQLDA, 0L, 0L, 0L, 
    ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);}
#line 242 "PeQuery.pgc"
 
 
    if (SQLCODE < 0) {
        __SET_ERROR_HANDLE(SQLCODE);
        return false;
    }
 
    if (__outSQLDA)   {
#if 0
        __DCL_TRACE1(L"[%p]\n", __outSQLDA);
        __DCL_TRACE4(L"[%hs] [%ld] sqln[%d] sqld[%d]\n",
            __outSQLDA->sqldaid, __outSQLDA->sqldabc,
            __outSQLDA->sqln, __outSQLDA->sqld
        );
        for (int i = 0; i < __outSQLDA->sqld; i++) {
            sqlvar_t* p = &(__outSQLDA->sqlvar[i]);
            __DCL_TRACE4(L"[%19ls] [%hd] [%p] [%p]\n",
                __dataTypeName(p), p->sqllen, p->sqldata, p->sqlind
            );
        }
#endif
        if (__outSQLDA->sqld > 0) {
            if (!initFields())
                return false;
        }
    }
 
    if (_paramCount > 0) {
        if (!initParams(_paramCount))
            return false;
    }
 
    return true;
}
 
bool PeQuery::__execute()
{
#ifdef __DCL_DEBUG
    for (size_t i = 0; i < Query::__paramCount; i++) {
        __params[i].onBeforeExecute();
    }
#endif
 
    /* exec sql begin declare section */
       
        
        
    
#line 286 "PeQuery.pgc"
 char * connID = conn () -> connectionID () ;
 
#line 287 "PeQuery.pgc"
 char * stmtID = ( _CONST char * ) __statementID . data () ;
 
#line 288 "PeQuery.pgc"
 char * cursorID = ( _CONST char * ) __cursorID . data () ;
/* exec sql end declare section */
#line 289 "PeQuery.pgc"
 
 
    { ECPGsetconn(__LINE__, connID);}
#line 291 "PeQuery.pgc"
 
    if (SQLCODE < 0) {
        __SET_ERROR_HANDLE(SQLCODE);
        return false;
    }
    __DCL_ASSERT(SQLCODE == 0);
 
    if (__outSQLDA && __outSQLDA->sqld > 0) {
        if (!__cursorDeclared) {
            ECPGset_var( 0, &( cursorID ), __LINE__);\
 /* declare $0 cursor for $1 */
#line 300 "PeQuery.pgc"
 
#line 300 "PeQuery.pgc"
 
            if (SQLCODE < 0) {
                __SET_ERROR_HANDLE(SQLCODE);
                return false;
            }
            __cursorDeclared = true;
        }
 
        if (__inSQLDA)
            { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare $0 cursor for $1", 
    ECPGt_char,&(cursorID),(long)0,(long)1,(1)*sizeof(char), 
    ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
    ECPGt_char_variable,(ECPGprepared_statement(NULL, stmtID, __LINE__)),(long)1,(long)1,(1)*sizeof(char), 
    ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
    ECPGt_sqlda, &__inSQLDA, 0L, 0L, 0L, 
    ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);}
#line 309 "PeQuery.pgc"
 
        else
            { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare $0 cursor for $1", 
    ECPGt_char,&(cursorID),(long)0,(long)1,(1)*sizeof(char), 
    ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
    ECPGt_char_variable,(ECPGprepared_statement(NULL, stmtID, __LINE__)),(long)1,(long)1,(1)*sizeof(char), 
    ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);}
#line 311 "PeQuery.pgc"
 
 
        if (SQLCODE < 0) {
            __SET_ERROR_HANDLE(SQLCODE);
            return false;
        }
 
        __cursorOpened = true;
        __eof = false;
    }
    else {
#if 0
        // 2025.05.06 __outSQLDA 조건은 CURSOR로 처리 하므로
        // 다음 EXEC SQL EXECUTE는 의미가 없다.
        if (__outSQLDA && __inSQLDA)
            { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_execute, stmtID, 
    ECPGt_sqlda, &__inSQLDA, 0L, 0L, 0L, 
    ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, 
    ECPGt_sqlda, &__outSQLDA, 0L, 0L, 0L, 
    ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);}
#line 327 "PeQuery.pgc"
 
        else if (__outSQLDA)
            { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_execute, stmtID, ECPGt_EOIT, 
    ECPGt_sqlda, &__outSQLDA, 0L, 0L, 0L, 
    ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);}
#line 329 "PeQuery.pgc"
 
        else
#endif
        if (__inSQLDA)
            { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_execute, stmtID, 
    ECPGt_sqlda, &__inSQLDA, 0L, 0L, 0L, 
    ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);}
#line 333 "PeQuery.pgc"
 
        else
            { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_execute, stmtID, ECPGt_EOIT, ECPGt_EORT);}
#line 335 "PeQuery.pgc"
 
 
        if (SQLCODE < 0) {
            __SET_ERROR_HANDLE(SQLCODE);
            Query::__affectedRows = -1;
            return false;
        }
 
        // INSERT, UPDATE, DELETE
        Query::__affectedRows = sqlca.sqlerrd[2];
    }
 
    for(size_t i = 0; i < Query::__paramCount; i++) {
        if (!(__params[i].onAfterExecute()))
            return false;
    }
 
    return true;
}
 
bool PeQuery::__fetch()
{
    // SELECT, CALL
    __DCL_ASSERT(!eof());
    __DCL_ASSERT(__outSQLDA && __outSQLDA->sqld > 0);
 
    /* exec sql begin declare section */
       
        
    
#line 362 "PeQuery.pgc"
 char * connID = conn () -> connectionID () ;
 
#line 363 "PeQuery.pgc"
 char * cursorID = ( _CONST char * ) __cursorID . data () ;
/* exec sql end declare section */
#line 364 "PeQuery.pgc"
 
 
    { ECPGsetconn(__LINE__, connID);}
#line 366 "PeQuery.pgc"
 
    if (SQLCODE < 0) {
        __SET_ERROR_HANDLE(SQLCODE);
        return false;
    }
    __DCL_ASSERT(SQLCODE == 0);
 
    { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "fetch $0", 
    ECPGt_char,&(cursorID),(long)0,(long)1,(1)*sizeof(char), 
    ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, 
    ECPGt_sqlda, &__outSQLDA, 0L, 0L, 0L, 
    ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);}
#line 373 "PeQuery.pgc"
 
 
    if (SQLCODE == ECPG_NO_ERROR) {
#if 0
        __DCL_TRACE1(L"[%p]\n", __outSQLDA);
        __DCL_TRACE4(L"[%hs] [%ld] sqln[%d] sqld[%d]\n",
            __outSQLDA->sqldaid, __outSQLDA->sqldabc,
            __outSQLDA->sqln, __outSQLDA->sqld
        );
        for (int i = 0; i < __outSQLDA->sqld; i++) {
            sqlvar_t* p = &(__outSQLDA->sqlvar[i]);
            __DCL_TRACE4(L"[%19ls] [%hd] [%p] [%p]\n",
                __dataTypeName(p), p->sqllen, p->sqldata, p->sqlind
            );
        }
#endif
        sqlvar_t* sqlvar = __outSQLDA->sqlvar;
        for (size_t i = 0; i < Query::__fieldCount; i++) {
            if (!__fields[i].onAfterFetch(sqlvar++))
                return false;
        }
        return true;
    }
    else if (SQLCODE == ECPG_NOT_FOUND) {
        Query::__eof = true;
        if (__cursorOpened) {
            __cursorOpened = false;
            { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "close $0", 
    ECPGt_char,&(cursorID),(long)0,(long)1,(1)*sizeof(char), 
    ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);}
#line 400 "PeQuery.pgc"
 
            if (SQLCODE < 0) {
                __SET_ERROR_HANDLE(SQLCODE);
                return false;
            }
        }
        return true;
    }
 
    __SET_ERROR_HANDLE(SQLCODE);
    return false;
}
 
bool PeQuery::__getField(size_t _index, SQL::Field** _fieldHandleOut)
{
    __DCL_ASSERT(Query::__fieldCount > 0);
    __DCL_ASSERT((0 <= _index) && (_index < Query::__fieldCount));
    *_fieldHandleOut = &__fields[_index];
    return true;
}
 
bool PeQuery::__getParam(size_t _index, SQL::Param** _paramHandleOut)
{
    __DCL_ASSERT(Query::__paramCount > 0);
    __DCL_ASSERT((0 <= _index) && (_index < Query::__paramCount));
    *_paramHandleOut = &__params[_index];
    return true;
}
 
__DCL_END_NAMESPACE