PROCEDURE Processfileid (file_id_in IN VARCHAR2,
                         noofrec    IN PLS_INTEGER)
IS
  CURSOR RECORD IS
    SELECT cmd_string
    FROM   &schema..&batchfileentry
    WHERE  file_id = file_id_in;
  limit_in PLS_INTEGER DEFAULT 10000;
  TYPE record_tt
    IS TABLE OF RECORD%ROWTYPE INDEX BY PLS_INTEGER;
  l_record RECORD_TT;
  fileid   utl_file.file_type;
BEGIN
  dbms_lob.Createtemporary(l_record, true);

  fileid := utl_file.Fopen (mdsp.filecreationdirectory, file_id_in, 'W');

  utl_file.Putf (fileid, mdsp.codeoffcs
                         ||mdsp.codeoffgs, mdsp.padding);

  OPEN eptrecord;

  LOOP
      FETCH RECORD BULK COLLECT INTO l_record LIMIT limit_in;

      FOR indx IN 1 .. l_record.COUNT LOOP
          utl_file.Put_line(fileid, L_record(indx).cmd_string);
      END LOOP;

      EXIT WHEN RECORD%notfound;
  END LOOP;

  CLOSE RECORD;

  utl_file.Fclose (fileid);
EXCEPTION
  WHEN OTHERS THEN
             IF utl_file.Is_open(fileid) THEN
               utl_file.Fclose (fileid);
             END IF;

             IF RECORD%isopen THEN
               CLOSE RECORD;
             END IF;

             RAISE;
END processfileid;