Detecting an open SQL cusor?

["David Gibbs" <david.gibbs@xxxxxxxxxx>]

Folks:

Does anyone know if there is a way to detect an open SQL cusor in an 
ILE RPG program?

I have a program that reads a record and exits leaving the SQL cusor 
open (subsequent records are read future calls, that's why the cursor 
is left open).

Occasionally, I have to close the cusor to select different 
records... but I would like to avoid the "Cursor xxx is not open" 
diagnostic message that gets put in the job log (my boss is a 
stickler for not having diag & escape messages in the joblog).

So, I'm looking to find a way to determine if a cursor is open before 
I try to close it.

TIA!

david

--

David Gibbs
Sr. Software Engineer
Mortice Kern Systems US, Inc.
900 Oakmont Ln, Suite 400
Westmont, IL  60559
DID: (630) 734-5479
http://www.mks.com
mailto:david.gibbs@silvon.com

Opinions expressed are strictly my own and do 
not necessarily reflect those of my employer

You'll only see your obstacles each time you take 
     your eyes off of your goal! 

                   -- DMRoth
+---
| 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
+---