$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

SetProFileString(sys_fx_positon, arg_dwname, arg_itemname, arg_itemvalue)

end subroutine

