RE: When records are counted as in file?

Slight correction here.

The buffering, or blocking of records,  is actually happening above the DB as 
part of the RPG program
itself.

Once the record gets written to the DB, the record is available to all jobs on 
the system, even if the
DB hasn't written it out to disk.

If you need to see each record write after it is written, then is BLOCK(*NO) on 
the f-spec.

If on the other hand, you write more than one record before needing to look for 
them in the file, use
FEOD(n) after the last write before the chain.

FEOD(n) flushes the blocked records to the DB but does not necessarily force 
the DB to write then to
disk.  FEOD without the (n) does force the data all the way to disk.

FEOD(n) will perform better than FEOD without the (n).

HTH,

Charles

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx 
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Lapeyre, Francis
Sent: Wednesday, March 28, 2007 4:54 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: When records are counted as in file?

So, you are CHAINing right after you write the record? In 
that case, unless you force the write to disk with either a 
FEOD(filename) opcode after the write, your program won't see 
it right away - because the database buffers the write.

Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.
E-mail: flapeyre@xxxxxxxx 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Phil Kestenbaum
Sent: Wednesday, March 28, 2007 3:45 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: When records are counted as in file?

Chain. IOW, lets say, I write a record w/ key A where A ='123'

Then after the Write, I chain w/ '123' again, it should be 
*%Found, correct?

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of 
Michael_Schutte@xxxxxxxxxxxx
Sent: Wednesday, March 28, 2007 4:37 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: When records are counted as in file?

You probably just mistyped, but it should be

---- If not %found
not
--- if *not found

But anyway, are you using SETLL or CHAIN to determine if 
records exists.

If SETLL you should be using %Equal()

If CHAIN, I've made it a practice to use the file name in the 
%Found().


Michael Schutte
Admin Professional
Bob Evans Farms, Inc.

Big Farm Salads - Hurry in to enjoy the newest farm-fresh 
taste from Bob Evans, the "Home of Homestyle."


rpg400-l-bounces@xxxxxxxxxxxx wrote on 03/28/2007 04:33:03 PM:

HI I have an RPG program that is writing records to a file but first

it

checks to see if the key already exists. If it does, then 

there is no 

write. I am finding that the *Not found ind. Is always on when it

should

not be. Therefore am I to assume, that records written during the 
program time are not counted as existing in the file?



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

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


This message contains information proprietary to our company. It is
intended to be read only by the individual or entity named above or
their designee.
Any distribution of this message or the information contained herein
without written permission from our company is strictly prohibited. If
the reader of this message is not the intended recipient or an agent
responsible for delivering it to the intended recipient, you 
are hereby
notified that you have received this document in error and that any
review, dissemination, distribution, or copying of this message is
strictly prohibited. If you have received this communication in error,
please notify us immediately by e-mail, and delete the 
original message.



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


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

This e-mail transmission contains information that is intended to be 
confidential and privileged.  If you receive this e-mail and you are not a 
named addressee you are hereby notified that you are not authorized to read, 
print, retain, copy or disseminate this communication without the consent of 
the sender and that doing so is prohibited and may be unlawful.  Please reply 
to the message immediately by informing the sender that the message was 
misdirected.  After replying, please delete and otherwise erase it and any 
attachments from your computer system.  Your assistance in correcting this 
error is appreciated.