Re: Embedded SQL + Closing an ODP -- MIDRANGE-L

Dave,

Humor me for a minute. Just a stab.

look at : Close SQL cursor . . . . . . . . . . . . . . . . . . : *ENDMOD parameter

What are the additional (if any) values to specify on closing SQL cursor?

It seems as if the module is active, OPD will remain.

Also check File Desc for SHARE(*YES), need this for OPNQRYF .

>From: "David Keck"

>Reply-To: MIDRANGE-L@midrange.com

>To: "Midrange-L"

>Subject: Embedded SQL + Closing an ODP

>Date: Sun, 11 Feb 2001 00:28:44 -0800

>MIME-Version: 1.0

>Received: from [192.160.127.90] by hotmail.com (3.2) with ESMTP id MHotMailBC50398B005A40043115C0A07F5A12B50; Sun Feb 11 11:57:02 2001

>Received: (from uucp@localhost)by uucphost.mcs.net (8.11.1/8.11.1) with UUCP id f1BJvc534449;Sun, 11 Feb 2001 13:57:38 -0600 (CST)(envelope-from midrange-l-owner@midrange.com)

>Received: from localhost (mail@localhost)by linux.midrange.com (8.9.3/8.8.7) with SMTP id OAA04742;Sun, 11 Feb 2001 14:40:15 -0600

>Received: by linux.midrange.com (bulk_mailer v1.13); Sun, 11 Feb 2001 14:40:12 -0600

>Received: (from majordom@localhost)by linux.midrange.com (8.9.3/8.8.7) id OAA04670for midrange-l-outgoing; Sun, 11 Feb 2001 14:40:09 -0600

>Received: (from uucp@localhost)by linux.midrange.com (8.9.3/8.8.7) with UUCP id OAA04661for midrange-l@midrange.com; Sun, 11 Feb 2001 14:40:08 -0600

>Received: from u2.farm.idt.net (root@u2.farm.idt.net [169.132.8.11])by uucphost.mcs.net (8.11.1/8.11.1) with ESMTP id f1BJUPn31903for ; Sun, 11 Feb 2001 13:30:26 -0600 (CST)(envelope-from dkeck@idt.net)

>Received: from DavidEileenKeck (ppp-6.ts-2-bay.nyc.idt.net [169.132.216.54])by u2.farm.idt.net (8.9.3/8.9.3) with SMTP id OAA18619for ; Sun, 11 Feb 2001 14:30:24 -0500 (EST)

>From midrange-l-owner@midrange.com Sun Feb 11 11:57:50 2001

>Message-ID: <000001c09479$42909860$c65fbc18@DavidEileenKeck>

>X-Priority: 3

>X-MSMail-Priority: Normal

>X-Mailer: Microsoft Outlook Express 5.50.4522.1200

>X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200

>Sender: owner-midrange-l@midrange.com

>X-List-Name: Midrange Systems Mailing List (MIDRANGE-L@midrange.com)

>I have an ILE RPG program comprised in part of an SQLRPGLE module, compiled

>with

>Commitment control . . . . . . . . . . . . . . . . . : *NONE

>Relational database . . . . . . . . . . . . . . . . . : *LOCAL

>Naming convention . . . . . . . . . . . . . . . . . . : *SYS

>Allow copy of data . . . . . . . . . . . . . . . . . : *OPTIMIZE

>Allow blocking . . . . . . . . . . . . . . . . . . . : *ALLREAD

>Delay PREPARE . . . . . . . . . . . . . . . . . . . . : *NO

>Close SQL cursor . . . . . . . . . . . . . . . . . . : *ENDMOD

>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.

>Thanks - Dave K.

>+---

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

>+---

Get your FREE download of MSN Explorer at http://explorer.msn.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 +---