|
How about:
D iimds e Ds extname(iim)
D ds1 ds qualified
D rrn 10s 0
D iimflds likeds(iimds)
d ds2 ds likeds( ds1 ) occurs(10)
and fetch into ds2?
Just a WAG.
db
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx / rob@xxxxxxxxx
> Sent: Tuesday, August 17, 2004 2:54 PM
>
> Definitely some improvements at V5R3.
>
> However this didn't work
> D iimds e Ds extname(iim)
> D ds1 ds occurs(10) qualified
> D rrn 10s 0
> D iimflds likeds(iimds)
>
<snip>
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.