向数据库添加存储过程

上例子直接说明：

--add by linwei 20130219
--定时删除验证码信息
CREATE OR REPLACE PROCEDURE CLEAR_VALIDATECODE_PRO is
BEGIN
  BEGIN
    --删除系统时间相隔大于5分钟的相关数据信息
    delete from S_VALIDATECODE s where (sysdate - to_date(s.sendtime,'yyyy-mm-dd hh24:mi:ss')) >(5/60/24);     
  EXCEPTION
    --异常处理
    WHEN OTHERS THEN
      ROLLBACK;
  END;
END;

--向数据库添加存储过程执行JOB
DECLARE
  JOB        BINARY_INTEGER;                
  v_begin    DATE;                         
  v_interval VARCHAR2(50);
BEGIN
  v_begin    := SYSDATE;
  v_interval := 'SYSDATE+1/1440';        --每1分钟轮询执行一次  
  DBMS_JOB.SUBMIT(JOB,
                  'CLEAR_S_VALIDATECODE_PRO();',
                  v_begin,
                  v_interval,
                  FALSE,
                  0,
                  FALSE);
  DBMS_OUTPUT.PUT_LINE('JOBno:' || JOB);
  COMMIT;
END;