Q5/ws_objects/Ew_publ903.pbl.src/f_profilestring.srf

$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

end function