RE: Free form question

Depending on the F spec, compiler will error out one of those two chain
statements in your example.

I really not sure why compiler need developer to tell him if the chain
is by key or by RRN. It should be able to know that from the F spec,
just the fix format.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Wilt, Charles
Sent: Thursday, November 01, 2007 1:17 PM
To: RPG programming on the AS400 / iSeries
Subject: 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.