Re: Standards question: What is your feeling about %found & %eofvs. %found(file) & %eof(file) ?

yes because key1 is by company and sales contest #... the third field is
the sort order which is not a part of KEY1


Michael Schutte

Bob Evans Bob-B-Q: You haven't had barbeque until you've had Bob Evans
Bob-B-Q. Try our six Bob-B-Q dishes, starting at $5.99. For more
information, visit www.BobEvans.com.


rpg400-l-bounces@xxxxxxxxxxxx wrote on 07/02/2008 03:51:04 PM:

It isn't clear to me what is supposed to happen, but I see the same data
ordered in two different orders, but with the same key for the reade.
Can that really happen?

Michael_Schutte@xxxxxxxxxxxx wrote:

I actually found the program where I had the issue... there were no

other

reads or chains after the read.

c if pSortBy = 'Sales'
C Key1 SetLL tllcons2
C Key1 ReadE tllcons2
C DoW Not %EoF
C Exsr WriteContData
C Key1 ReadE tllcons2
C EndDo
c else
* else requested sort order (A1SORT button) is by quantity:
C Key1 SetLL tllcons
C Key1 ReadE tllcons
C DoW Not %EoF
C Exsr WriteContData
C Key1 ReadE tllcons
C EndDo
C Endif

WriteContData only formatted html text to output to the browser.


Michael Schutte
Admin Professional
Bob Evans Bob-B-Q: You haven't had barbeque until you've had Bob Evans
Bob-B-Q. Try our six Bob-B-Q dishes, starting at $5.99. For more
information, visit www.BobEvans.com.


rpg400-l-bounces@xxxxxxxxxxxx wrote on 07/02/2008 02:52:46 PM:

I actually came across a program that didn't specify the file in the

BIF

and by all accounts, it should have worked because there wasn't any

other

reads, except for chains... the loop got short-circuited somehow, all

I

do

know is that when I specified the file, the program worked as

expected.

Michael Schutte
Admin Professional
Bob Evans Bob-B-Q: You haven't had barbeque until you've had Bob Evans
Bob-B-Q. Try our six Bob-B-Q dishes, starting at $5.99. For more
information, visit www.BobEvans.com.


rpg400-l-bounces@xxxxxxxxxxxx wrote on 07/02/2008 02:25:46 PM:

Greetings all... The topic is quite timely. I was just in a

conversation

this morning with a fellow programmer who insists that lack of use of

the

file name can cause "unintended results".....even if you check

immediately

after the read/chain/setll.

Under normal practice I do not qualify the bifs for the simple reason

of

cut-n-paste. Tests for valid reads ALWAYS occur immediately after a
read/chain/setll/etc. (Why continue processing if you don't have the
record.....beside the program has to do something because of the

failure,

why not do it now?). Qualifying the bif means that when code is

copied,

not only does the read statement change, but the test using the bif

has

to

change also.

I've only had one issue with the bif and that was chaining to an

update

file. The program had a one time failure because either the

"%found"

was

not qualified, or the "and not %error" was not specified. The

program

tried to update a record that was never read apparently due to a

record

lock. Both "fixes" were implemented so I don't have a definitive

answer

as to which was the real problem. I tend to believe the real issue

was

the lack of the "and not %error" portion of the test. I never could
reproduce the error any other way.

Has anyone had any real issues in not qualifying the bif with the

file

name......other than cases where the I/O Opcode and the test were

separated

by more than one statement number?


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

--
---------------------------------
Booth Martin
http://www.Martinvt.com
---------------------------------

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