Mega Code Archive
Debug package
<![CDATA[
SQL>
SQL> CREATE TABLE debug_table (
2 linecount NUMBER PRIMARY KEY,
3 debug_str VARCHAR2(200));
Table created.
SQL>
SQL>
SQL> CREATE OR REPLACE PACKAGE Debug AS
2 PROCEDURE Debug(p_Description IN VARCHAR2, p_Value IN VARCHAR2);
3
4 PROCEDURE Reset;
5 END Debug;
6 /
Package created.
SQL>
SQL>
SQL> CREATE OR REPLACE PACKAGE BODY Debug AS
2 PROCEDURE Debug(p_Description IN VARCHAR2,
3 p_Value IN VARCHAR2) IS
4 BEGIN
5 DBMS_OUTPUT.PUT_LINE(p_Description || ': ' || p_Value);
6 END Debug;
7
8 PROCEDURE Reset IS
9 BEGIN
10 DBMS_OUTPUT.DISABLE;
11 DBMS_OUTPUT.ENABLE(1000000);
12 END Reset;
13
14 BEGIN
15 Reset;
16 END Debug;
17 /
Package body created.
SQL>
SQL>
]]>