RE: Free form question

When you use parenthesis, you are telling the compiler you are accessing by key fields.

RRN is not a key field in the file.

Consider access a file by RRN and by key field.

/free
idx = 1;
chain idx myfile;
chain (idx) myfile;
/endfree

In the first chain, you're getting the record with RRN = 1.

In the second, you're getting the record whose first key field = 1.

HTH,
Charles

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Bill Wragg
Sent: Thursday, November 01, 2007 1:57 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Free form question

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.

This e-mail transmission contains information that is intended to be confidential and privileged. If you receive this e-mail and you are not a named addressee you are hereby notified that you are not authorized to read, print, retain, copy or disseminate this communication without the consent of the sender and that doing so is prohibited and may be unlawful. Please reply to the message immediately by informing the sender that the message was misdirected. After replying, please delete and otherwise erase it and any attachments from your computer system. Your assistance in correcting this error is appreciated.