Error in the procedure while tried to increment the seq

Question

Hello ,
I tried the following but giving the errors..
Plz help me in this..
CREATE OR REPLACE PROCEDURE Seq_inc AS
   vmaxarrec number(10);
   vseq number(10);
      select max(recid) into vmaxarrec from acc_rec;
      select SEQ_ACC_REC.currval into vseq from dual;
    BEGIN
      FOR i IN vseq .. vmaxarrec  LOOP
        select SEQ_ACC_REC.nextval  from dual;
      END LOOP;
    END ;And giving the following errors...
LINE/COL ERROR
4/7 PLS-00103: Encountered the symbol "SELECT" when expecting one of
the following:
begin function package pragma procedure subtype type use
<an identifier> <a double-quoted delimited-identifier> form
current cursor
The symbol "begin" was substituted for "SELECT" to continue.
11/9 PLS-00103: Encountered the symbol "end-of-file" when expecting
one of the following:
begin case declare end exception exit for goto if loop mod
null pragma raise return select update while with
LINE/COL ERROR
<an identifier> <a double-quoted delimited-identifier>
<a bind variable> << close current delete fetch lock insert
open rollback savepoint set sql execute commit forall merge
Thanks

Answer 1

smile wrote:
SQL> CREATE OR REPLACE PROCEDURE Seq_inc AS
2     vmaxarrec number(10);
3     vseq number(10);
4       
5      BEGIN   
6      select max(recid) into vmaxarrec from acc_rec;
7      select SEQ_ACC_REC.currval into vseq from dual;
8       
9        FOR i IN vseq .. vmaxarrec  LOOP
10          select SEQ_ACC_REC.nextval  from dual;
11        END LOOP;
12   
13      END ;
14  /
Warning: Procedure created with compilation errors.
SQL> sho err
Errors for PROCEDURE SEQ_INC:
LINE/COL ERROR
10/9     PLS-00428: an INTO clause is expected in this SELECT statementI tried with the above correction ..and still errorsIt looks to me like you're trying to reset the sequence number to a new starting value. In reality there's very little point in doing this, though I've come across a few test scenarios where it's good to start with the same sequence number each time.
The logic for changing a sequence to a particular value is along the lines of:
SQL> select test.nextval from dual;
   NEXTVAL
       125
SQL> var v_inc number;
SQL> var v_resetno number;
SQL> exec :v_resetno := 50;
PL/SQL procedure successfully completed.
SQL> exec execute immediate 'select -(test.nextval-:x)-1 from dual' into :v_inc using :v_resetno;
PL/SQL procedure successfully completed.
SQL> exec execute immediate 'alter sequence test increment by '||:v_inc;
PL/SQL procedure successfully completed.
SQL> select test.nextval from dual;
   NEXTVAL
        49
SQL> alter sequence test increment by 1;
Sequence altered.
SQL> select test.nextval from dual;
   NEXTVAL
        50
SQL> select test.nextval from dual;
   NEXTVAL
        51
SQL>Note: In your code you are reading the currval of the sequence before you know that you've read the nextval. That will give an error, because the currval is only known within the current session after a nextval has been obtained.
So, as a procedure, you want something like:
CREATE OR REPLACE PROCEDURE Seq_inc AS
  v_maxarrec number;
  v_inc      number;
  v_seq      number;
BEGIN   
  select max(recid)+1 into v_maxarrec from acc_rec; -- get the required sequence value
  select -(seq_acc_rec.nextval-v_maxarrec)-1 into v_inc from dual; -- determine the difference
  execute immediate 'alter sequence seq_acc_rec increment by '||v_inc; -- alter the sequence
  select seq_acc_rec.nextval into v_seq from dual; -- query the sequence to reset it
  execute immediate 'alter sequence seq_acc_rec increment by 1'; -- alter the sequence to increment by 1 again
END ;(+untested+)