$PBExportHeader$f_profilestring.srf
global type f_profilestring from function_object
end type

forward prototypes
global function string f_profilestring (long arg_empid, string arg_dwname, string arg_itemname, string arg_itemvalue)
end prototypes

global function string f_profilestring (long arg_empid, string arg_dwname, string arg_itemname, string arg_itemvalue);//String ls_itemvalue
//
//SELECT itemvalue
//	INTO :ls_itemvalue
//	FROM sys_user_filestring
//	WHERE empid = :arg_empid
//	AND dwname = :arg_dwname
//	AND itemname = :arg_itemname;
//IF sqlca.SQLCode <> 0 THEN
//	ls_itemvalue = arg_itemvalue
//END IF
//
//RETURN ls_itemvalue
//

return ProFileString(sys_fx_positon, arg_dwname, arg_itemname, arg_itemvalue)
end function

