打开一个游标，更新数据表，怎么执行后没有起作用。

Question

DECLARE
  CURSOR cursor_changename IS
    
    SELECT fprocinstid, frealusername
      FROM cwt_wf_casedata
     where frealusername is not null
     ORDER BY fprocinstid;
     
  TProcinstid   NUMBER(10);
  TRealusername VARCHAR2(400);
  
BEGIN
  OPEN cursor_changename;
  
  LOOP
  
    FETCH cursor_changename
      INTO TProcinstid, TRealusername;
  
    EXIT WHEN cursor_changename%NOTFOUND;
  
    UPDATE T_CASEPUBLISH
       SET APPLYUSERNAME = TRealusername
     WHERE PROCINSID = TProcinstid;
  
  END LOOP;  CLOSE cursor_changename;END;