dbms_job_change test

1 test table

CREATE TABLE JOBTEST
(
  ID NUMBER(*, 0)
, DATESTR DATE
, VAL NUMBER(*, 0)
)   ;

2  create sq


CREATE SEQUENCE JOB_SEQ INCREMENT BY 1 MAXVALUE 999999 MINVALUE 1 CACHE 20;

3  Create insert procedues

CREATE OR REPLACE PROCEDURE INSERTINTO_JOB AS

v_out int ;
 timestart NUMBER;
 v_date date;
 v_val number ;
  BEGIN
    dbms_output.enable;
    timestart:=dbms_utility.get_time();

 for i in 1..1
  loop
   v_date  := sysdate ;
   v_val :=  round(dbms_random.value(1,10000));
    insert into jobtest values ( JOB_SEQ.NEXTVAL , v_date ,v_val) ;
 
   if v_val > 500 then
           dbms_output.put ( ' ==> '  || v_val )   ;
   end if ;
 
 end loop ;
    commit;
    -- save time

 
END INSERTINTO_JOB;

3.2  job2

  CREATE OR REPLACE PROCEDURE "SMSMT"."JOBCHANGE"
(
  V_JOBID IN NUMBER
,  v_next  in date
,  v_intval IN VARCHAR2
) AS
BEGIN

   dbms_job.CHANGE  (
    job => V_JOBID,
    what => null ,
    next_date  => v_next ,
     interval  => v_intval
  );


 
  commit;
 
END jobchange;