创建存储过程

create or replace procedure applyIdseq_reset as n number(10);
tsql varchar2(100);
begin
execute immediate 'select applyId_seq.nextval FROM dual' into n;
n:=-n;
tsql:='alter sequence applyId_seq increment by '||n;
execute immediate tsql;
execute immediate 'select applyId_seq.nextval FROM dual' into n;
tsql:='alter sequence applyId_seq increment by 1';
execute immediate tsql;
end applyIdseq_reset;