oracle存储过程

在数据库里的一张表上加了一个字段，写一个存储过程，给原来的每条记录以递增的数据更新给刚加的这一个字段，存储过程怎么写啊？
create table TBL_INFO
(
  SQH     CHAR(13) not null,
  DORDER  NUMBER
)

create or replace procedure dorder_update is
result NUMBER(10);

cursor curs is
select t.sqh, t.dorder from tbl_info t Order By t.bfsj Desc;

d_order tbl_info.dorder%type;
d_sqh tbl_info.sqh%type;

begin
     result := 0;
     open curs;
     loop
     fetch curs into d_sqh, d_order;
     exit when curs%notfound;   
        result := result + 1;
        update tbl_info t set t.dorder = result where t.sqh=d_sqh;
     end loop;
     close curs;
end dorder_update;