× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



It sounds as if the *UPDADD option is a good one. But this could also be done with SQL, assuming, again, that deleted records were not reused, so that the highest RRN is the most recent. Anyway, this works, although it's performance on a large file is not tested by me:

with xx as
  (select key1, max(rrn(multkey)) maxrrn
     from multkey
     group by key1)
select * from multkey
  where rrn(multkey) in (select maxrrn from xx)
  order by key1

At 06:18 AM 3/20/2006, you wrote:

Rick,

You don't mention if rpg is an option or not.
If it is, you could do the following:

I'm assuming that duplicate keys are in rrn order.
The f-spec would specify to open the file in key sequence.

read file-name;
dow not %eof(file-name);
 setgt key-field(s) file-name;
 readpe key-fields(s) file-name;
 // logic goes here to do whatever you want with the found record
 read file-name;
enddo;


Glenn Gundermann


rick baird writes:

> I've got a file with 2 or 3 years worth of history in it.  the key
> fields are not unique, so duplicates abound.
>
> I want to extract the last instance (by rrn) of each key value.
>
> will this work?
>
> copy the file (by rrn) to a sequencial file (this ?might? not be necessary?)
>
> create an empty duplicate file with unique keyword specified.
>
> cpyf to the empty file using *UPDADD
>
> sound kosher?
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.