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;