序列定时重置时，存储过程中涉及到DDL语句，执行报错：无法执行作业1

最近在做序列定时重置时遇到了一些问题，下面一一描述。

1、通过改变步长（通过nextval获取）先把序列初始值改为1，再把步长改回原来的值

create or replace PROCEDURE SEQ_RESET AS --创建重置序列子程序

n  NUMBER(10);  

TSQL VARCHAR2(100);  

BEGIN  

  execute immediate 'select sequence_name.nextval from dual' into n;  

  n := - (n-1);  

  

  TSQL := 'alter sequence sequence_name increment by '|| n;  --修改步长

  EXECUTE IMMEDIATE TSQL;  

  EXECUTE IMMEDIATE 'select sequence_name.nextval from dual' INTO n;  --把当前序列设置为1

   

  TSQL := 'alter sequence sequence_name increment by 1';  --把序列步长再修改为原来的1

  EXECUTE IMMEDIATE TSQL;  

   

END SEQ_RESET;

2、这样调用存储过程可以实现，但是通过job定时执行存储过程后就会有点问题了。

create or replace procedure proc_auto_exec_job as  --创建定时子程序

begin  

  declare  

    job number;  

    BEGIN  

      DBMS_JOB.SUBMIT(  

        JOB => job,  /*自动生成JOB_ID*/  

        WHAT => 'SEQ_RESET;',  /*需要执行的过程或SQL语句*/ 

        

        NEXT_DATE => TRUNC(SYSDATE+1),  /*初次执行时间，0点0分*/  

        INTERVAL => 'TRUNC(SYSDATE+1)'  /*每天0点0分*/  

      );    

      COMMIT;  

      DBMS_JOB.RUN(job);  

    end;  

end proc_auto_exec_job; 

--执行定时存储过程

begin

  proc_auto_exec_job;

end;

调用该存储过程时也没问题，调用之后相当于已经经过nextval初始化，可以通过currval获得当前序列值1。

但是，在自动执行重置序列一次后，不手动执行nextval则得到的crrval仍然是重置之前的值；当执行nextval后，再通过currval获取当前序列，则得到的序列值为2。也就是说通过定时子程序调用重置子程序时，初次执行是没问题的，但是后面自动执行时，就会得不到为1的序列值。

3、通过删除重建序列实现序列重置

但是这种方法需要有create sequence权限，如果没有的话，在sqlplus里授权：grant create sequence to username，这里的username就是你的数据库用户名

create or replace procedure SEQ_RESET as

  n number(10);

  begin

    select count(1) into n 

    from user_sequences t

    where t.sequence_name = upper('sequence_name');

   

    if n > 0 then  

      execute immediate 'drop sequence sequence_name';

    end if;

  

    e
4000
xecute immediate 'CREATE SEQUENCE sequence_name

   START WITH 1;';  

  commit;

end;

在这里当用户没有create sequence权限的话就会报错：无法执行作业1。只要用管理员身份授权就可以了。

这两种方法各有优缺，使用的时候可以根据实际情况来定。