Dear all,

Thank you very much for helping me.

I got following solution by Mr. Borislav Borissov
The following brief codes work fine for me

SELECT distinct(pcode)as pcode,gno,fdate,party;
	FROM WEIGHTS;
	WHERE fdate=THISform.text1.VALUE ;
	ORDER BY pcode;
	GROUP BY PCode;
	INTO cursor fix

SELECT OUT2
ZAP

APPEND FROM DBF("FIX")

LOCAL lcMessage
lcMessage = ""

SELECT fix
SCATTER memv
SCAN
	lcMessage = m.lcMessage + ALLTRIM(transform(gno))+alltrim("-")
	SELECT out2
	REPLACE party with lcMessage
ENDSCAN

SELECT out2
BROW fields fdate,pcode,gno,party