20: l_os_user VARCHAR2(30);
21: l_logon_time date;
22: l_module varchar2(48);
23:
24: l_file_handle utl_file.file_type;
25:
26: BEGIN
27:
28: IF g_debug_level is null THEN
41: g_audsid := l_audsid;
42:
43: l_message := '***-new sql session'||l_audsid||'-'||l_sid||'-'||l_serial||'-'||l_user||'-'||l_schema||'-'||
44: l_os_user||l_module||'-'||to_char(l_logon_time, 'DD-MON-YYYY HH24:MI:SS')||'-***';
45: l_file_handle := UTL_FILE.FOPEN(g_debug_file_path, g_debug_file, 'a');
46: UTL_FILE.PUT_LINE (l_file_handle, l_message);
47: END IF;
48:
49: l_message := g_audsid||'-'||to_char(sysdate, 'ddmmyyyy hh24:mi:ss')||'-'||p_message;
42:
43: l_message := '***-new sql session'||l_audsid||'-'||l_sid||'-'||l_serial||'-'||l_user||'-'||l_schema||'-'||
44: l_os_user||l_module||'-'||to_char(l_logon_time, 'DD-MON-YYYY HH24:MI:SS')||'-***';
45: l_file_handle := UTL_FILE.FOPEN(g_debug_file_path, g_debug_file, 'a');
46: UTL_FILE.PUT_LINE (l_file_handle, l_message);
47: END IF;
48:
49: l_message := g_audsid||'-'||to_char(sysdate, 'ddmmyyyy hh24:mi:ss')||'-'||p_message;
50: l_file_handle := UTL_FILE.FOPEN(g_debug_file_path, g_debug_file, 'a');
46: UTL_FILE.PUT_LINE (l_file_handle, l_message);
47: END IF;
48:
49: l_message := g_audsid||'-'||to_char(sysdate, 'ddmmyyyy hh24:mi:ss')||'-'||p_message;
50: l_file_handle := UTL_FILE.FOPEN(g_debug_file_path, g_debug_file, 'a');
51: UTL_FILE.PUT_LINE (l_file_handle, l_message);
52: UTL_FILE.FFLUSH(l_file_handle);
53: UTL_FILE.FCLOSE(l_file_handle);
54: END IF;
47: END IF;
48:
49: l_message := g_audsid||'-'||to_char(sysdate, 'ddmmyyyy hh24:mi:ss')||'-'||p_message;
50: l_file_handle := UTL_FILE.FOPEN(g_debug_file_path, g_debug_file, 'a');
51: UTL_FILE.PUT_LINE (l_file_handle, l_message);
52: UTL_FILE.FFLUSH(l_file_handle);
53: UTL_FILE.FCLOSE(l_file_handle);
54: END IF;
55:
48:
49: l_message := g_audsid||'-'||to_char(sysdate, 'ddmmyyyy hh24:mi:ss')||'-'||p_message;
50: l_file_handle := UTL_FILE.FOPEN(g_debug_file_path, g_debug_file, 'a');
51: UTL_FILE.PUT_LINE (l_file_handle, l_message);
52: UTL_FILE.FFLUSH(l_file_handle);
53: UTL_FILE.FCLOSE(l_file_handle);
54: END IF;
55:
56: EXCEPTION
49: l_message := g_audsid||'-'||to_char(sysdate, 'ddmmyyyy hh24:mi:ss')||'-'||p_message;
50: l_file_handle := UTL_FILE.FOPEN(g_debug_file_path, g_debug_file, 'a');
51: UTL_FILE.PUT_LINE (l_file_handle, l_message);
52: UTL_FILE.FFLUSH(l_file_handle);
53: UTL_FILE.FCLOSE(l_file_handle);
54: END IF;
55:
56: EXCEPTION
57: WHEN OTHERS THEN