Here are the codes:

select MasterEHO
go top
do while not eof()
scatter memvar blank
scatter memvar

key = m.branch_cd + allt(str(m.mem_yy)) + allt(str(m.memseq_no))

select PayEHO
seek ( key )
if found() then
scan rest while branch_cd=m.branch_cd and mem_yy=m.mem_yy and memseq_no=m.memseq_no
nPayCounter = nPayCounter + 1

if Amount>=100 then
dPdFrDate = Pd_FrDate
dPdToDate = Pd_ToDate
endif
endscan
endif

select MasterEHO
if nPayCounter>0 then
replace Pd_FrDate with dPdFrDate
replace Pd_ToDate with dPdToDate
else
replace Pd_FrDate with ctod('')
replace Pd_ToDate with ctod('')
endif
skip
enddo

Note:
When I run these codes on a single or a few records I can extract the last paid date but when I try to run using the whole table records, there are some records that extracts the second to the last paid date instead of the last paid date.

I hope you get my meaning I try to explain it as best I can.

Thanks for your reply