oracle 存储过程将表名和字段名变为大写（报错ORA-20000）

1、表名大写：

基础查询脚本： SELECT ‘ALTER TABLE "’||TABLE_NAME||’" rename to '||UPPER(TABLE_NAME) FROM USER_TABLES;

过程：
—修改表名
DECLARE
SQLR_ALTER VARCHAR2(200);
BEGIN
FOR C IN(SELECT ‘ALTER TABLE "’ || TABLE_NAME || '" RENAME TO ’ ||
UPPER(TABLE_NAME) AS SQLR FROM USER_TABLES) LOOP
BEGIN
SQLR_ALTER := C.SQLR;
EXECUTE IMMEDIATE SQLR_ALTER;
EXCEPTION
WHEN
OTHERS THEN DBMS_OUTPUT.PUT_LINE(SQLR_ALTER || ‘发生错误，程序继续’);
CONTINUE;
END;
END LOOP;
END;
/

2、字段名大写

基础查询脚本：SELECT ‘ALTER TABLE ‘||TABLE_NAME||’ rename column "’||COLUMN_NAME||’" TO’ || UPPER(COLUMN_NAME) AS SQLR FROM USER_TAB_COLUMNS;

过程：
—修改列名
DECLARE
SQLR_ALTER VARCHAR2(200);
BEGIN
DBMS_OUTPUT.ENABLE (buffer_size=>null); – 表示没有限制
FOR C IN (SELECT
‘ALTER TABLE ‘||TABLE_NAME||’ rename column "’||COLUMN_NAME||’" to '||UPPER(COLUMN_NAME) AS SQLR
FROM USER_TAB_COLUMNS) LOOP
BEGIN
SQLR_ALTER := C.SQLR;
EXECUTE IMMEDIATE SQLR_ALTER;
EXCEPTION
WHEN
OTHERS THEN DBMS_OUTPUT.PUT_LINE(SQLR_ALTER||‘发生错误，程序继续’);
CONTINUE;
END;
END LOOP;
END;
/

注：本地执行列名修改时，会报ORA-20000的错误

报错原因： 在OUTPUT输出时,通过DBMS_OUTPUT.ENABLE控制输出结果的缓冲大小,而buffer size默认大小是20000,每行最大限制是32k。当我们使用游标输出时，如果结果很多，将会超过这个值报ORA-20000错误:ORU-10027: buffer overflow, limit of 10000 bytes.
解决方法：
在存储过程begin后面加 : DBMS_OUTPUT.ENABLE (buffer_size=>null)