create or replace directory FILE_GEN_DIR as 'c:\FILE_GEN_DIR';

GRANT all ON DIRECTORY FILE_GEN_DIR TO  PUBLIC;


CREATE OR REPLACE PROCEDURE  test_p_write
IS
    f  utl_file.file_type;
BEGIN
    
    f := utl_file.fopen ('FILE_GEN_DIR', 'FILE_GEN_DIR.txt', 'W');

    FOR  r  IN  (  SELECT  *
                   FROM   employee
                )
    LOOP
        utl_file.put_line ( f, r.number0) ;
    END LOOP;

    utl_file.fclose (f);
END  test_p_write;