oracle中存储过程把表导出txt文件

create or replace directory MY_DIR as 'D:\MY_DIR\';
grant read,write on directory MY_DIR to adm;
select * from dba_directories;

CREATE OR REPLACE PROCEDURE pro_exportTxt_SIEM IS
export_handle UTL_FILE.file_type;
BEGIN
export_handle := UTL_FILE.FOPEN('MY_DIR', 'test.txt', 'w');
UTL_FILE.PUT_LINE(export_handle,
'ADUSER,EMPLID,NAMES,DESCR254,POSN_DESCR,STATUS,LEAD_EMPLOYEE,LEAD_NAMES,lead_ADuser');
FOR x IN (SELECT * FROM v_ad_ehr_siem) LOOP
UTL_FILE.PUT_LINE(export_handle,
x.aduser || ',' || x.emplid || ',' || x.names || ',' ||
x.descr254 || ',' || x.posn_descr || ',' || x.status || ',' ||
x.lead_employee || ',' || x.lead_names || ',' ||
x.lead_aduser);
END LOOP;
UTL_FILE.FCLOSE(export_handle);
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE(SUBSTR(SQLERRM, 1, 2000));
END;