过程举例------重写sequence过程

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;