Re: Free form question

Because the parentheses is making it a key list.


Michael Schutte
Admin Professional
Bob Evans Farms, Inc
"The Secret's the Sauce! Enjoy our new Bob-B-Q Pulled Pork Knife & Fork
Sandwich!"




Bill Wragg
<bill_wragg@yahoo
.ca> To
Sent by: RPG programming on the AS400 /
rpg400-l-bounces@ iSeries <rpg400-l@xxxxxxxxxxxx>
midrange.com cc

Subject
11/01/2007 01:57 Re: Free form question
PM


Please respond to
RPG programming
on the AS400 /
iSeries
<rpg400-l@midrang
e.com>






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.