Re: Free form question

["Gene Burns" <burns.gene@xxxxxxxxx>]

Zaptr is a keyed file.  A key list of only one field would still be
valid for a keyed file.
A subfile does NOT have a key field.  You can only access it by RRN.
Therefore a key list is not valid for chaining to a subfile.

Gene

On Nov 1, 2007 12:57 PM, Bill Wragg <bill_wragg@xxxxxxxx> wrote:
> Then why does this work:
>
> Setll (VMAPVN) Zaptr;
> Reade (VMAPVN) Zaptr;
>
> (Vmapvn) is a field NOT a key list. Am on V5R3.
>
> Good Luck
> Bill
>
>
> ----- Original Message ----
> From: "Tommy.Holden@xxxxxxxxxxxxxxxxxxxxx" <Tommy.Holden@xxxxxxxxxxxxxxxxxxxxx>
> To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> Sent: Thursday, November 1, 2007 11:22:31 AM
> Subject: RE: Free form question
>
> using parens on the key tells the compiler that you are using a key list
> hence the error.  subfiles only have a single key...the RRN.  as Sean
> illustrated below is the correct way to code the chain for the subfile.
>
> Thanks,
> Tommy Holden
>
>
>
> "McGovern, Sean" <Sean.McGovern@xxxxxxxxxxxx>
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 11/01/2007 11:19 AM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
>
>
> To
> "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
> cc
>
> Subject
> RE: Free form question
>
>
>
>
>
>
> Use:
>
> chain(n) Dr# Filerec;
>
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Shore
> Sent: 01 November 2007 16:20
>
> To: RPG programming on the AS400 / iSeries
> Subject: Free form question
>
> I am writing a free form program that I need to chain through the
> records of a sub-file
>
>   Dr# = 0;
>   dou not %found;
>     Dr# += 1;
>     chain(n) (Dr#) Filerec;
>     if %found(File);
>       do something;
>     endif;
>     enddo;
>
>
> Where Filerec is the sub file record in the display file File, but I am
> getting the following compile error
>
> *RNF7702 30      1 A list of key fields is not allowed with program
> described
>                   file.
>
> which is throwing me for a loop.
> I get the same error with
>   chain (Dr#) Filerec;
>
> Anyone know what my problem is?
>
> Thanks in advance
>
>
>
> Alan Shore
>
> NBTY, Inc
> (631) 244-2000 ext. 5019
> AShore@xxxxxxxx
> "If you're going through Hell, keep going" - Winston Churchill
> --
> 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.
>
> --
> 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.
>
>
>       Be smarter than spam. See how smart SpamGuard is at giving junk email the boot with the All-new Yahoo! Mail.  Click on Options in Mail and switch to New Mail today or register for free at http://mail.yahoo.ca
> --
>
> 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.