RE: Odd SQL problem

[Gord Royle <GRoyle@xxxxxxxx>]

We've encountered funny things with cursor control in the past. (Sometimes
closed - Sometimes open) so we always use the constructs below.

C/EXEC SQL
C+ CLOSE HEADER
C/END-EXEC
C*
C* If cursor is already closed, don't worry (SQLCOD = -501)


C/EXEC SQL
C+ PREPARE Jrn_Select FROM :Dyn_Sel
C/END-EXEC
C*

C/EXEC SQL
C+ OPEN HEADER
C/END-EXEC
C*
C* If cursor is already open, close it and re-open it again
C                   If        SqlCod = -502
C/EXEC SQL
C+ CLOSE HEADER
C/END-EXEC
C/EXEC SQL
C+ OPEN HEADER
C/END-EXEC
C                   Endif

I know that this adds a little overhead, but we don't get bitten.

Gord Royle


-----Original Message-----
From: Bartell, Aaron L. (TC) [mailto:ALBartell@taylorcorp.com]
Sent: Thursday, May 09, 2002 10:31 AM
To: 'rpg400-l@midrange.com'
Subject: RE: Odd SQL problem


I should also note that I am finding this in my job log:

Prepared statement S1 in use.
Prepared statement S2 in use.
Cursor C1 already open.
Cursor C2 already open.

Which I should not be getting.

Also, when I go to the page from a newly opened browser it will bring back
results that I have not yet selected (it is a query type application).
Hmmm. . . very odd.  Almost like my applications are crossing each other.

Aaron Bartell


-----Original Message-----
From: Bartell, Aaron L. (TC) [mailto:ALBartell@taylorcorp.com]
Sent: Thursday, May 09, 2002 8:40 AM
To: 'rpg400-l@midrange.com'
Subject: Odd SQL problem


Hi All,

I have an RPG CGI embedded SQL program that is acting really weird.  I will
develop a valid SQL statement and execute it successfully.  The problem is
that when I try to do my third read it closes the cursor for no reason and I
get an SQLCOD of -501 which is "Cursor &1 not open."  We did just upgrade
this box to V5R1 not too long ago so it may be something on the compile
parms, but I have no idea which one it might be, and I have tried changing
everything that would make sense.  Like I changed the Close SQL Cursor from
*ENDACTGRP to *ENDMOD but that did nothing.

Thanks in advance if somebody knows what is up with this,

Aaron Bartell
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.