能够记住事件本身的基于事件的schedule

botang

1. select  * from scheduler_test;
   
2. alter table scheduler_test add ( event_name  varchar2(40)) ;
   
3. 
   
4. 
   
5. create or replace procedure procnew( p_1     sys.t_event_queue_payload    )
   
6. is
   
7. 
   
8. BEGIN
   
9.      INSERT INTO scheduler_test
   
10.          VALUES (scheduler_test_seq.NEXTVAL,'NEW', SYSDATE,  p_1.event_name   );
    
11.          COMMIT;
    
12. END;
    
13. /
    
14. 
    
15. 
    
16. begin
    
17.   dbms_scheduler.create_program (
    
18.    program_name => 'programnew',
    
19.     program_action=> 'procnew',
    
20.     program_type => 'STORED_PROCEDURE',
    
21.     number_of_arguments => 1,
    
22.     enabled => false) ;
    
23. end;
    
24. /
    

复制代码

1. select  * from user_scheduler_program_args;
   
2. 
   
3. begin
   
4.    dbms_scheduler.define_metadata_argument (
   
5.     program_name => 'programnew',
   
6.     argument_position => 1 ,
   
7.    metadata_attribute => 'EVENT_MESSAGE') ;
   
8.   end;
   
9. /
   
10. 
    
11. 
    
12. begin
    
13. dbms_scheduler.enable ('programnew');
    
14. end;
    
15. /

复制代码

1. BEGIN
   
2. sys.dbms_scheduler.create_job(
   
3. job_name => '"HR"."JOB9"',
   
4. program_name => '"HR"."PROGRAMNEW"',
   
5. schedule_name => '"HR"."SCHEDULE4"',
   
6. job_class => '"DEFAULT_JOB_CLASS"',
   
7. auto_drop => FALSE,
   
8. enabled => TRUE);
   
9. END;
   

复制代码