Re: the last instance of a record

[Vernon Hamberg <vhamberg@xxxxxxxxxxx>]

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.