RE: SQL - Not Closing Files

[jpcarr@xxxxxxxxxxxx]

Prompt the SQLRPGLE  member with a 14 and hit F10.     Read up on this
parameter

 Close SQL cursor . . . . . . . .   *ENDMOD       *ENDMOD, *ENDACTGRP

Is this a dynamic call?
Bound Call ?
What activation is it running in?

Is there a SQL program somewhere above this in the stack?

Hit F1 on this parameter and read the help.


John Carr



                                                                                
                                       
                    Kevin H                                                     
                                       
                    <kevinh@kmtcinc.c        To:     RPG400-L@midrange.com      
                                       
                    om>                      cc:                                
                                       
                    Sent by:                 Subject:     RE: SQL - Not Closing 
Files                                  
                    owner-rpg400-l@mi                                           
                                       
                    drange.com                                                  
                                       
                                                                                
                                       
                                                                                
                                       
                    01/23/2001 09:49                                            
                                       
                    PM                                                          
                                       
                    Please respond to                                           
                                       
                    RPG400-L                                                    
                                       
                                                                                
                                       
                                                                                
                                       




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




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