3:
4: procedure pnutlput (dir in varchar2, file in varchar2, buff in varchar2) is
5:
6: begin
7: v_handle := utl_file.fopen(dir, file, 'w');
8:
9: utl_file.put_line(v_handle, buff);
10: utl_file.fflush(v_handle);
11: utl_file.fclose(v_handle);
5:
6: begin
7: v_handle := utl_file.fopen(dir, file, 'w');
8:
9: utl_file.put_line(v_handle, buff);
10: utl_file.fflush(v_handle);
11: utl_file.fclose(v_handle);
12:
13: exception
6: begin
7: v_handle := utl_file.fopen(dir, file, 'w');
8:
9: utl_file.put_line(v_handle, buff);
10: utl_file.fflush(v_handle);
11: utl_file.fclose(v_handle);
12:
13: exception
14: when utl_file.invalid_path then
7: v_handle := utl_file.fopen(dir, file, 'w');
8:
9: utl_file.put_line(v_handle, buff);
10: utl_file.fflush(v_handle);
11: utl_file.fclose(v_handle);
12:
13: exception
14: when utl_file.invalid_path then
15: raise_application_error(-20100, '-- pnutlput: invalid path');
10: utl_file.fflush(v_handle);
11: utl_file.fclose(v_handle);
12:
13: exception
14: when utl_file.invalid_path then
15: raise_application_error(-20100, '-- pnutlput: invalid path');
16:
17: when utl_file.invalid_mode then
18: raise_application_error(-20101, '-- pnutlput: invalid mode');
13: exception
14: when utl_file.invalid_path then
15: raise_application_error(-20100, '-- pnutlput: invalid path');
16:
17: when utl_file.invalid_mode then
18: raise_application_error(-20101, '-- pnutlput: invalid mode');
19:
20: when utl_file.invalid_filehandle then
21: raise_application_error(-20102, '-- pnutlput: invalid filehandle');
16:
17: when utl_file.invalid_mode then
18: raise_application_error(-20101, '-- pnutlput: invalid mode');
19:
20: when utl_file.invalid_filehandle then
21: raise_application_error(-20102, '-- pnutlput: invalid filehandle');
22:
23: when utl_file.invalid_operation then
24: raise_application_error(-20103, '-- pnutlput: invalid operation');
19:
20: when utl_file.invalid_filehandle then
21: raise_application_error(-20102, '-- pnutlput: invalid filehandle');
22:
23: when utl_file.invalid_operation then
24: raise_application_error(-20103, '-- pnutlput: invalid operation');
25:
26: when utl_file.write_error then
27: raise_application_error(-20104, '-- pnutlput: write error');
22:
23: when utl_file.invalid_operation then
24: raise_application_error(-20103, '-- pnutlput: invalid operation');
25:
26: when utl_file.write_error then
27: raise_application_error(-20104, '-- pnutlput: write error');
28:
29: when utl_file.internal_error then
30: raise_application_error(-20105, '-- pnutlput: internal_error');
25:
26: when utl_file.write_error then
27: raise_application_error(-20104, '-- pnutlput: write error');
28:
29: when utl_file.internal_error then
30: raise_application_error(-20105, '-- pnutlput: internal_error');
31:
32: end;
33: