Debug package: inserts into a test table : Utility Package « PL SQL « Oracle PL / SQL






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

1.stop_watch
2.Debug package
3.Debug package based on UTL_FILE
4.This object type represents a point on a Cartesian grid.
5.Debug package: uses DBMS_OUTPUT.
6.time the performance enhancements of native dynamic SQL.