CREATE OR REPLACE PACKAGE BODY xx_rdbms_debug IS /* * ----------------------------------------------------------------------------- * ObjectName: * XX_RDBMS_DEBUG.bdy * * Referenced by: * * * Usage: * Simple package which can be called for custom code debug. * The procedure calllog will simply insert debug information in a debug table. * * Future addons are on the way. This will become my main package of storing * debug information and creating a debug system for custom code in a Oracle * database. * * History: * Version Date Author(s) Description * ------- ----------- ------------------- ------------------------------------- * 1.0 14-OCT-2007 Johan Louwers Initial Version. * ----------------------------------------------------------------------------- */ PROCEDURE calllog( p_logmessage IN VARCHAR2 ) IS BEGIN INSERT INTO xx_rdbms_debug_log ( debug_date ,debug_info ) VALUES( SYSDATE ,p_logmessage ); COMMIT; END calllog; END xx_rdbms_debug;