I wonder if this is a commitment control issue? If you do not intend to
use commitment control, try add the following lines of codes:
C/exec sql
C+ set option commit=*none
C/end-exec
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Doug Palme
Sent: Wednesday, August 01, 2007 9:08 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: Embedded SQL File Locking issue
Charles was kind enough to help me yesterday with a few issues and he
suggested that I include CLOSSQLCSR(*ENDMOD) on either the compiler
options or include it within the program in order to release any locks.
I have it on the compiler options (Charles, turns out with our change
control program, I can add them with a option 15) but when I run the
program interactively I still end up with a record lock...is there
something else I need to be doing here?
Here is the actual code that the program is processing at this time:
C/EXEC SQL
C+ INSERT INTO USETAXPF SELECT CCUSNR, CCUSNM, :ZSALES
C+ FROM CORCUSTM
C+ WHERE CSTATE = 'MN' AND
C+ CSTMTL = :ZTYPE
C/END-EXEC
************************************************************************
****
This transmission may contain information that is privileged,
Confidential and/or exempt from disclosure under applicable law.
If you are not the intended recipient, you are hereby notified that any
disclosure, copying, distribution, or use of the information contained
herein (including any reliance thereon) is STRICTLY PROHIBITED. If you
received this transmission in error, please immediately contact the
sender and destroy the material in its entirety, whether in electronic
or hard copy format. Thank you.
************************************************************************
****
--
This is the RPG programming on the AS400 / iSeries (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.
midrange.com
