Works !!
Made slight change

function mygetfile
lparameters cPath
LOCAL jcSvPath,jcFile
jcSvPath = SYS(5)+SYS(2003)
set default to (cpath)
jcFile = GETPICT()
SET DEFAULT TO (jcSvPath)
return jcFile

Thanks Alot
Shlomo