Error in writing to a file

Question

Hi,
I need to create write in a file using PL/SQL. i have created one procedure. the file is being created. But no contents are appended in the file
Create or Replace procedure CTL_TABLE_SPOOL as
v_file utl_file.file_type;
fname varchar2(200);
cursor c1 is
select * from hr.jobs;
begin
fname:='fr_ready_'||to_char(sysdate,'MMDDYYYY')||'.csv';
v_file := utl_file.fopen('ID_FR_DIR',fname,'w');
for r1 in c1 loop
utl_file.put_line(v_file,r1.JOB_ID||'|'||r1.JOB_TITLE||'|'||r1.MIN_SALARY||'|'||r1.MAX_SALARY);
end loop;
end;
Can you please tell me where i am doing the mistake.
Regards,
Ashish

Answer 1

try adding after the end loop the
    end loop;
    utl_file.fclose(v_file);
  end;