Re: Difference between RPG III and RPG IV with CHAIN

[Vinay Gavankar <vinaygav@xxxxxxxxx>]

There is nothing different as far as I know. Only thing I can think of is
the key of the file in RPG IV was descending?

Vinay

On Wed, Nov 4, 2009 at 3:59 PM, jmmckee <jmmckee@xxxxxxxxxxxxxx> 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
>
>
> On a project a few years ago, written in RPG IV, that code did not work.
>
> The only way we found to make it work was to do this:
>
> xxkey    setll    xxfmt
> xxkey     reade xxfmt
>             dow    not %eof(xxfile)
>
>
> xxkey    reade  xxfmt
>             enddo
>
>
> Doing a CHAIN to position and read the first record when multiple records
> were read just went to end of file, as I recall.  Been too long.
>
> Were we doing someting wrong that caused the RPG IV code to fail?  This has
> really been bugging me for a long time.  I couldn't find a reason for the
> bizarre behavior in my searching.  It >may< have been an error when only one
> record with the matching subkey was found.  Again, I just don't remember.
>
> John McKee
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.