Слияние varchars в один CLOB - PullRequest
Новая
       52

Слияние varchars в один CLOB

0 голосов
/ 16 мая 2019

У меня есть следующая процедура для объединения 10 переменных varchar длиной 4000 символов в один CLOB: 

  procedure insert_iec_by_parts(p_header_id in number,
                       p_contents_part1 in varchar2,
                       p_contents_part2 in varchar2,
                       p_contents_part3 in varchar2,
                       p_contents_part4 in varchar2,
                       p_contents_part5 in varchar2,
                       p_contents_part6 in varchar2,
                       p_contents_part7 in varchar2,
                       p_contents_part8 in varchar2,
                       p_contents_part9 in varchar2,
                       p_contents_part10 in varchar2,


                       o_cur_results out sys_refcursor,
                       result_code out number) is

l_clob clob;

begin

l_clob:=p_contents_part1||p_contents_part2||p_contents_part3||p_contents_part4||p_contents_part5||
        p_contents_part6||p_contents_part7||p_contents_part8||p_contents_part9||p_contents_part10;

insert_iec(p_header_id, l_clob, o_cur_results, result_code );

end;


  procedure insert_iec(p_header_id in number,
                       p_contents in clob,
                       o_cur_results out sys_refcursor,
                       result_code out number) is

    id_temp number;
    l_id number;

  procedure SetError(pErrCode number) is

  -- A centralised sub proc could allow for a quick change to raise_application_error at any time.

  begin

    result_code   := pErrCode;


  end;

  begin

  select count(*) into l_id from log_sync_calls_headers
where log_sync_calls_headers.id =p_header_id;

  case

    when (p_header_id is null) or (l_id <= 0)     then SetError(9804);
    when p_contents is null then SetError(9805);

        else

      -- fetch sequence number

   id_temp := iec_seq.nextval;

         result_code:=0;

      open o_cur_results for    
      select id_temp as id
      from dual;

           insert into log_sync_calls_iecs
       (id, header_id, contents)
       values
       (id_temp, p_header_id, p_contents );


      commit;
  end case;  

            exception      when others then
        result_code :=9701;
        rollback;
        pkg_common.insert_log_record(p_source => 'insert_iec',
                p_type => 'Er',
                p_message => sqlerrm);    



end;

Процедура отлично работает при объединении 10 переменных varchar по 4000 символов каждая. Однако я хочу расширить его до 20 переменных varchar длиной 4000 символов.

Когда я пытаюсь это сделать, выдается следующая ошибка: 

ORA 06502: character string buffer too small.

Может кто-нибудь показать мне, как можно расширить эту процедуру до 20 переменных varchar длиной 4000 символов?

Ответы [ 2 ]

0 голосов
/ 16 мая 2019

вы должны использовать пакет DBMS_LOB.

сначала вы должны создать объект clob, иначе ваша переменная не инициализируется 

dbms_lob.createtemporary(l_clob ,true);

, теперь вы можете использовать append процедуру 

dbms_lob.append(l_clob, p_contents_part1 );

после того, как вы закончите, не забудьте освободить память сгустка и уничтожить объект сгустка 

dbms_lob.freetemporary(l_clob);
0 голосов
/ 16 мая 2019

Используйте функцию DBMS_LOB.APPEND, как в этом вопросе (или просто ищите DBMS_LOB.APPEND в SO): как вставить длинную строку сабл или блоб

...