IDS Forum

Re: Confusing 4GL Error

Posted By: DAVE GRIFFEN
Date: Wednesday, 7 April 2010, at 1:45 p.m.

In Response To: Re: Confusing 4GL Error (Marco Greco)

>DAVE GRIFFEN wrote:
>> I've run into an error 217 [Column (XXXX) not found in any table in the query]
>> while executing an SQL statement within a 4GL. The confusing part is that the
>> column most definitely does exist in the referenced table.
>>
>> Example 4gl -
>> ---------------------------------------------------------------------------
>> database sysmaster
>> main
>>
>> unload to "test.unl"
>>
>> select syschunks.chknum, (syschunks.chksize - syschunks.nfree) col2
>>
>> from syschunks
>>
>> end main
>> ---------------------------------------------------------------------------
>>
>> compiling with "c4gl -o test.4ge test.4gl"
>>
>> test.4ge
>> Program stopped at "test.4gl", line number 7.
>> SQL statement error number -217.
>> Column (nfree) not found in any table in the query (or SLV is undefined).
>>
>> Additional notes - If the syschunks qualifier is omitted from nfree, the error
>> does not occur. If the unload is removed and results are instead directed to a
>> temp table, the error does not occur.
>>
>> My question - is there some known and accepted explanation for this behavior?
>> Or should I be submitting this to IBM as a bug?
>>
>> Thanks,
>> Dave Griffen
>>
>> 4GL - 7.50.FC3
>> IDS - 11.50.FC5
>> OS - HP-UX B.11.23 U ia64
>
Marco Greco wrote:
>defect, in my book.
>out of curiosity, what happens if you store the select in a char variable and
>pass that to UNLOAD?
>could we also have a quick look at at the relevant c code generated?

>--
>Ciao,
>Marco
>______________________________________________________________________________
>Marco Greco /UK /IBM Standard disclaimers apply!

The following edit unloaded results without error...
-------------------------------------------------------------------------
database sysmaster
main

define cvar char(1000)

let cvar = 'select syschunks.chknum, ',

'(syschunks.chksize - syschunks.nfree) col2 from syschunks'

unload to "test.unl"

cvar

end main
-------------------------------------------------------------------------

Hopefully these will answer your c code question...
-------------------------------------------------------------------------
test.4ec
-------------------------------------------------------------------------
#include <decimal.h>
#include <locator.h>
#include <datetime.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <fglrep.h>
#define I4GL_SQLCA /* I4GLC1 */
#ifdef AIX_53
typedef ifx_loc_t loc_t;
#endif /* AIX_53 */
$extern struct {
int4 sqlcode; int1 sqlerrm[72]; int1 sqlerrp[8];
int4 sqlerrd[6]; int1 sqlawarn[8];
} sqlca;
$extern int4 status;
extern mint ibm_efm_statusCode;
extern mint ibm_lib4gl_expressionCode;
extern int2 ibm_lib4gl_anyError;
$extern int4 int_flag;
$extern int4 quit_flag;
static char fgl_modname[] = "test.4gl";

int
main(int fgl_argc, char **fgl_argv)

{
ibm_lib4gl_fglInitialize(fgl_argc, fgl_argv);
ibm_lib4gl_initSignalHandeler();
ibm_lib4gl_recordTssAndHwmState((char *)0);
ibm_lib4gl_recordDynArrStack();
ibm_lib4gl_anyError = 0;
$ database "sysmaster";
status = sqlca.sqlcode;
if (status < 0)
{
ibm_lib4gl_fglFatalError(fgl_modname, 3, status);
}
$ unload to "test.unl" select syschunks.chknum , ( syschunks.chksize -
syschunks . chksize . nfree ) col2 from syschunks;
status = sqlca.sqlcode;
if (status < 0)
{
ibm_lib4gl_fglFatalError(fgl_modname, 7, status);
}
$ exit form mode;
ibm_lib4gl_autoFreeBlobLocators(0);
ibm_lib4gl_releaseDynArrStack();
ibm_lib4gl_releaseTssAndHwmStack();
return(0);
}
-------------------------------------------------------------------------

-------------------------------------------------------------------------
test.ec
-------------------------------------------------------------------------
#include <sqlfm.h>

#include <decimal.h>
#include <locator.h>
#include <datetime.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <fglrep.h>
#define I4GL_SQLCA /* I4GLC1 */
#ifdef AIX_53
typedef ifx_loc_t loc_t;
#endif /* AIX_53 */
$extern struct
{

int4 sqlcode;

char sqlerrm[72];

char sqlerrp[8];

int4 sqlerrd[6];

char sqlawarn[8];
} sqlca;
$extern int4 status;
extern mint ibm_efm_statusCode;
extern mint ibm_lib4gl_expressionCode;
extern int2 ibm_lib4gl_anyError;
$extern int4 int_flag;
$extern int4 quit_flag;
static char fgl_modname[] = "test.4gl";

int
main(int fgl_argc, char **fgl_argv)

{
ibm_lib4gl_fglInitialize(fgl_argc, fgl_argv);
ibm_lib4gl_initSignalHandeler();
ibm_lib4gl_recordTssAndHwmState((char *)0);
ibm_lib4gl_recordDynArrStack();
ibm_lib4gl_anyError = 0;
$ database "sysmaster";
status = sqlca.sqlcode;
if (status < 0)
{
ibm_lib4gl_fglFatalError(fgl_modname, 3, status);
}

/*
* $ unload to "test.unl" select syschunks.chknum , ( syschunks.chksize -
*/
{
static int1 *sqlcmdtxt[] =
{
" select syschunks . chknum , ( syschunks . chksize - syschunks .",

" chksize . nfree ) col2 from syschunks",
(int1 *) 0
};
fgl_unload("test.unl", (int1 *)0, sqlcmdtxt, 0, (struct sqlvar_struct *)0);
}
status = sqlca.sqlcode;
if (status < 0)
{
ibm_lib4gl_fglFatalError(fgl_modname, 7, status);
}

/*
* $ exit form mode;
*/
{
ibm_efm_exitScreenMode();
}
ibm_lib4gl_autoFreeBlobLocators(0);
ibm_lib4gl_releaseDynArrStack();
ibm_lib4gl_releaseTssAndHwmStack();
return(0);
}
-------------------------------------------------------------------------

-------------------------------------------------------------------------
test.c
-------------------------------------------------------------------------
#include <sqlhdr.h>
#include <sqliapi.h>
#line 1 "test.ec"
#include <sqlfm.h>

#include <decimal.h>
#include <locator.h>
#include <datetime.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <fglrep.h>
#define I4GL_SQLCA /* I4GLC1 */
#ifdef AIX_53
typedef ifx_loc_t loc_t;
#endif /* AIX_53 */
/*
* $extern struct
* {
* int4 sqlcode;
* char sqlerrm[72];
* char sqlerrp[8];
* int4 sqlerrd[6];
* char sqlawarn[8];
* } sqlca;
*/
#line 15 "test.ec"
extern struct
{

int4 sqlcode;

char sqlerrm[72];

char sqlerrp[8];

int4 sqlerrd[6];

char sqlawarn[8];
} sqlca;
/*
* $extern int4 status;
*/
#line 23 "test.ec"
extern int4 status;
extern mint ibm_efm_statusCode;
extern mint ibm_lib4gl_expressionCode;
extern int2 ibm_lib4gl_anyError;
/*
* $extern int4 int_flag;
*/
#line 27 "test.ec"
extern int4 int_flag;
/*
* $extern int4 quit_flag;
*/
#line 28 "test.ec"
extern int4 quit_flag;
static char fgl_modname[] = "test.4gl";

int
main(int fgl_argc, char **fgl_argv)

{
ibm_lib4gl_fglInitialize(fgl_argc, fgl_argv);
ibm_lib4gl_initSignalHandeler();
ibm_lib4gl_recordTssAndHwmState((char *)0);
ibm_lib4gl_recordDynArrStack();
ibm_lib4gl_anyError = 0;
/*
* $ database "sysmaster";
*/
#line 40 "test.ec"
{
#line 40 "test.ec"
sqli_db_open("sysmaster", 0);
#line 40 "test.ec"
}
status = sqlca.sqlcode;
if (status < 0)
{
ibm_lib4gl_fglFatalError(fgl_modname, 3, status);
}

/*
* $ unload to "test.unl" select syschunks.chknum , ( syschunks.chksize -
*/
{
static int1 *sqlcmdtxt[] =
{
" select syschunks . chknum , ( syschunks . chksize - syschunks .",

" chksize . nfree ) col2 from syschunks",
(int1 *) 0
};
fgl_unload("test.unl", (int1 *)0, sqlcmdtxt, 0, (struct sqlvar_struct *)0);
}
status = sqlca.sqlcode;
if (status < 0)
{
ibm_lib4gl_fglFatalError(fgl_modname, 7, status);
}

/*
* $ exit form mode;
*/
{
ibm_efm_exitScreenMode();
}
ibm_lib4gl_autoFreeBlobLocators(0);
ibm_lib4gl_releaseDynArrStack();
ibm_lib4gl_releaseTssAndHwmStack();
return(0);
}

#line 75 "test.ec"
-------------------------------------------------------------------------

Messages In This Thread

• Confusing 4GL Error
  DAVE GRIFFEN -- Wednesday, 7 April 2010, at 11:36 a.m.
  • Re: Confusing 4GL Error
    RALPH GENTRY -- Wednesday, 7 April 2010, at 12:06 p.m.
    • Re: Confusing 4GL Error
      FRANK@ FRANKCOMPUTER.COM -- Wednesday, 7 April 2010, at 12:27 p.m.
      • Re: Confusing 4GL Error
        Marco Greco -- Wednesday, 7 April 2010, at 12:35 p.m.
      • RE: Confusing 4GL Error
        Paul Watson -- Wednesday, 7 April 2010, at 12:38 p.m.
        • Re: Confusing 4GL Error
          Obnoxio The Clown -- Wednesday, 7 April 2010, at 12:43 p.m.
          • Re: Confusing 4GL Error
            FRANK@ FRANKCOMPUTER.COM -- Wednesday, 7 April 2010, at 1:36 p.m.
      • Re: Confusing 4GL Error
        Art Kagel -- Wednesday, 7 April 2010, at 1:44 p.m.
        • Re: Confusing 4GL Error
          FRANK@ FRANKCOMPUTER.COM -- Wednesday, 7 April 2010, at 3:15 p.m.
          • Re: Confusing 4GL Error
            Obnoxio The Clown -- Wednesday, 7 April 2010, at 3:27 p.m.
            • Re: Confusing 4GL Error
              FRANK@ FRANKCOMPUTER.COM -- Wednesday, 7 April 2010, at 3:39 p.m.
  • RE: Confusing 4GL Error
    Everett Mills -- Wednesday, 7 April 2010, at 12:19 p.m.
  • Re: Confusing 4GL Error
    Marco Greco -- Wednesday, 7 April 2010, at 1:00 p.m.
    • Re: Confusing 4GL Error
      DAVE GRIFFEN -- Wednesday, 7 April 2010, at 1:45 p.m.
      • Re: Confusing 4GL Error
        Marco Greco -- Thursday, 8 April 2010, at 5:00 a.m.

IDS Forum is maintained by Administrator with WebBBS 5.12.