Re: Relative Record Number processing in RPG-Free

Rich Dotson
RT3 Consulting Services, Inc.
P.O. Box 126
Lorain, OH  44052-0126

Phone: 1-216-556-1710
eMail: Rich_Dotson@xxxxxxxxxxx

From: Scott Klement <klemscot@xxxxxxxxxxxx>
Reply-To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
Subject: Re: Relative Record Number processing in RPG-Free
Date: Sun, 25 Apr 2004 21:09:20 -0500 (CDT)

Remove the parenthesis!   Parenthesis on a CHAIN operation is for a
keylist.  Since your RRN is not a keylist, you don't want to specify them.

In other words, you want to code this:

CHAIN RR# FILENAME;

NOT this:

CHAIN (RR#) FILENAME;



On Sun, 25 Apr 2004, Rich Dotson wrote:

> I'm having a problem in RPG-Free that I have done numerous time in RPG IV.
> I am trying to process a non-keyed file by the relative record number but
> the program will not compile giving me the error that you cannot do key list
> processing on a program described file (even though the file is defined as
> an externally described file).
>
> I can jump out of the free-format into the fixed-column format for the CHAIN
> op code and everything works fine. But when I do the CHAIN (RR#) FILENAME,
> the free-form program will not compile.
>
> Has anyone else run into this? Can you not process a non-keyed file by
> relative record number in free-form RPG?
>
> Thanks in advance,
> Rich Dotson
>
> RT3 Consulting Services, Inc.
> P.O. Box 126
> Lorain, OH 44052-0126
>
> Phone: 1-216-556-1710
> eMail: Rich_Dotson@xxxxxxxxxxx
>