I'm glad it worked for you.
BTW, to preserve a code formating enclose your code in < pre > and < /pre > tags (no spaces) as in my reply to you.

>Thanks a lot. This one worked great and I have pasted my modification below for your reference:
>
>this is the call as modified:
>

>m.zfstr = "PADR(' ' + " + m.zsavealias + ".company + '   CMP' + TRANSFORM(" + m.zsavealias + ".cmpny_no, '@L 99999'), 80)"
>
>= helpme(m.zsavealias, "company", " " + m.zsavealias + ".company + '   CMP' + ;
>TRANSFORM(" + m.zsavealias + ".cmpny_no, '@L 99999')", ;
>"xselectbar", LEN(&zsavealias..company) + 12, ;
>IIF(EMPTY(m._vsouserid), '.T.', IIF(m._vsosuper, '.T.', '!SEEK(cnv2high(m._vsouserid) + cnv2high(EVALUATE("' + m.zfstr + '")), "vsosecur")')), .F., .T.)
>
>
>func helpme
>
>	IF m.zsetskip
>		DEFINE POPUP helppopup ;
>			MARGIN ;
>			COLOR SCHEME 4
>
>
>		m.zi = 1
>		
>		SCAN
>			IF &zfiltstr.
>				DEFINE BAR m.zi OF helppopup PROMPT &zpromptstr.
>
>				m.zi = m.zi + 1
>			ENDIF
>		ENDSCAN
>	ELSE
>		SET FILTER TO &zfiltstr.
>
>		*	LOCATE
>		= _gotop()
>	
>		
>		DEFINE POPUP helppopup ;
>			MARGIN ;
>			PROMPT FIELD &zpromptstr. ;
>			COLOR SCHEME 4
>	ENDIF