ORACLE 遍历循环更新表中的数据

DECLARE P_INT NUMBER(19);

BEGIN

 P_INT := 1;

 FOR L_RECORD IN (SELECT TASK_ID FROM IDM_TASK ORDER BY TASK_ID ASC) LOOP

    UPDATE IDM_TASK

       SET TASK_CODE = 'TAK' || TO_CHAR(P_INT)

     WHERE TASK_ID = L_RECORD.TASK_ID;

    P_INT := P_INT + 1;

 END LOOP;

 UPDATE SYS_SEQUENCE SET NEXT_NUMBER=P_INT WHERE SEQUENCE_CODE='IDM_TASK_NUMBER';

END;