procedure GetCRCFile() is
   ret integer:=- 1  ;
   fil bfile ;
  begin
   fil:=bfilename('VIPISKA','81121101.MRC') ;  --VIPISKA - объек Directory, который указывает на с сетевой путь O:\... и т.д.
 

   ret:=dbms_lob.fileexists(fil);
   
   if ret= 1  then
    dbms_output.put_line('File 1 exists');
   else
    dbms_output.put_line('File 1 not exists');
   end if ;

   dbms_lob.fileopen(fil,dbms_lob.file_readonly) ;
   ret:=dbms_lob.fileisopen(fil);   
   
   if ret= 1  then
    dbms_output.put_line('File is open') ;
   end if ;

   dbms_lob.fileclose(fil) ;
  end ;