Utl_file.open_file question to check if a file exists and is not empty

Question

Hello,
I am trying to write a code where in 3 seperate files are created based on some parameter condition for the extract call.
Say the parameters are NULL, 'A' and 'B'.
When Null condition is passed to the extract call then it should create file A and B if records are found. If not it should create empty files.
It is possible that the parameter to the extract is just 'A' then it would create A with say non zero file and B with zero file.
Now when the extract is called with 'B' parameter and if the file A already exists and is not empty then I should not touch/overwrite it with empty records.
Is there any simple way that I can do this to check if a file exists and is non empty?
I am using
open_file
( gv_utl_file_path
,lv_file_name
,lv_file_handle
Please help.
Thanks

Answer 1

@OP : No Need to open
SQL> declare
  2   lb_file_exist boolean;
  3   ln_size number;
  4   ln_block_size number;
  5  begin
  6   sys.utl_file.fgetattr('TEST_DIR','a.txt',lb_file_exist,ln_size,ln_block_size);
  7   if lb_file_exist then
  8    dbms_output.put_line('a Exists');
  9    dbms_output.put_line(to_char(ln_size));
10   else
11    dbms_output.put_line('a Not Exists');
12   end if;
13   sys.utl_file.fgetattr('TEST_DIR','b.txt',lb_file_exist,ln_size,ln_block_size);
14   if lb_file_exist then
15    dbms_output.put_line('b Exists');
16    dbms_output.put_line(to_char(ln_size));
17   else
18    dbms_output.put_line('b Not Exists');
19   end if;
20   sys.utl_file.fgetattr('TEST_DIR','c.txt',lb_file_exist,ln_size,ln_block_size);
21   if lb_file_exist then
22    dbms_output.put_line('c Exists');
23    dbms_output.put_line(to_char(ln_size));
24   else
25    dbms_output.put_line('c Not Exists');
26   end if;
27  end;
28  /
a Exists
0
b Exists
3
c Not Exists
PL/SQL procedure successfully completed.Edited by: jeneesh on Mar 30, 2012 1:21 AM