UTL_FILE

CREATE OR REPLACE
PROCEDURE EMPDTLSTOFILE
AS
  F1 UTL_FILE.FILE_TYPE;
  V_EMPINFO VARCHAR2(1000);
  CURSOR EMPDATA
  IS
    SELECT ENAME
      || ' is working '
      || ' as '
      || job
      || ' since '
      || TO_CHAR(HIREDATE, 'DD/MON/RRRR') AS STMT
    FROM EMP;
BEGIN
  DBMS_OUTPUT.PUT_LINE ('Dhanunjay');
  F1 := SYS.UTL_FILE.FOPEN('DEVDIR', 'EMPINFO.txt', 'A');
      SYS.UTL_FILE.PUT_LINE(F1,sysdate);
  FOR EMPINFO IN EMPDATA
  LOOP
    V_EMPINFO := EMPINFO.STMT;
    DBMS_OUTPUT.PUT_LINE (V_EMPINFO);
    SYS.UTL_FILE.PUT_LINE(F1,V_EMPINFO);
  end LOOP;
   DBMS_OUTPUT.PUT_LINE ('');
  SYS.UTL_FILE.FCLOSE(F1);
END ;