Re: Difference between RPG III and RPG IV with CHAIN

FWiW: Not deferring to the database to do the key comparisons may lead to /unexpected results/ under some conditions. There is a message which lists several examples, and in the manual somewhere too. One example is for sort sequence using shared weight rules, those are applied by the database but not in the simple predicate; e.g. using *LANGIDSHR x'81'=x'C1'.

Regards, Chuck

Alan Campin wrote:

Absolutely no reason to fail that I know of.

Problem with technique is that READE is equivalent to
a CHAIN and dumps the cache. Better is

Setll xxkey xxfile;
DoU 0 = 1;
Read xxFile;
If %Eof(xxFile) Or
xxKey <> DbKey;
Leave;
EndIf;
// Do something
EndDo;

On Wed, Nov 4, 2009 at 2:59 PM, jmmckee wrote:

Where I work, training is something of a dirty word.

To read multiple records using a partial key in RPG III,

>> I do this:

xxkey chain xxfmt LR
*INLR doweq *OFF

xxkey reade xxfmt LR
enddo
<<SNIP>>