Oracle 如何从游标动态写入CLOB数据

嗨，
我是这个论坛的新手。我正在开发一个电子邮件程序，该程序基于4个不同的查询发送4个附件。示例:
附件1:

v_rows CLOB;
For i in (select EMPNO, EMPNAME, EMPADDR from emp where dept = 10)
LOOP
   v_rows := v_rows
                     || i.EMPNO
                     || ','
                     || i.EMPNAME
                     || ','
                     || i.EMPADDR
                     || UTL_TCP.crlf;

END LOOP;

附件2

v_rows := NULL;
For i in (select DEPTNO, DEPTNAME from DEPT where DEPT > 10)
LOOP
   v_rows := v_rows
                     || i.DEPTNO
                     || ','
                     || i.DEPTNAME
                     || UTL_TCP.crlf;

END LOOP;

依此类推，最大4个附件
我将所有这些结果集存储在clob记录集中。

有什么方法可以使它成为一个块，它将在循环中运行4次并生成结果集。特别是如何以通用方式创建这个块:

For i in (select DEPTNO, DEPTNAME from DEPT where DEPT > 10)
LOOP
   v_rows := v_rows
                     || i.DEPTNO
                     || ','
                     || i.DEPTNAME
                     || UTL_TCP.crlf;

1) 光标查询可以更改和
2) 我如何称呼I.DEPTNO在LOB中写作？

您可以为此使用一些DBMS_SQL，例如

SQL> create or replace
  2  procedure clob_maker(p_query varchar2) is
  3
  4      l_theCursor     integer default dbms_sql.open_cursor;
  5      l_columnValue   varchar2(4000);
  6      l_status        integer;
  7      l_descTbl       dbms_sql.desc_tab;
  8      l_colCnt        number;
  9      n number := 0;
 10
 11      l_data clob;
 12  begin
 13      dbms_sql.parse(  l_theCursor,  p_query, dbms_sql.native );
 14      dbms_sql.describe_columns( l_theCursor, l_colCnt, l_descTbl );
 15
 16      for i in 1 .. l_colCnt loop
 17          dbms_sql.define_column(l_theCursor, i, l_columnValue, 4000);
 18      end loop;
 19
 20      l_status := dbms_sql.execute(l_theCursor);
 21
 22      while ( dbms_sql.fetch_rows(l_theCursor) > 0 ) loop
 23          for i in 1 .. l_colCnt loop
 24              dbms_sql.column_value( l_theCursor, i, l_columnValue );
 25              l_data := l_data || l_columnValue ||',';
 26          end loop;
 27          n := n + 1;
 28      end loop;
 29      dbms_output.put_line(l_data);
 30  end;
 31  /

Procedure created.

SQL>
SQL> set serverout on
SQL> exec clob_maker('select empno, ename from emp');
7369,SMITH,7499,ALLEN,7521,WARD,7566,JONES,7654,MARTIN,7698,BLAKE,7782,CLARK,7788,SCOT
T,7839,KING,7844,TURNER,7876,ADAMS,7900,JAME
S,7902,FORD,7934,MILLER,

PL/SQL procedure successfully completed.