RE: SQL - Not Closing Files - Final Solution, the KWIK-fix

What if you compile your programs with COMMIT(*NONE)?  I guess I don't see
the relationship between commitment control and reading a file.

Before I used to have hundreds of ODPs for one web job running.  I compiled
with COMMIT(*NONE), closed cursors, etc.  The only way I could get it to
close them was *ENDMOD on the Close Cursor option.

I may try this, though.  May make a nice little ILE functin.  ;)

> -----Original Message-----
> From: Kevin H [mailto:kevinh@kmtcinc.com]
> Sent: Wednesday, January 24, 2001 9:56 AM
> To: RPG400-L@MIDRANGE.COM
> Subject: RE: SQL - Not Closing Files - Final Solution, the KWIK-fix
> 
> 
> a massive thank-you to Carl Jillett for the solution....listed below.
> 
> the kwik-fix consists of...
> 
>   * CLose SQL ODP's
> C                   Call(e)    'QCMDEXC'
> C                   Parm      'ENDCMTCTL'   Cmd$20           20
> C                   Parm      20            CmdLen           15 5
> 
> reasoning below
> 
> >SQL support was created to implicitly reuse ODP's 
> (efficiency  reasons I 
> >guess).
> >
> >The first time you call the program the ODP's will be 
> closed. The second
> >(and subsequent times) they will be left open.
> >
> >The only way to close the ODP is to ENDCMTCTL
> >
> >Do this when you want to close the file (via QCMDEXC) if 
> using overrides,
> >do this before deleting the override.
> >
> >The system starts commitment control when open/define the 
> cursor again.
> 
> 
> +---
> | 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
> +---
> 
+---
| 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
+---