存储过程XXXX里面
CREATE OR REPLACE PROCEDURE XXXX
IS
FL UTL_FILE.FILE_TYPE;
CURSOR CSR IS SELECT SQL_TEXT FROM V$SQLAREA;
sSQL varchar2(4000);
BEGIN
FL := UTL_FILE.FOPEN('FPATH','sql_Log.TXT','w');
ILOOP := 0;
FVID := NULL;
OPEN CSR;
LOOP
FETCH CSR INTO sSQL;
EXIT WHEN CSR%NOTFOUND;
UTL_FILE.PUT_LINE(FL,sSQL);
END LOOP;
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;