PACKAGE BODY: APPS.PNUTLPKG

Source

1 package body pnutlpkg as
2   -- $Header: PNUTLPKB.pls 115.8 2002/01/16 15:01:57 pkm ship    $
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);
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');
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');
28 
29   when utl_file.internal_error then
30     raise_application_error(-20105, '-- pnutlput: internal_error');
31 
32 end;
33 
34 end;