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