重置sequence值

create or replace procedure resetsequence
--重置sequence值
--declare
/*
Description : 重新reset序列號
每天由00:01由OS排程 /home/oracle/batch/job_dq_matin.sh 自動執行
Modify_Date: 2008/12/01

*/
is
i number(10);
J number(10);
tsql varchar2(100);
Jtsql varchar2(100);
begin
select Y3_APPCHECK.nextval into i from dual;
i:=-(i-1);
tsql:='alter sequence Y3_APPCHECK increment by'|| i;
execute immediate tsql;
select Y3_APPCHECK.nextval into i from dual;
tsql:='alter sequence Y3_APPCHECK increment by 1';
execute immediate tsql;

select Y3_GWIN.nextval into J from dual;
J:=-(J-1);
Jtsql:='alter sequence Y3_GWIN increment by'|| J;
execute immediate Jtsql;
select Y3_GWIN.nextval into J from dual;
Jtsql:='alter sequence Y3_GWIN increment by 1';
execute immediate Jtsql;
end;