Text File Generation

Declare
   f     text_io.file_type;
   v_f   VARCHAR2 (100);
   V_count number(10);
   CURSOR c
   IS
        select EMPLOYEE_ID, FIRST_NAME, LAST_NAME, EMAIL,
        PHONE_NUMBER, HIRE_DATE, JOB_ID, SALARY,
        COMMISSION_PCT, MANAGER_ID, DEPARTMENT_ID
        from EMPLOYEES
        ;
           
   i c%rowtype;
   v_TotRow number;
  
   v_length number;
   v_BarMaxLen number := 665;

BEGIN

    f := text_io.fopen ('F:\GEN_TEXT.txt', 'w');
    --f := text_io.fopen (:crq2.TXT_GENTEXT, 'w');
   
    open c;
   
    Loop

        Fetch c into i;
        exit when c%notfound;

      text_io.put_line (f,
                           I.EMPLOYEE_ID
                        ||','  
                        || I.FIRST_NAME
                        ||','
                        || I.LAST_NAME
                        || ','
                        || i.EMAIL
                        || ','
                        || I.PHONE_NUMBER
                        || ','
                        || I.JOB_ID
                        ||','
                        ||I.HIRE_DATE
                        ||','
                        ||I.SALARY
                        ||','
                        ||I.COMMISSION_PCT
                        ||','
                        ||I.MANAGER_ID
                        ||','
                        ||I.DEPARTMENT_ID
                        );
                      
  -- :S_TOT_ROWS := 'Exported '||c%rowcount||' / '||v_TotRow;
     SYNCHRONIZE;
     
   --next_record;
  End Loop;
 
  close c;

    text_io.fclose (f);

  SYNCHRONIZE;
     
    MSGBOX ('The Text File has generated successfully!');

    :BLOCK2.TEXT := 'The Text File has generated successfully';

    --:System.Message_Level := 5;
       ---Execute_Query;
    --:System.Message_Level := 0;

   
EXCEPTION
 WHEN OTHERS THEN MSGBOX(sQLERRM);
END;