Re: Close SQL Cursor without Ending Module

[Michael Ryan <michaelrtr@xxxxxxxxx>]

Hi Michael...yes, I'm specifying For Read Only on the Declare Cursor.

Interestingly, it doesn't seem to lock when the program is being debugged.


On Wed, Dec 5, 2012 at 11:58 AM, Koester, Michael <mkoester@xxxxxxxxxxxxx>wrote:

> Michael,
> Do you need to lock the file for update? If not, are you specifying "For
> Read Only" on the declare cursor?
> There's probably a better answer (more applicable to other situations
> where update is needed), but I just thought that might be a quick fix to
> consider.
> -- Michael K.
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Michael Ryan
> Sent: Wednesday, December 05, 2012 11:48 AM
> To: RPG programming on the IBM i / System i
> Subject: Close SQL Cursor without Ending Module
>
> Here's what I want to do...declare a cursor, open it, fetch records from
> it, and then close it so the file isn't locked. If this was just RLA RPG, I
> would do that with the OPEN and CLOSE opcodes. However, using embedded SQL
> seems to leave the file open, with problems at night with other jobs that
> need to access that file. I have SET OPTION CLOSQLCSR=*ENDMOD, and that
> closes it when I end the program. My problem is that the program isn't
> ended...someone walks away with the display up on their screen.
>
> How can I close an SQL cursor without ending the program? CLOSE <cursor>
> doesn't seem to work while the program is still active.
>
> Thanks!
> --
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.