create or replace procedure replace(desstr           in varchar2,
                                    replacestr       in varchar2,
                                    tablename        in varchar2,
                                    strgranularity   in varchar2,
                                    strorgankey      in varchar2,
                                    strstatisticdate in date) is
begin
  update t41_systemcal_upday t1
     set t1.calchar = replace(t1.calchar, desstr, replacestr)
   where t1.itemkey like tablename
     and t1.granularity = strgranularity
     and t1.statisticdate = strstatisticdate
     and t1.organkey = strorgankey;
end replace;