54: l_file_name := g_file_name || '.a03';
55:
56: g_file_type := utl_file.fopen(TEMP_DIR,l_file_name,'w');
57:
58: hr_utility.trace('utl_file.fopen :' || l_path);
59: exception when others then
60: hr_utility.set_location('Leaving....' || l_name,999);
61: fnd_message.raise_error;
62: end open;
56: g_file_type := utl_file.fopen(TEMP_DIR,l_file_name,'w');
57:
58: hr_utility.trace('utl_file.fopen :' || l_path);
59: exception when others then
60: hr_utility.set_location('Leaving....' || l_name,999);
61: fnd_message.raise_error;
62: end open;
63:
64: procedure put(p_char in varchar2) is
69: --utl_file.put(g_file_type,convert(p_char,'US7ASCII',c_source_cset));
70:
71: /*utl_file.put(g_file_type,p_char);*/
72: utl_file.put_line(g_file_type,p_char,true);
73: hr_utility.trace('utl_file.put :' || p_char);
74:
75: exception when others then
76: hr_utility.set_location('Leaving....' || l_name,999);
77: fnd_message.raise_error;
72: utl_file.put_line(g_file_type,p_char,true);
73: hr_utility.trace('utl_file.put :' || p_char);
74:
75: exception when others then
76: hr_utility.set_location('Leaving....' || l_name,999);
77: fnd_message.raise_error;
78: end put;
79:
80: procedure close is
85:
86:
87: utl_file.fclose(g_file_type);
88:
89: hr_utility.trace('utl_file.fclose state mag file closed ');
90: exception when others then
91: hr_utility.set_location('Leaving....' || l_name,999);
92: fnd_message.raise_error;
93: end close;
87: utl_file.fclose(g_file_type);
88:
89: hr_utility.trace('utl_file.fclose state mag file closed ');
90: exception when others then
91: hr_utility.set_location('Leaving....' || l_name,999);
92: fnd_message.raise_error;
93: end close;
94:
95: END write_audit;