I have modified your code, as I was using 2 master/parent fields, so both values should be saved, here is the modified version :-

Dimension lcLastCode(2)

lcLastCode(1) = space(6) && len for pgno - master/parent field
lcLastCode(2) = space(40) && len for desc - master/parent field

select ;
HideRepValue(master.pgno,1) as pgno,HideRepValue(master.desc,2) as desc, ;
delivery.date, delivery.qty ;
from ;
master, delivery ;
where ;
master.pgno=delivery.pgno

function HideRepValue
lparameter lcFieldValue, nValue
if lcFieldValue == lcLastCode(nValue)
return space(len(lcFieldValue))
else
lcLastCode(nValue) = lcFieldValue
return lcFieldValue
endif

but the only problem I am facing now is the first record, is showing me blanks in parent fields, & I can't figure it out why it is happening !!

Any suggestions ??

& thanks once again for your reply, U have saved me as this problem was troubling me from last 15-20 days. I really thank you from my heart !!