CREATE TABLE MY_DOC
   ( ID NUMBER PRIMARY KEY, 
  FILE_NAME VARCHAR2(255 BYTE), 
  UPLOAD_DATE VARCHAR2(10 BYTE), 
  FILESIZE VARCHAR2(20 BYTE), 
  FILETYPE VARCHAR2(5 BYTE), 
  CONTENT BFILE, 
  CREATION_DATE DATE DEFAULT sysdate NOT NULL ENABLE, 
  MODIFICATION_DATE DATE, 
  ACCESSED_DATE DATE, 
  )
  CREATE INDEX MY_DOC_IDX ON MY_DOC (CONTENT) 
   INDEXTYPE IS CTXSYS.CONTEXT ;

CREATE OR REPLACE PROCEDURE displayBFILE_proc(p_file_name VARCHAR2) IS 
   Lob_loc  BFILE; 
   Buffer   RAW(1024); 
   Amount   BINARY_INTEGER := 1024; 
   Position INTEGER        := 1; 
BEGIN 
   /* Select the LOB: */ 
   SELECT content INTO Lob_loc 
   FROM My_Doc WHERE file_name = p_file_name ; 
   /* Opening the BFILE: */ 
   DBMS_LOB.OPEN (Lob_loc, DBMS_LOB.LOB_READONLY); 
   LOOP 
      DBMS_LOB.READ (Lob_loc, Amount, Position, Buffer); 
      /* Display the buffer contents: */ 
      DBMS_OUTPUT.PUT_LINE(utl_raw.cast_to_varchar2(Buffer)); 
      Position := Position + Amount; 
   END LOOP; 
   /* Closing the BFILE: */ 
   DBMS_LOB.CLOSE (Lob_loc); 
   EXCEPTION 
   WHEN NO_DATA_FOUND THEN 
      DBMS_OUTPUT.PUT_LINE('End of data'); 
END;