declare n number(10); tsql varchar2(100); begin select my_seg.nextval into n from dual; n:=-(n-1); tsql:='alter sequence my_seg increment by'|| n; execute immediate tsql; select my_seg.nextval into n from dual; tsql:='alter sequence my_seg increment by 1'; execute immediate tsql; end; /
n number(10);
tsql varchar2(100);
begin
select my_seg.nextval into n from dual;
n:=-(n-1);
tsql:='alter sequence my_seg increment by'|| n;
execute immediate tsql;
select my_seg.nextval into n from dual;
tsql:='alter sequence my_seg increment by 1';
execute immediate tsql;
end;
/