RE: SQL - Not Closing Files

[Kevin H <kevinh@xxxxxxxxxxx>]

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