Business Intelligence et techniques avec Michel Preti

DECLARE
nb_max_iddemt       NUMBER;
nb_seq_acuel        NUMBER;
nb_seq_increment    NUMBER;
BEGIN
SELECT MAX(iddemt) + 1
INTO nb_max_iddemt
FROM WORK.DOSM;
SELECT WORK.SEQ_DOS2.NEXTVAL
INTO nb_seq_acuel
FROM DUAL;
  nb_seq_increment := nb_max_iddemt - nb_seq_acuel - 1;
  EXECUTE IMMEDIATE 'ALTER SEQUENCE WORK.SEQ_DOS2 INCREMENT BY ' || nb_seq_increment;
  SELECT WORK.SEQ_DOS2.NEXTVAL
  INTO nb_seq_acuel
  FROM DUAL ;
  EXECUTE IMMEDIATE 'ALTER SEQUENCE WORK.SEQ_DOS2 INCREMENT BY 1';
END;