ORACLE10 如何使用UTL_FILE包将数据写入文本文件?

Question

用sys用户登陆sysdba
创建一个Directory : CREATE OR REPLACE DIRECTORY FPATH AS 'D:\ORACLE\ORA_OUT'
授权 grant read,write on directory fpath to public;
授权 grant execute on utl_file to 用户名
在“用户名”下创建存储过程
CREATE OR REPLACE PROCEDURE MEC.MEC_P
IS
FL UTL_FILE.FILE_TYPE;BEGIN
  FL := UTL_FILE.FOPEN('FPATH','Doer_Log.TXT','w');
  UTL_FILE.PUT_LINE(FL,TO_CHAR(SYSDATE,'MM-DD HH24:MI:SS') || ' WRITE');
  UTL_FILE.FCLOSE(FL);
EXCEPTION 
  WHEN UTL_FILE.INVALID_PATH THEN 
    DBMS_OUTPUT.PUT_LINE('Error : File Path is invalid.');
  WHEN UTL_FILE.INVALID_MODE THEN 
    DBMS_OUTPUT.PUT_LINE('Error : File mode is invalid.');
  WHEN UTL_FILE.INVALID_OPERATION THEN
    DBMS_OUTPUT.PUT_LINE('Error : File operation is invalid.');
END;