Как записать в файл отдельно от UTL_FILE

Question

Я написал программу для записи файла в каталог, используя 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?

Answer 1

Вместо этого вы можете создать ВНЕШНЮЮ ТАБЛИЦУ...

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

Answer 2

Почему бы не использовать sqlplus? Создайте простой файл.sql (my_script.sql), содержащий ваш 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 в каталог на сервере по вашему выбору, войдите в Oracle из этого каталога с помощью sqlplus и запустите:

@ my_script.sql

Выходной файл (my_file.csv) будет находиться в каталоге, из которого вы вошли. Сценарий входа в систему sqlplus также можно использовать для автоматизации (вместе с cron или планировщиком задач или другим программным обеспечением для планирования).