create or replace procedure
set_sequence_cert_paper_print(new_startval in integer) is
LastValue integer;
s VARCHAR2(1000);
t VARCHAR2(1000);
span integer;
begin
select new_startval - SEQ_CERT_PAPER_PRINT.nextval into span from dual;
s := 'alter sequence SEQ_CERT_PAPER_PRINT increment by ' || span || 'nocache';
execute immediate s;
loop
select SEQ_CERT_PAPER_PRINT.nextval into LastValue from dual;
exit when LastValue >= new_startval;
--select SEQ_CERT_PAPER_PRINT.nextval into LastValue from dual;
end loop;
t := 'alter sequence SEQ_CERT_PAPER_PRINT increment by 1 cache 20';
execute immediate t;
end set_sequence_cert_paper_print;
过程举例------重写sequence过程
最新推荐文章于 2024-07-11 19:58:11 发布