Re: setll, reade question.

So is there any relationship between the operation and sequence field?
Are the order and oper field from file 1 unique? Anyway, it look like you
are reading the same records over again from file 2 for the order number
1 in file 1.


Thank you,
Nancy
On Thu, 18 Oct 2012 15:24:16 -0500 Gqcy <gmufasa01@xxxxxxxxx> writes:

yes, this is correct.

On 10/18/2012 2:35 PM, Briggs, Trevor (TBriggs2) wrote:

So, just to confirm, in the following scenario:

File 1: Order # Operation
1 A
1 B
1 C
2 A

File 2: Order# Sequence
1 1
1 2
2 1

You want to read: From Order # 2nd

Field

File1 1 A
File2 1 1
File2 1 2
File1 1 B
File2 1 1
File2 1 2
File1 1 C
File2 1 1
File2 1 2
File1 2 A

etc...

Trevor Briggs
Analyst/Programmer
Lincare, Inc.
(727) 431-1246
TBriggs2@xxxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Gqcy
Sent: Thursday, October 18, 2012 3:29 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: setll, reade question.

no, they are not the same...


On 10/18/2012 2:17 PM, newnancy@xxxxxxxx wrote:

Are the operation and sequence number the same thing? You can

read all

the records in file 1 for order num 5, for example, and then all

the

records from file 2 for order num 5. Or do you want to read one

record

from file 1, then one from file 2, etc.. Why do until EOF?

Wouldn't it

be

until that end of that order number?

Thank you,
Nancy
On Thu, 18 Oct 2012 13:28:43 -0500 Gqcy<gmufasa01@xxxxxxxxx>

writes:

we are having a debate here about files with composite keys, and

how

SETLL and READE will position...

example:
File 1 key: Order#, Operation#

File 2 key: Order#, Sequence#

however, when I code my loop, I want to read all file 1 records

for

that
order, and within that loop I want to read all file 2 records.

we have it coded as:
<<<ORDER# is a field, not a KLIST>>>

ORDER# SETLL File1
ORDER# READE File1
DOU %eof(FILE1)
... ...
ORDER# SETLL File2
ORDER# READE FILE2
DOU %eof(file2)
... ...
ENDDO
ENDDO
HERE IS OUR DEBATE POINT:

some of us are remembering problems with not setting ALL KEY

VALUES,

because you may have problems with the remaining key fields not
being
set to *LOVAL...
However, I seem to think that was only when you were using a

KLIST

or
something like that...

--
This is the RPG programming on the IBM i / System i (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.

____________________________________________________________
Woman is 53 But Looks 25
Mom reveals 1 simple wrinkle trick that has angered doctors...

http://thirdpartyoffers.juno.com/TGL3141/508056ab7055256ab02a2st04vuc

--
This is the RPG programming on the IBM i / System i (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.