PL/SQL通过存储过程为相同数据添加序号

在Oracle数据库中存有一串数据（Ori_Seq），数据包含不等量重复：

为方便查看与管理，现希望添加一字段（New_Seq），在原有数据的末尾为其添加一串序号，相同数据序号从小到大排列，序号长度为三位。

处理结果如下：

使用存储过程处理，代码如下：

 CREATE OR REPLACE PROCEDURE PROC_addseq(prm_AppCode Out NUMBER,
                                         prm_ErrMsg  Out Varchar2) IS

   CURSOR Demo IS
     select distinct t.ori_seq from demo t order by t.ori_seq; --新建游标Demo

 BEGIN

   prm_AppCode := 0;
   prm_ErrMsg  := '';

   BEGIN
     FOR c1 IN Demo LOOP
       BEGIN

         update demo t
            set t.new_seq = t.ori_seq || '-' ||
                            substr(cast(1000 + rownum as char(4)), 2, 3)
          where t.ori_seq = c1.ori_seq;
         --更新new_seq数据
         /*
         *number类型不能使用0开头
         *增加一位数字作为开头
         *使用cast将number转换为char类型
         *再截取后三位作为添加序列
         */

         dbms_output.put_line(c1.ori_seq || ' has been finished');
         --输出更新进度
         commit;
         --提交

       EXCEPTION
         WHEN OTHERS THEN
           prm_AppCode := -1;
           prm_ErrMsg  := 'Error! ' || SQLERRM;
           RETURN;
           --输出错误提示

       END;
     END LOOP;
   END;
 END PROC_Addseq;

执行后可见更新进度：

排序查看结果如下：