RE: SQL - Not Closing Files

[Kevin H <kevinh@xxxxxxxxxxx>]

Thanks for the input.

This is compounded in my case as the logic is in the main guts of the
program,
and now I will have to strip these out these 31 open's,
code them as a module and hope I can get the parms passed 
correctly.

I was hoping there was a "kwik" fix  -  apparently
not.

thanks anyway
kmh

 At 07:17 AM 1/24/2001 -0600, you wrote:

I have this problem too.  I had to change the program to close cursor at *ENDMOD to get them to go away.  Otherwise they didn't close until the AG was reclaimed (*ENDACT).  Odd.

-----Original Message-----

From: Kevin H [mailto:kevinh@kmtcinc.com]

Sent: Tuesday, January 23, 2001 8:49 PM

To: RPG400-L@midrange.com

Subject: RE: SQL - Not Closing Files

Well.  the program has the close coded as such...

C/EXEC SQL CLOSE DAT01_A501  

C/END-EXEC                   

yet, the job keeps these files/odp's open <see below>

                      Member/    Record     File   I/O   ----Open--- Relative

File       Library    Device     Format     Type  Count  Opt Shr-Nbr  Record 

FIL005       DBTEST72   FIL005                LGL       0  I   NO              

FIL00501   DBTEST72   FIL00501   FORMAT0001 PHY       3  I   NO              

FIL005      DBTEST72   FIL005                LGL       0  I   NO              

FIL00502   DBTEST72   FIL00502   FORMAT0001 PHY       2  I   NO              

FIL00503   DBTEST72   FIL00503   FORMAT0001 PHY       1  I   NO               

These odp's are not defined in the program F-specs.

any clues ???

ta

kmh

At 03:31 PM 01/23/2001 -0800, you wrote:

Try,..

C/EXEC SQL       

C+ Close FileName

C/END-EXEC       

HTH,

Regards,

Jon A. Erickson

Sr. Programmer Analyst

800.COM Inc.

1516 NW Thurman St

Portland, OR  97209-2517

 

Direct: 503.944.3613

Fax: 503.944.3690

Web: http://800.com

-----Original Message-----

From: Kevin Howcroft [mailto:kevinh@kmtcinc.com]

Sent: Tuesday, January 23, 2001 2:58 PM

To: RPG400-L@midrange.com

Subject: SQL - Not Closing Files

Hi All.

Does anybody have a "kwik-fix" plse??

I am trying to maintain a program someone else wrote,

and it is my first exposure to SQLRPGLE.

We have a program, and there are times of the day that we close the files,

but keep programs active.  However, this SQL program keeps SQL files open.

Any idesa on how I can close them???

any ideas are much appreciated.

thaks

kmh

+---

| This is the RPG/400 Mailing List!

| To submit a new message, send your mail to RPG400-L@midrange.com.

| To subscribe to this list send email to RPG400-L-SUB@midrange.com.

| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.

| Questions should be directed to the list owner/operator: david@midrange.com

+---

********************************************************

Kevin M Howcroft                www.kmtcinc.com

AS/400 Technical Consultant     Voice:407.830.5960

kevinh@kmtcinc.com              Fax: 407.650.2638