Procedure creating zero bytes file

Hi,

The following procedure is creating output file in zero bytes size.This procedure reads file from input and create o/p file

/idx/DB/TraceFiles/TRACE_EXTRACT> ls -lart
total 32
drwxr-xr-x    8 PDB dba             256 Nov 14 13:41 ../
-rw-r--r--    1 PDB dba            8903 Nov 14 13:45 16.txt
-rw-r--r--    1 PDB dba            3405 Nov 14 14:50 try_trc.txt
drwxrwxrwx    2 PDB dba             256 Nov 15 14:44 ./

SQL> set serveroutput on

SQL> CREATE OR REPLACE PROCEDURE read_file (in_file VARCHAR2)
  2  AS
  3     f         UTL_FILE.file_type;
  4     outfile   UTL_FILE.file_type;
  5     s         VARCHAR2 (32000);
  6     vtext     VARCHAR2 (22000);
  7     RESULT    VARCHAR2 (30000);
  8     temp      VARCHAR2 (32000);
  9     grep      VARCHAR2 (100);
 10  BEGIN
 11     f := UTL_FILE.fopen ('TRACE_EXTRACT', in_file, 'R');
 12     outfile := UTL_FILE.fopen ('TRACE_EXTRACT', 'tabnames.txt', 'W');