Re: Last know working distro?

Now you're asking questions I'm not sure about.

First off the error from my app:
------------
Err:Program /home/vince/EZDray/bin/ezdray.4ge stopped at 'agents.4gl', line number 474.
Error status number -202.
Unknown Error.

4gl function call stack :
newdispatch.4gl (Line 126) calls check_agent(l_bill_company=FOR*)
ezdray.4gl (Line 215) calls new_dispatch()
MAIN
---------------

My code. The error is actual on the FOREACH line. l_bill_company is passed to the function.
I verified that the generated code is "... WHERE bill_company ~ $1 "

---------------
DECLARE agbrow CURSOR FOR SELECT bill_code, bill_company, bill_city
FROM agents WHERE bill_company MATCHES l_bill_company ORDER BY bill_code

LET x = 0

FOREACH agbrow INTO lar_agents[x+1].*
LET x = x + 1
END FOREACH
------------------

I don't know what I change to compile to C instead of Esql/C. I haven't touched this stuff for a lot of years.
On Apr 19 2021, at 11:31 am, Mike Aubury <[email protected]> wrote:
> What error are you getting ? (Either the error when you open the cursor, or the issue you have with the include files)
> Does it work if you compile to C (rather than Esql/C) ?
>
>
> On Mon, 19 Apr 2021, 19:15 Vince Callaway, <[email protected] (mailto:[email protected])> wrote:
> > I need to resurect an old 4gl application and have run into some issues.
> >
> > I believe I've narrowed down my problem to a change with the posgres includes. I don't expect anyone to spend time to get this working. If I can get a combination of a linux distro and version that will compile and run I will be happy.
> > What I have run into is everywhere I pass a variable to a function and use that in a CONSTRUCT it fails when it opens the cursor. I get a .warn file when I do the compile. I'll include it if anyone is interested in what I'm seeing.
> > In file included from /home/vince/aubit4gl/incl/a4gl_esql.h:57,
> > from agents.cpc:5:
> > agents.cpc: In function ‘aclfgl_agents_update’:
> > /home/vince/aubit4gl/incl/a4gl_esql_postgres.h:311:35: warning: implicit declaration of function ‘A4GL_copy_sqlca_sqlawarn_string8’; did you mean ‘A4GL_copy_sqlca_sqlawarn_8chars’? [-Wimplicit-function-declaration]
> > 311 | #define A4GLSQL_SET_SQLCA_SQLWARN A4GL_copy_sqlca_sqlawarn_string8(sqlca.sqlwarn)
> > | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> > agents.cpc:1754:16: note: in expansion of macro ‘A4GLSQL_SET_SQLCA_SQLWARN’
> > 1754 | A4GLSQL_SET_SQLCA_SQLWARN;
> > | ^~~~~~~~~~~~~~~~~~~~~~~~~
> > agents.cpc:1779:20: warning: implicit declaration of function ‘A4GL_ESQL_cursor_is_open’ [-Wimplicit-function-declaration]
> > 1779 | if (A4GL_ESQL_cursor_is_open("agents_dcurs")) {
> > | ^~~~~~~~~~~~~~~~~~~~~~~~
> > agents.cpc:1786:39: warning: implicit declaration of function ‘A4GL_ESQL_set_cursor_is_open’; did you mean ‘A4GLSQL_get_curr_conn’? [-Wimplicit-function-declaration]
> > 1786 | if (sqlca.sqlcode>=0) {A4GL_ESQL_set_cursor_is_open("agents_dcurs");}
> > | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
> > | A4GLSQL_get_curr_conn
> > agents.cpc:1983:19: warning: implicit declaration of function ‘A4GL_ESQL_set_cursor_is_closed’ [-Wimplicit-function-declaration]
> > 1983 | A4GL_ESQL_set_cursor_is_closed("agents_dcurs");
> > | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> > _______________________________________________
> > Aubit4gl-discuss mailing list
> > [email protected] (mailto:[email protected])
> > https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss
>
>

_______________________________________________
Aubit4gl-discuss mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss