Jeśli jest to możliwe, należy zastąpić wywołania dbms_output.put_line przez własną funkcję.
Oto kod dla tej funkcji WRITE_LOG
- jeśli chcesz mieć możliwość wyboru pomiędzy 2 rozwiązań rejestrowania:
CREATE OR REPLACE PROCEDURE to_dbg_table(p_log varchar2)
-- table mode:
-- requires
-- CREATE TABLE dbg (u varchar2(200) --- username
-- , d timestamp --- date
-- , l varchar2(4000) --- log
--);
AS
pragma autonomous_transaction;
BEGIN
insert into dbg(u, d, l) values (user, sysdate, p_log);
commit;
END to_dbg_table;
/
lub bezpośrednio na serwerze bazy danych, który hostuje bazę danych
używa wówczas procedura Oracle directoryTMP_DIR
CREATE OR REPLACE PROCEDURE to_dbg_file(p_fname varchar2, p_log varchar2)
-- file mode:
-- requires
--- CREATE OR REPLACE DIRECTORY TMP_DIR as '/directory/where/oracle/can/write/on/DB_server/';
AS
l_file utl_file.file_type;
BEGIN
l_file := utl_file.fopen('TMP_DIR', p_fname, 'A');
utl_file.put_line(l_file, p_log);
utl_file.fflush(l_file);
utl_file.fclose(l_file);
END to_dbg_file;
/
WRITE_LOG
WRITE_LOG
, które mogą przełączać się pomiędzy 2 wykorzystuje, albo dezaktywować t o unikać utraty wydajności (g_DEBUG:=FALSE
).
CREATE OR REPLACE PROCEDURE write_log(p_log varchar2) AS
-- g_DEBUG can be set as a package variable defaulted to FALSE
-- then change it when debugging is required
g_DEBUG boolean := true;
-- the log file name can be set with several methods...
g_logfname varchar2(32767) := 'my_output.log';
-- choose between 2 logging solutions:
-- file mode:
g_TYPE varchar2(7):= 'file';
-- table mode:
--g_TYPE varchar2(7):= 'table';
-----------------------------------------------------------------
BEGIN
if g_DEBUG then
if g_TYPE='file' then
to_dbg_file(g_logfname, p_log);
elsif g_TYPE='table' then
to_dbg_table(p_log);
end if;
end if;
END write_log;
/
A oto jak testować wyżej:
1) Uruchom ten (tryb pliku) z SQLPLUS:
BEGIN
write_log('this is a test');
for i in 1..100 loop
DBMS_LOCK.sleep(1);
write_log('iter=' || i);
end loop;
write_log('test complete');
END;
/
2) na serwerze bazy danych, otwórz shell i
tail -f -n500 /directory/where/oracle/can/write/on/DB_server/my_output.log
Mam nadzieję, że nikt nie używa tabel z nazwami kolumn, jak "u, d, l" ... – Obenland
Nazwy @land, tabela i kolumna nie mają znaczenia, czy struktura, którą obsługujesz, jest poprawna. BTW czy kiedykolwiek pracowałeś dla banku z oldskulowymi bazami danych? To jest warte tego. –
Przypuszczam, że miałeś na myśli "gorzej";) – quetzalcoatl