Oracle inside (4)

4.1 compile a debug package (routine)
Create or replace package yang_debug
Procedure out (p_comments in varchar2, p_varible in varchar2 );
Procedure erase;
End yang_debug;
Create or replace package body yang_debug
Procedure out (p_comments in varchar2, p_varible in varchar2) is
L_file utl_file.file_type;
Begin
Rochelle 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
Rochelle 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 call a function
Create or replace procedure assert (
Condition in Boolean,
Message in varchar2)
Begin
If not condition then
Raise_aaplication_error (-20000, message );
End if;
End assert;