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.


This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].