Print using UTL_FILE

Question

I want to create a function that would return number or boolean type in case of success or failure of file not found at a path. File is a gif image.
Here is my code. Please help.
create or replace function ufile3 (fname varchar2,loc varchar2) return Number As
fhandle utl_file.file_type;
op varchar2(3);
success boolean;
begin
op := 'a';
fhandle := UTL_FILE.FOPEN(loc,fname,'r');
UTL_FILE.Fclose(fhandle);
If True then
return(1);
else
return(0);
end if;
Exception
WHEN utl_file.invalid_path then
dbms_output.put_line ('Invalid Path');
return(0);
WHEN utl_file.invalid_mode then
dbms_output.put_line ('Invalid mode');
return(0);
WHEN utl_file.invalid_operation then
dbms_output.put_line ('Invalid operation');
return(0);
when others then
dbms_output.put_line('Unhandled Error : '||sqlcode);
dbms_output.put_line(sqlerrm);
utl_file.fclose(FHANDLE);
return(0);
End;

Answer 1

Have a look at the 'other' functions within UTL_FILE...
http://download.oracle.com/docs/cd/B19306_01/appdev.102/b14258/u_file.htm#i1003488