RE: READE question

message: 9
date: Wed, 23 Jul 2008 15:01:10 -0400
from: "John Furniss" <JFurniss@xxxxxxxxxxxxxxxxx>
subject: RE: READE question

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.



------------------------------

message: 10
date: Wed, 23 Jul 2008 14:03:01 -0500
from: "Emily Smith" <esmith@xxxxxxxxxxxxxxxxxxxx>
subject: Sorting a MODS

Hi guys. Normally I would google something like this before
submitting to the list, but we're having internet issues here.
In my program, I am reading two files. Then, using fields
from both files, I am populating a MODS. After I have populated the
MODS I need to sort it by the first three fields. I'm sure
I've done something like this before probably more than
once, but I am drawing a blank. Any suggestions are
appreciated. Here is the relevant portion of my code...

Dloosebucket ds 45 occurs (9999)
D key1 1 4 0
D key2 5 9 0
D key3 10 34
D lamount 35 45 2

Read primaryf ;
Dow Not %eof ;

Setll (cuskey) secondf ;
Reade (cuskey) secondf ;

Dow Not %Eof(secondfr) ;
// Here I am populating the MODS and
this is working fine
Reade (cuskey) Secondf ;
Enddo ;

Read Primaryf ;
Enddo ;

//Here I'd like to sort the MODS


CONFIDENTIALITY NOTICE: This email message is private,
confidential property of the sender, and the materials
may be privileged communications intended solely for
the receipt, use, benefit, and information of the intended
recipient indicated above. If you are not the intended
recipient, you are hereby notified that any review,
disclosure,distribution, copying or taking of any
other action in reference to the contents of this message
is strictly prohibited, and may result in legal liability
on your part. If you have received this message in error,
please notify the sender immediately and delete this
message from your system. We believe that this email
and any attachments are free of any virus or other defect
that might affect any computer system that it is received
and opened in, however, it is the responsibility of the
recipient to ensure that it is virus free and the sender
accepts no responsibility for any loss or damage.


------------------------------

--
This is the RPG programming on the AS400 / iSeries
(RPG400-L) digest 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.



End of RPG400-L Digest, Vol 7, Issue 655
****************************************