RE: Issue with chain and SETLL

["Jonathan Mason" <jonathan.mason@xxxxxxxxxxxxxxxx>]

Hi Douglas

I don't see any fiedls on the logical for a "Sales Staff ID" or similar,
presumably you have a record on another filed with that cross reference
information.

Assuming that's the case, I would either create a JLF over both files, with
the Sales Staff ID as the top level key field and then have The Sold To,
Invoice Date and Stock Code fields or use embedded SQL to process the
records (again joining the two files together).

Hope that helps (and that I haven't missed the point entirely) :-)

All the best

Jonathan



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Douglas W. Palme
Sent: 02 June 2005 21:43
To: RPG Group
Subject: Issue with chain and SETLL


I am in need of some help......

I have a LF that contains the following:

0001.00                 R SALES                     PFILE(IMPILN00)
0002.00      A            ILNSOLDTO
0003.00      A            ILNINVDATE
0004.00      A            ILNSTK
0005.00      A            ILNQTYSHP
0006.00      A            ILNEPRICE
0007.00      A            ILNEUAVCST
0008.00      A          K ILNINVDATE
0009.00      A          K ILNSOLDTO
0010.00      A          K ILNSTK

What I am trying to accomplish here is display a subfile with stock totals
for the various sales staff individuals for their respective customers.

At first I had the primary K set to ILNSOLDTO so I could chain the file and
verify the entered (coming from a DSPF) customer number is / was valid.
Then I need to do a SETLL for the specific data range they want....

I really need to keep the records grouped by the customer number, then in
date order and then by stock number, that way I can do a READE until the
customer number changes and thus EOF display the data and I'm out.

I know I can eval each record for the date but it seems that will only take
a ton more time....correct? Incorrect?

Suggestions or ideas would be appreciated.

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