RE: Embedded SQL + Closing an ODP

["Stone, Brad V (TC)" <bvstone@xxxxxxxxxxxxxx>]

Compile to close cursors at *ENDMOD.  Worked for me.

Brad

> -----Original Message-----
> From: Leif Svalgaard [mailto:leif@leif.org]
> Sent: Sunday, February 11, 2001 2:13 PM
> To: MIDRANGE-L@midrange.com
> Subject: Re: Embedded SQL + Closing an ODP
> 
> 
> From: David Keck <dkeck@idt.net>
> > I have an ILE RPG program comprised in part of an SQLRPGLE module
> > After ...
> > C/EXEC SQL open @Cursor
> > C/END-EXEC
> > an ODP is created as can be seen via WRKJOB 14.  Later, 
> immediately after
> > .....
> > C/EXEC SQL close @Cursor
> > C/END-EXEC
> > the file is still open, which I find perplexing and vexing. 
>  With the file
> > open the program maintains a member lock which interferes with other
> > elements of the system.
> > How can I close the ODP and release related locks without ending the
> program
> > containing the embedded SQL ?  A solution which works at 
> V3R2 would be
> > ideal.
> 
> There is an MI-instruction UNLOCK that can unlock
> 1) all locks for a process
> 2) specific locks
> 
> 
> 
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to 
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: 
> david@midrange.com
> +---
> 
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---