READE to read duplicate key in RPGLE

[Nurhidayah]

Hi guyss. I need your help.

I'm stuck to get the full output.

Supposedly the output need to look like this

And this is my physical file

I have three field in physical file which are :

EXGDAT = date
EXGCOD = exchange code
EXGRAT = exchange rate

I try to use this code

read curexg
dow not %eof
date reade curexg
eval date = exgdat
select
exgcod wheneq 'usd'
move exgrat usd
exgcod wheneq 'gbp'
move exgrat gbp
exgcod wheneq 'eur'
move exgrat eur
exgcod wheneq 'usd'
move exgrat aud
exgcod wheneq 'sgd'
move exgrat sgd
endsl


eval rrn = rrn + 1
write sfl01
read curexg
enddo

And this is what i get right now

What should i do? please help me

Thanks in advance