RE: Join 2 files with 1 key from each file.

>From your statement about the goal, I wonder if what you want is a
multiple record format logical file.  To do this you just put a line in
for each record format with the associated PFILE keyword for the
physical file. Then just after each record format you enter the keys.
What is really interesting is that if one file has a key that another
does not you can use *NONE in place of the missing key.  The program
will have to detected each record format with record indicators and
these indicators will have to be set off just before each read.  This is
the only way that I know of to detect which record format was just read.

I hope this will help you.  

Marvin


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Rusling, John B.
(Alliance)
Sent: Wednesday, May 04, 2005 10:22 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Join 2 files with 1 key from each file.

I have 2 files I want joined and indexed on 1 key from each of the 2
files.

The 2 files are named s1 and s3, both have the common field of Order#
(on) in them

s1 JOIN s3 ON s1on = s3on .

I want the joined file indexed by s1name, then s3itno

ORDER BY s1name, s3itno .


I'm using embedded sql in rpg and everything works fine except the
response
time on one of our production machines gets to be 5+ minutes.!

---->
I want to have a prebuilt, index or logical so that when this program is
used, the response time will fall into the acceptable range.

I've built most every combination of logical file (using dds) to this
end
but the response time is still horrid.

The s1 file has 2.25 million records and the s3 file has about 2.8
million.

Can anyone give me some guidance on this please?  I've tried everything
I can think of for the last day or 2 and response time is still crappy.


Thanks for any help at all,

John B.

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