12:
13: if (g_log_file_name is null) then
14: select ltrim(rtrim(value))
15: into g_log_file_dir
16: from (select value from v$parameter2 where name='utl_file_dir'
17: order by rownum desc)
18: where rownum <2;
19: g_log_file_name := 'mscsda-1.txt';
20: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'w');
16: from (select value from v$parameter2 where name='utl_file_dir'
17: order by rownum desc)
18: where rownum <2;
19: g_log_file_name := 'mscsda-1.txt';
20: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'w');
21: end if;
22:
23: if (utl_file.is_open(g_log_file_handle)) then
24: utl_file.put_line(g_log_file_handle, p_msg);
19: g_log_file_name := 'mscsda-1.txt';
20: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'w');
21: end if;
22:
23: if (utl_file.is_open(g_log_file_handle)) then
24: utl_file.put_line(g_log_file_handle, p_msg);
25: utl_file.fflush(g_log_file_handle);
26: utl_file.fclose(g_log_file_handle);
27: else
20: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'w');
21: end if;
22:
23: if (utl_file.is_open(g_log_file_handle)) then
24: utl_file.put_line(g_log_file_handle, p_msg);
25: utl_file.fflush(g_log_file_handle);
26: utl_file.fclose(g_log_file_handle);
27: else
28: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'a');
21: end if;
22:
23: if (utl_file.is_open(g_log_file_handle)) then
24: utl_file.put_line(g_log_file_handle, p_msg);
25: utl_file.fflush(g_log_file_handle);
26: utl_file.fclose(g_log_file_handle);
27: else
28: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'a');
29: utl_file.put_line(g_log_file_handle, p_msg);
22:
23: if (utl_file.is_open(g_log_file_handle)) then
24: utl_file.put_line(g_log_file_handle, p_msg);
25: utl_file.fflush(g_log_file_handle);
26: utl_file.fclose(g_log_file_handle);
27: else
28: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'a');
29: utl_file.put_line(g_log_file_handle, p_msg);
30: utl_file.fflush(g_log_file_handle);
24: utl_file.put_line(g_log_file_handle, p_msg);
25: utl_file.fflush(g_log_file_handle);
26: utl_file.fclose(g_log_file_handle);
27: else
28: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'a');
29: utl_file.put_line(g_log_file_handle, p_msg);
30: utl_file.fflush(g_log_file_handle);
31: utl_file.fclose(g_log_file_handle);
32: end if;
25: utl_file.fflush(g_log_file_handle);
26: utl_file.fclose(g_log_file_handle);
27: else
28: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'a');
29: utl_file.put_line(g_log_file_handle, p_msg);
30: utl_file.fflush(g_log_file_handle);
31: utl_file.fclose(g_log_file_handle);
32: end if;
33:
26: utl_file.fclose(g_log_file_handle);
27: else
28: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'a');
29: utl_file.put_line(g_log_file_handle, p_msg);
30: utl_file.fflush(g_log_file_handle);
31: utl_file.fclose(g_log_file_handle);
32: end if;
33:
34: exception
27: else
28: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'a');
29: utl_file.put_line(g_log_file_handle, p_msg);
30: utl_file.fflush(g_log_file_handle);
31: utl_file.fclose(g_log_file_handle);
32: end if;
33:
34: exception
35: when others then