CREATEORREPLACEPROCEDURE Proc_Web_Clearviewstate IS /**//****************************************************************************** NAME: PROC_WEB_CLEARVIEWSTATE PURPOSE: REVISIONS: Ver Date Author Description --------- ---------- --------------- ------------------------------------ 1.0 2006-08-10 1. Created this procedure. NOTES: 删除过期的页面状态 Automatically available Auto Replace Keywords: Object Name: PROC_WEB_CLEARVIEWSTATE Sysdate: 2006-08-10 Date and Time: 2006-08-10, 14:54:17, and 2006-08-10 14:54:17 Username: (set in TOAD Options, Procedure Editor) Table Name: Web_ViewState Author: wwwfind ******************************************************************************/ BEGIN DELETE WEB_VIEWSTATE WHERE Create_Dte<(SYSDATE -1/48); //半个小时前的数据 COMMIT; EXCEPTION WHEN NO_DATA_FOUND THEN NULL; WHEN OTHERS THEN -- Consider logging the error and then re-raise RAISE; END Proc_Web_Clearviewstate; /
建立JOB
DECLARE X NUMBER; BEGIN SYS.DBMS_JOB.SUBMIT ( job => X ,what =>'PROC_WEB_CLEARVIEWSTATE;' ,next_date => to_date('02-09-2006 17:38:42','dd/mm/yyyy hh24:mi:ss') ,interval =>'SYSDATE+30/1440 ' ,no_parse => FALSE ); END; /