Re: Difference between RPG III and RPG IV with CHAIN

In that frustrating instance, no. Key was ascending. We were using debug to step through, but the error was faster to find, due to the amount of data we had to claw through, using carefully controlled exception output.

John McKee


-----Original message-----
From: Vinay Gavankar vinaygav@xxxxxxxxx
Date: Wed, 04 Nov 2009 17:16:51 -0600
To: Midrange Systems Technical Discussion midrange-l@xxxxxxxxxxxx
Subject: Re: Difference between RPG III and RPG IV with CHAIN

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.

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