sequence向后推移

昨天导入一个数据库，用户反映导过来的有sequence要小于已经导入到表中的sequence的值。原因生产数据中seq导入的时候可能在操作，
导致出现一些重复的出现。为了解决这个问题，我把当前用户下所有的sequence全部向后延至200，具体操作如下：

create table MAHANSO_TEST
(
  ID       NUMBER,
  SEQUENCE VARCHAR2(100)
)


DECLARE
   CURSOR c_cursor IS 
   select sequence_name from user_sequences;
   v_sequences_name user_sequences.sequence_name%type;
   
   v_sql varchar2(2000);
   v_insert_sql varchar2(2000);
   v_sequences_value number;
BEGIN
--隐含打开游标
   FOR v_sequences_name IN c_cursor LOOP
   --隐含执行一个FETCH语句
      for int in 1..1000 loop 
      v_sql := 'select '||v_sequences_name.sequence_name||'.Nextval from dual';
      --v_sql := v_sequences_name;
      --dbms_output.put_line(v_sql);
      execute immediate v_sql into v_sequences_value;
      
      v_insert_sql := 'insert into mahanso_test values(:1,:2)';
      execute immediate v_insert_sql using v_sequences_value,v_sequences_name.sequence_name;
      commit;
      end loop;
   --隐含监测c_sal%NOTFOUND
     END LOOP;
--隐含关闭游标
END;

备注：此脚本是网上找来修改的