1

我编写了一个程序来使用 utl_file 将文件写入目录。

示例脚本:

PROCEDURE XX_FILE_TRANS (X_RETCODE VARCHAR2,X_ERRBUF VARCHAR2)
IS

CURSOR ORG_CUR IS
SELECT
'"'||XTRO.IDENTIFIER||'","'||
XTRO.ORGANIZATION_CODE||'","'||
XTRO.NAME ||'","'||
XTRO.PARENT_CODE ||'","'||
XTRO.INDUSTARY_NUMBER ||'","'||
XTRO.STATUS||'","'||
XTRO.SEQUENCE||'"' "ORG_DATA"
FROM abc XTRO;


ORG_REC ORG_CUR%rowtype;

begin
begin
         delete XXHCM.XXHR_TAL_REC_ORGANIZATION_hist
    where     1 = 1
          AND creation_date < TRUNC (SYSDATE - 60);

         COMMIT;
      EXCEPTION
         when OTHERS
         then
            null;
      end;


LOAD_archive_TABLE; -- call the history table procedure
DBMS_OUTPUT.PUT_LINE('start');
  fileHandler := UTL_FILE.FOPEN('INTF_DIR_INBOUND', LC_OLF_ORG, 'W');
  UTL_FILE.put_line(fileHandler, 'Identifier,OrgCode,OrgName,ParentCode,IndustryNumber,StatusDescription,Sequence');


  FOR ORG_REC IN ORG_CUR
  LOOP
             UTL_FILE.put_line(fileHandler,ORG_REC.ORG_DATA);
  END LOOP;

  UTL_FILE.FCLOSE(fileHandler);
dbms_output.put_line('end');
EXCEPTION
 WHEN UTL_FILE.INVALID_PATH THEN
           FND_FILE.PUT_LINE(FND_FILE.LOG,'    Invalid File Path');
            UTL_FILE.FCLOSE(fileHandler);
            dbms_output.put_line('1'||sqlerrm);
         WHEN UTL_FILE.WRITE_ERROR THEN
           FND_FILE.PUT_LINE(FND_FILE.LOG,'    Write Permission on  does not exist');
            UTL_FILE.FCLOSE(fileHandler);
            dbms_output.put_line('2'||sqlerrm);
         WHEN UTL_FILE.INVALID_MODE THEN
            FND_FILE.PUT(FND_FILE.LOG,'THE INVALID MODE OF DATA FILE');
            UTL_FILE.FCLOSE(fileHandler);
            dbms_output.put_line('3'||sqlerrm);
         WHEN UTL_FILE.INVALID_OPERATION THEN
            FND_FILE.PUT(FND_FILE.LOG,' THE FILE CANNOT BE OPENED AS REQUESTED.');
            UTL_FILE.FCLOSE(fileHandler);
            dbms_output.put_line('4'||sqlerrm);
         WHEN UTL_FILE.INVALID_MAXLINESIZE THEN
            FND_FILE.PUT(FND_FILE.LOG,'THE SPECIFIED MAXIMUM LINE SIZE IS TOO LARGE OR TOO SMALL.');
            UTL_FILE.FCLOSE(fileHandler);
            dbms_output.put_line('5'||sqlerrm);
         WHEN UTL_FILE.ACCESS_DENIED THEN
            FND_FILE.PUT(FND_FILE.LOG,'ACCESS TO THE DIRECTORY OBJECT IS DENIED.');
            FND_FILE.PUT(FND_FILE.LOG,'OPERATING SYSTEM ERROR OCCURED DURING THE WRITE OPERATION.');
            UTL_FILE.FCLOSE(fileHandler);
            dbms_output.put_line('6'||sqlerrm);
         WHEN UTL_FILE.CHARSETMISMATCH  THEN
            FND_FILE.PUT(FND_FILE.OUTPUT,'THIS FILE IS OPEN FOR NCHAR DATA.');
            UTL_FILE.FCLOSE(fileHandler);
            dbms_output.put_line('7'||sqlerrm);
END;

现在我拥有的服务器不是数据库服务器,因为我不能使用 UTL_FILE。除了 UTL_FILE 之外,你还有其他方式写入文件吗?

4

2 回答 2

0

为什么不使用 sqlplus?创建一个包含您的 SQL 的简单 .sql 文件 (my_script.sql),其中包含一些 SET 命令,例如:

SET FEEDBACK OFF;
SET ECHO OFF;
SET TERM OFF;
SET serveroutput on size unlimited;
SET linesize 30000
SET pagesize 0
SET head off
SET trims on
SET verify off

WHENEVER SQLERROR EXIT SQL.SQLCODE
SPOOL my_file.csv;

select 
'MY_NUMBER_FIELD1,'||
'MY_VARCHAR_FIELD2,'||
'MY_VARCHAR_FIELD3'
from dual
UNION ALL
select
COL1||','||
'"'||replace(COL2, '"','""')||'",'||
'"'||replace(COL3, '"','""')||'"'
from MY_TABLE
/

根据需要修改 SQL。将该 sql 文件放在您选择的服务器上的目录中,使用 sqlplus 从该目录登录到 Oracle,然后运行:

@my_script.sql

输出文件 (my_file.csv) 将位于您登录的目录中。sqlplus 登录脚本也可用于自动化操作(与 cron 或任务调度程序或其他调度软件一起)。

于 2016-07-01T14:47:09.127 回答
0

您可以改为创建一个外部表...

https://docs.oracle.com/cd/B19306_01/server.102/b14215/et_concepts.htm

于 2016-07-01T14:05:07.023 回答