PROCEDURE MAKE_CLOB

   (p_rid in NUMBER,

    p_doc in out NOCOPY clob)

   IS

   v_title        varchar2 (200);

   v_buffer       varchar2 (4000);

   v_text_as_blob blob;

BEGIN

    select NOME, TEXT

    into v_title, v_text_as_blob

    from LB_MULTILANG_DOCS where DOC_ID = p_rid;

    v_buffer := '<mytitle>' || v_title || '</mytitle><mytext>';

    Dbms_Lob.write (p_doc, length(v_buffer ), 1, v_buffer);

    Ctx_Doc.Ifilter (v_text_as_blob, p_doc);

    v_buffer := '</mytext>' ;

    Dbms_Lob.writeappend (p_doc, length(v_buffer ),v_buffer);

    EXCEPTION

    WHEN OTHERS THEN

        dbms_output.put_line (SubStr( 'Error '||TO_CHAR (SQLCODE)|| ': '||SQLERRM , 1, 255));

END ;