Re: How to made READ opcode not reading uncommitted records that arecreated by other jobs

The file is actually open for updated. My program gets a record lock error
on the record that has not been commited by another job. I've tried what
you suggested below and it didn't work for me.

I changed my program to do (Just wonder if there is a better way than
below):
read(e) MYFILE;
if %status() = @locked;
read(n) MYFILE; // use read with no lock extender to skip the
uncommitted record.
endif;


"Charles Wilt" <charles.wilt@xxxxxxxxx> wrote in message
news:mailman.6011.1286539790.2702.rpg400-l@xxxxxxxxxxxxxxx
Lim,

I assume the program doing the reading has the file as input-only?

In that case, add the COMMIT keyword to the file if it's not already
there. Before starting the program, you'll want to do a STRCMTCTL
LCKLVL(*CS) or STRCMTCTL LCKLVL(*ALL)

Take a look here:
http://publib.boulder.ibm.com/infocenter/iseries/v5r4/topic/rzakj/rzakjlocklevel.htm

HTH,
Charles


On Thu, Oct 7, 2010 at 4:28 PM, hockchai Lim
<lim.hock-chai@xxxxxxxxxxxxxxx> wrote:

is there a way to made READ not to read uncommitted records taht are
created
by other jobs? Seems like SQL select can do that if commitment control is
set on (*rs *rr *cs)


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