4.1 編寫DEBUG 程序包(例程)
CREATE OR REPLACE PACKAGE yang_debug AS
PROCEDURE out(p_comments IN VARCHAR2, p_varible IN VARCHAR2);
PROCEDURE Erase;
END yang_debug;
CREATE OR REPLACE PACKAGE BODY yang_debug AS
PROCEDURE out(p_comments IN VARCHAR2, p_varible IN VARCHAR2) IS
l_file UTL_FILE.FILE_TYPE;
BEGIN
l_file := UTL_FILE.FOPEN('d:/test', 'debug.log', 'a');
UTL_FILE.PUT_LINE(l_file, TO_CHAR(sysdate, 'yyyy-mm-dd 24HH:MM:SS ') ||
',Comment: ' || p_comments || ', Varible: ' || p_varible);
UTL_FILE.FCLOSE(l_file);
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('ERROR:' || TO_CHAR(SQLCODE) || SQLERRM);
NULL;
END out;
PROCEDURE Erase IS
l_file UTL_FILE.FILE_TYPE;
BEGIN
l_file := UTL_FILE.FOPEN('d:/test', 'debug.log', 'w');
UTL_FILE.FCLOSE(l_file);
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('ERROR:' || TO_CHAR(SQLCODE) || SQLERRM);
NULL;
END Erase;
END yang_debug;
/
4.2 調用函數
CREATE OR REPLACE PROCEDURE assert(
condition IN BOOLEAN,
message IN VARCHAR2 ) AS
BEGIN
IF NOT condition THEN
RAISE_AAPLICATION_ERROR(-20000, message);
END IF;
END assert;

轉載于:https://www.cnblogs.com/Mayvar/archive/2011/08/02/wanghonghua_201108021109.html

總結

以上是生活随笔為你收集整理的oracle inside(4)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。