update MYLIB/MYFILE a
set a.FLDB = 'NEW***'
where not exists (select 1 from MYLIB/MYFILE b
where a.FLDA = b.FLDA and b.FLDB = 'NEW***')
AND rrn(a) = (select min(rrn(c)) from MYLIB/MYFILE c
where a.FLDA = c.FLDA)

Rest Begards
Wim

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.