Debug package: inserts into a test table
SQL>
SQL> CREATE TABLE debug_table (
2 linecount NUMBER PRIMARY KEY,
3 debug_str VARCHAR2(200));
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> CREATE OR REPLACE PACKAGE BODY Debug AS
2 v_LineCount NUMBER;
3
4 PROCEDURE Debug(p_Description IN VARCHAR2, p_Value IN VARCHAR2) IS
5 BEGIN
6 INSERT INTO debug_table (linecount, debug_str)
7 VALUES (v_LineCount, p_Description || ': ' || p_Value);
8 COMMIT;
9 v_LineCount := v_LineCount + 1;
10 END Debug;
11
12 PROCEDURE Reset IS
13 BEGIN
14 v_LineCount := 1;
15 DELETE FROM debug_table;
16 END Reset;
17
18 BEGIN
19 Reset;
20 END Debug;
21 /
Package body created.
SQL>
SQL> drop table debug_table;
Table dropped.
SQL>
SQL>
Related examples in the same category