MINI MINI MANI MO

Rem
Rem $Header: oracler/migration/imp/rqsys_sequpdate.sql /main/1 2013/12/21 10:25:52 gayyappa Exp $
Rem
Rem rqsys_sequpdate.sql
Rem
Rem Copyright (c) 2013, Oracle and/or its affiliates. All rights reserved.
Rem
Rem    NAME
Rem      rqsys_sequpdate.sql - <one-line expansion of the name>
Rem
Rem    DESCRIPTION
Rem      <short description of component this file declares/defines>
Rem
Rem    NOTES
Rem      <other useful comments, qualifications, etc.>
Rem
Rem    MODIFIED   (MM/DD/YY)
Rem    gayyappa    12/19/13 - Created
Rem
Rem    BEGIN SQL_FILE_METADATA 
Rem    SQL_SOURCE_FILE: oracler/migration/imp/rqsys_sequpdate.sql 
Rem    SQL_SHIPPED_FILE: 
Rem    SQL_PHASE: 
Rem    SQL_STARTUP_MODE: NORMAL 
Rem    SQL_IGNORABLE_ERRORS: NONE 
Rem    SQL_CALLING_FILE: 
Rem    END SQL_FILE_METADATA

SET ECHO ON
SET FEEDBACK 1
SET NUMWIDTH 10
SET LINESIZE 80
SET TRIMSPOOL ON
SET TAB OFF
SET PAGESIZE 100
set serveroutput on;
declare
maxa number(20);
maxb number(20);
maxseq number(20);
curr number(20);
val number(20);
v_sql varchar2(200);
BEGIN
select max(dsid) into  maxa from rqsys.rq$datastore;


select max(objid) into maxb from rqsys.rq$datastoreobject;
select rqsys.rq$datastore_seq.nextval into curr from dual;
if( maxa >= maxb )
then
  maxseq := maxa;
else
  maxseq := maxb;
end if;
if ( curr < maxseq)
then
 val := maxseq - curr;
 v_sql := 'alter sequence rqsys.rq$datastore_seq increment by ' ||
   val || ' minvalue 0 ';
 execute immediate v_sql;
 dbms_output.put_line('vsql is' || v_sql);
else
 dbms_output.put_line('no change maxseq =' || maxseq ||' curr=' || curr);
 end if;
END;
/
exit;