oracle job的迁移

因为JOB的内容是写死的，如果使用remap导入到别的用户下，其log_user等还是原来的，再加上job的id是固定的，很可能和当前库有冲突，所以建议取出job的ddl。

dbms_metadata.get_ddl是不可以的。不行你们试试就知道了。

所以我写了个plsql

set serveroutput on size 100000
set termout on
set feedback off
clear screen
spool /opt/soft/bak/make_jobs.sql
prompt -- exporting jobs
begin
<< export_jobs >>
declare 
  subtype   job_type       is  user_jobs.JOB%type    ;
  subtype   max_text_type  is  varchar2( 8191 char ) ;
  type      job_tab_type   is  table of   job_type        index by pls_integer ;
  type      sql_tab_type   is  table of   max_text_type   index by pls_integer ;
      
  job_tab     job_tab_type  ;
  sql_tab     sql_tab_type  ;
  job         pls_integer   ;
  what        pls_integer   ;
  next_date   pls_integer   ;
  interval    pls_integer   ;
  no_parse    pls_integer   ;
  procedure 
        get_jobs
  is
  begin
        select j.JOB
          bulk collect
          into job_tab
          from user_jobs j
         order by 1
        ;
  end   get_jobs
  ;
  
  procedure 
        format( x pls_integer )
  is 
        sqlx     max_text_type  :=  null ;
  begin 
                sqlx := ‘begin‘                                                     || chr(10);
        job          :=   instr( sql_tab(x), ‘(job=>‘ ) ;
        sqlx := sqlx ||  substr( sql_tab(x), 1, job-1 )                             || chr(10) ;
        what         :=   instr( sql_tab(x),‘,what=>‘ ) ;
        sqlx := sqlx ||  substr( sql_tab(x), job, what-job )                        || chr(10) ;
        next_date    :=   instr( sql_tab(x),‘,next_date=>‘ ) ;
        sqlx := sqlx ||  substr( sql_tab(x), what, next_date-what )                 || chr(10) ;
        interval     :=   instr( sql_tab(x),‘,interval=>‘ ) ;
    --  sqlx := sqlx ||  substr( sql_tab(x), next_date, interval-next_date )        || chr(10) ;
        sqlx := sqlx ||  q‘|,next_date=>‘01-JAN-3000‘|‘                             || chr(10) ;
        no_parse     :=   instr( sql_tab(x),‘,no_parse=>‘ ) ;
        sqlx := sqlx ||  substr( sql_tab(x), interval, no_parse-interval )          || chr(10) ;
        sqlx := sqlx ||  ‘,no_parse=>TRUE‘                || chr(10) || ‘);‘ || chr(10) ;
        sqlx := sqlx ||  ‘commit;‘                        || chr(10)         || chr(10) ;
        sqlx := sqlx ||  ‘end;‘                           || chr(10) || ‘/‘  || chr(10) ;
        
        sql_tab(x)   :=  sqlx;
  end   format
  ;          
  
begin
      get_jobs;
      if    
            job_tab.count > 0 
      then
            for   
                  i   in  1 .. job_tab.count
            loop
                  sql_tab(i) := ‘ ‘;
                  sys.dbms_job.user_export
                  (  job    =>  job_tab(i)
                   , mycall =>  sql_tab(i)
                  );
                  format(i) ;
                  dbms_output.put_line( sql_tab(i) ) ;
            end   loop
            ;
      else
            dbms_output.put_line( ‘-- Nothing to do.‘ ) ; 
      end   if
      ;
end export_jobs
;
end;
/
spool off

然后呢，用这个得到输出重建job。如果你遇到

ORA-00001: unique constraint (SYS.I_JOB_JOB) violated

就说明job列重复了，这时候你有两种方法，一个是重置job，改个没人用的。

另一种就是删了现在的job重建。

删除语法是

exec dbms_job.remove(25);

如果删除时遇到如下：

ORA-23421: job number 387 is not a job in the job queue

很有可能是因为你的用户不是job的owner。

select job,log_user,priv_user,schema from dba_jobs where job=25;

然后切换过去再删除，同理，建立也必须使用当前用户。