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

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

forward prototypes
global subroutine f_setprofilestring (long arg_empid, string arg_dwname, string arg_itemname, string arg_itemvalue)
end prototypes

global subroutine f_setprofilestring (long arg_empid, string arg_dwname, string arg_itemname, string arg_itemvalue);UPDATE sys_user_filestring
	SET itemvalue = :arg_itemvalue
	WHERE empid = :arg_empid
	AND dwname = :arg_dwname
	AND itemname = :arg_itemname;
IF sqlca.SQLCode = 0 THEN
	IF sqlca.SQLNRows = 0 THEN
		INSERT INTO sys_user_filestring
			(empid,
			dwname,
			itemname,
			itemvalue)
			VALUES
			(:arg_empid,
			:arg_dwname,
			:arg_itemname,
			:arg_itemvalue);
	END IF
END IF

COMMIT;

RETURN

end subroutine