DECLARE   

  AFILE VARCHAR2(20);
  OUT_FILE TEXT_IO.FILE_TYPE;            
  CURSOR C1 IS 
  SELECT EMP_NAME            LAST_NAME,
         EMP_SEX              SEX,
         TO_CHAR(EMP_DOB,'DD-MON-YYYY')        DATE_OF_BIRTH,
         EMP_NO              EMPLOYEE_NUMBER,
         EMP_DEPT            DEPARTMENT_NUMBER,
         EMP_BANKNR            BANK_CODE,
         EMP_BANKACC_TYPE          ACCOUNT_TYPE
  FROM EMPLOYEEMASTERTB
  ORDER BY EMP_NO;
  
BEGIN                

  IF Text_IO.Is_Open(out_file) THEN
    Text_IO.Fclose(out_file);
  END IF;                      
  AFILE  :=TO_CHAR(SYSDATE,'YYYYMMDDHHMISS');      
  out_file := Text_IO.Fopen('C:\USR\TMP\AMRUT'||AFILE||'.CSV', 'W');          
  
  FOR I IN C1 LOOP 
     
    Text_IO.Put_Line(out_file,
                     (I.LAST_NAME||'|'||
                      I.SEX||'|'||
                      I.DATE_OF_BIRTH||'|'||
                      I.EMPLOYEE_NUMBER||'|'||
                      I.DEPARTMENT_NUMBER||'|'||
                      I.BANK_CODE||'|'||
                      I.ACCOUNT_TYPE));  
        
  END LOOP;  
  
  Text_IO.Fclose (out_file);
  HOST('C:\WINDOWS\NOTEPAD.EXE C:\usr\tmp\AMRUT'||AFILE||'.CSV');  

END;