RE: SQL - Not Closing Files

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

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