在PL/SQL中如何让程序暂停几秒钟

在编写PL/SQL中，有时需要程序中暂停几秒钟再继续执行，查了一下，oracle内置有这个功能dbms_lock.sleep(10)；不过dbms_lock包需要用户自己安装，演示如下：

1. C:\Documents and Settings\andyleng>sqlplus /nolog
2. SQL*Plus: Release 11.2.0.1.0 Production on Thu Nov 10 10:04:56 2011
3. Copyright (c) 1982, 2010, Oracle.  All rights reserved.
4. SQL> conn /as sysdba　　--以SYSDBA身份登陆
5. Connected.
6. SQL> @?/rdbms/admin/dbmslock.sql　--安装系统包
7. Package created.
8. Synonym created.
9. Grant succeeded.
10. SQL> grant execute on dbms_lock to public;　--授权PUBLIC执行权限
11. Grant succeeded.
12. SQL> create table test1(id number,name varchar2(40),time date);   --创建test1临时表
13. Table created.
14. SQL> select * from test1;  --无数据
15. no rows selected
16. SQL> SET TIMING ON  --打开时间显示
17. SQL> begin  --开始执行测试脚本
18. 2    insert into test1(id,name,time) values(1,'Andy',sysdate);
19. 3    DBMS_LOCK.SLEEP(10);  --让程序暂时10秒钟
20. 4    insert into test1(id,name,time) values(2,'Shirley',sysdate);
21. 5    commit;
22. 6  end;
23. 7  /
24. PL/SQL procedure successfully completed.
25. Elapsed: 00:00:10.04  --程序执行时间为10.04秒
26. SQL> SELECT ID,NAME,TO_CHAR(TIME,'YYYY/MM/DD HH24:MI:SS') AS TIME FROM TEST1;　--查询执行结果
27. ID NAME                                     TIME
28. ---------- ---------------------------------------- -------------------
29. 1 Andy                                     2011/11/10 10:09:03   --第一条的插入时间是09:03
30. 2 Shirley                                  2011/11/10 10:10:13   --第二条的插入时间是09:13,刚好比第一条晚了10秒钟
31. Elapsed: 00:00:00.00
32. SQL> drop table test1;
33. Table dropped.

自定义EXCEPTION 和GOTO的用法：

1. -- Create the procedure to loop del users.
2. CREATE OR REPLACE PROCEDURE QA2_ATGCORE_MF.delBigTab
3. AS
4. PRAGMA AUTONOMOUS_TRANSACTION;
5. p_Count   NUMBER := 1000;
6. n_delete number:=0;
7. start_time date:=sysdate;
8. end_time date;
9. var_usergroup number;
10. e_nowait EXCEPTION;--自定义exception
11. PRAGMA EXCEPTION_INIT(e_nowait,-00054);--初使化该exception到“ORA-00054”的错误代码
12. BEGIN
13. <<restart>>--程序标签
14. WHILE 1 = 1
15. LOOP
16. begin
17. var_usergroup:=QA2_ATGCORE_MF.DEL_USERGROUP_SEQ.nextval;
18. EXECUTE IMMEDIATE
19. 'update QA2_ATGCORE_MF.DPS_USER_DEL_TEMP set usergroup_id=:usergroup,del_flag=''1'',del_time=sysdate where del_flag=''0'' and rownum <=:rn'
20. USING var_usergroup,P_COUNT;
21. IF (SQL%NOTFOUND)
22. OR (TO_CHAR (SYSDATE, 'hh24mi') BETWEEN '0600' AND '1200')
23. THEN
24. EXIT;
25. ELSE
26. n_delete:=n_delete + SQL%ROWCOUNT;
27. QA2_ATGCORE_MF.DEL_USERGROUP(var_usergroup);
28. END IF;
29. COMMIT;
30. EXCEPTION
31. WHEN e_nowait THEN
32. DBMS_LOCK.SLEEP(2););--出现ORA-00054的错误时先等待2秒钟
33. DBMS_OUTPUT.PUT_LINE(TO_CHAR(SYSDATE,'YYYY/MM/DD HH24:MI:SS')||SQLCODE||':'||SQLERRM||' I am go to restart' );
34. GOTO restart;--出现ORA-00054的错误时跳转到restart处重新执行该程序
35. WHEN OTHERS THEN
36. ROLLBACK;
37. RAISE;
38. END;
39. END LOOP;
40. COMMIT;
41. end_time:=sysdate;
42. DBMS_OUTPUT.PUT_LINE('***************************************************************************');
43. DBMS_OUTPUT.PUT_LINE('Totally delete '||to_char(n_delete)||' users! Used time:'||numtodsinterval (end_time-start_time,'DAY'));
44. DBMS_OUTPUT.PUT_LINE('***************************************************************************');
45. END;
46. /