RE: READE question

You can chain by just CO#, just make sure you KLIST has just the CO# in it.

So if sometimes you want both, and sometimes you only want CO#, you'd need 2 KLISTs.

But why are you still using KLISTs? This isn't RPG III. (Which worked the same way BTW)

For RPG IV, a better solution is to use a list of values or %kds.

Chain (CO#:RestNum) MyFile;
Chain (CO#) MyFile;

D MyFileKeys ds extname(myfile:*KEY)

Chain %kds(MyFileKeys) MyFile;
Chain %kds(MyFileKeys:1) MyFile;

The last example above chains with only the 1st key field even though the MyFileKeys data structure
contains all key fields.

HTH,


Charles Wilt
--
Software Engineer
CINTAS Corporation - IT 92B
513.701.1307

wiltc@xxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of John Furniss
Sent: Wednesday, July 23, 2008 3:20 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: READE question

But the key for the chain has to match the file, right? Even if I don't
populate all the key. So if my file has a key of Company (2/0),
Restaurant (15A), my key would have to be:

Key01 Klist
Kfld CO#
Kfld RestNm

Not Just a CHAIN by CO#?

John Furniss
Allied Machine & Engineering, Corp
Phone: 330-343-4283, ext. 8371
email: jfurniss@xxxxxxxxxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Michael_Schutte@xxxxxxxxxxxx
Sent: Wednesday, July 23, 2008 3:12 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: READE question

You do not need to chain with a full key...

If you have a key on the file of Company, Restaurant

You can chain just by company but you are going to get the lowest
Restaurant number (or highest if in descending sort).



Michael Schutte
Admin Professional
Bob Evans Bob-B-Q: You haven't had barbeque until you've had Bob Evans
Bob-B-Q. Try our six Bob-B-Q dishes, starting at $5.99. For more
information, visit www.BobEvans.com.


rpg400-l-bounces@xxxxxxxxxxxx wrote on 07/23/2008 03:01:10 PM:

The same is not true on a CHAIN, correct?

John Furniss
Allied Machine & Engineering, Corp
Phone: 330-343-4283, ext. 8371
email: jfurniss@xxxxxxxxxxxxxxxxx
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Tommy.Holden@xxxxxxxxxxxxxxxxxxxxx
Sent: Wednesday, July 23, 2008 2:51 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: READE question

yes...it's called a partial key...you *never* have to specify the

entire

key for a file (unless you want/need to 8^) )

Thanks,
Tommy Holden



From:
Adam West <adamster@xxxxxxxxx>
To:
rpg400-l@xxxxxxxxxxxx
Date:
07/23/2008 01:47 PM
Subject:
READE question



HI I have a Logical file that has several fields as the key. Can I do

a

SETLL/READ if I have only the first field of this key? Instead of

having

to create another logical.



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

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