RE: File Still Open

Thanks, Rory. That did the trick. Never used that before because, usually,
I use cursors frequently and always CLOSE cursor inside the RPGLE program.
Didn't know I had a cursor in this one since I never DECLAREd one. I'm a
real put putz when it comes to this SQL stuff. The default (at 5.1 anyway)
is *ENDACTGRP. If I had called the program via a CL, I could have used the
RCLACTGRP command to the same effect, right?

Jerry C. Adams
IBM i Programmer/Analyst
We've got to pause and ask ourselves: How much clean air do we need? -Lee
Iacocca
--
A&K Wholesale
Murfreesboro, TN
615-867-5070


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Rory Hewitt
Sent: Monday, April 30, 2012 11:24 AM
To: RPG programming on the IBM i / System i
Subject: Re: File Still Open

Have you tried specifying COLSQLCSR(*ENDMOD) on the CRTSQL* command? The
default is CLOSQLCSR(*ENDSQL), I believe, which probably isn't what you
want.

On Mon, Apr 30, 2012 at 9:19 AM, Jerry C. Adams <midrange@xxxxxxxx> wrote:

First, V5R1.



I have an SQLRPGLE program that uses embedded SQL to update multiple
records (potentially, anyway) in a master file. I build a string
based upon the user's options and then use EXECUTE IMMEDIATE
:sqlstring. The master file is referenced only in the sqlstring;
i.e., it is not defined in the F-specs.
The string is: UPDATE TSTQS36F/"A.IVMAST" SET impidx = 'X ' , imprcd = '
'
WHERE impidx = 'CONW' AND imprcd = ' '



I never noticed before that, when the program ends, the master file is
still open when I run DSPJOB option 14. Is this normal, some keyword
I need to add to the UPDATE string, or something else to be sure the
file is closed?



Jerry C. Adams

IBM i Programmer/Analyst

Everything that can be invented, has been invented. -Charles Duell, U.S.
Patent Office Director (1899)

--

A&K Wholesale

Murfreesboro, TN

615-867-5070



--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/rpg400-l.

--
Rory Hewitt

http://www.linkedin.com/in/roryhewitt
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.