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