CUR_OUT SYS_REFCURSOR --声明游标
V_项目名称 VARCHAR2(20);
V_显示序号 VARCHAR2(20);
OPEN CUR_OUT --打开游标
SELECT 项目名称,显示序号 FROM TABLEA;
LOOP --遍历游标
FETCH CUR_OUT INTO V_项目名称,V_显示序号2;
EXIT WHEN CUR_OUT %NOTFOUND;
V_项目名称:= V_项目名称,||REPLACE(V_项目名称,CHR(10),CHR(13)||CHR(10))||';';
END LOOP;