如何创建Oracle存储过程在各PDB中执行utlrp.sql？代码报错求指导

你的PL/SQL代码存在语法和功能层面的问题，以下是具体修正方案：

1. 修复游标语法错误 #

原游标定义中的子查询末尾多了分号，PL/SQL不允许游标内的SELECT语句带分号，需删除：

FOR c IN (select Name, OPEN_MODE from v$pdbs where OPEN_MODE='READ WRITE') LOOP

2. 解决PL/SQL无法执行SQL*Plus命令的问题 #

@?/rdbms/admin/utlrp.sql是SQL*Plus客户端专属命令，PL/SQL作为服务器端执行块无法识别该命令，推荐两种解决方式：

方案一：改用SQL*Plus脚本实现（最可靠） #

因为utlrp.sql本身就是SQLPlus脚本，用SQLPlus的循环逻辑更适配：

SET SERVEROUTPUT ON
SET FEEDBACK OFF

DECLARE
   CURSOR c_rw_pdbs IS
      SELECT name FROM v$pdbs WHERE open_mode = 'READ WRITE';
   v_pdb_name VARCHAR2(30);
BEGIN
   FOR pdb_rec IN c_rw_pdbs LOOP
      v_pdb_name := pdb_rec.name;
      DBMS_OUTPUT.PUT_LINE('Running utlrp.sql for PDB: ' || v_pdb_name);
      
      -- 生成临时脚本切换容器并执行utlrp.sql
      SPOOL temp_pdb_utlrp.sql
      PRINT 'ALTER SESSION SET CONTAINER=' || v_pdb_name || ';';
      PRINT '@?/rdbms/admin/utlrp.sql;';
      PRINT 'ALTER SESSION SET CONTAINER=CDB$ROOT;';
      SPOOL OFF
      
      -- 执行临时脚本
      @temp_pdb_utlrp.sql
      
      -- 清理临时文件（Windows系统替换为`HOST DEL temp_pdb_utlrp.sql`）
      HOST rm temp_pdb_utlrp.sql
   END LOOP;
END;
/

SET FEEDBACK ON

将上述代码保存为.sql文件，在SQL*Plus中以CDB$ROOT用户身份执行即可。

方案二：PL/SQL中读取脚本内容执行（需权限配置） #

如果必须在PL/SQL块内实现，可以通过UTL_FILE读取utlrp.sql内容并逐条执行SQL语句：

-- 首先创建目录对象并授权（仅需执行一次）
CREATE OR REPLACE DIRECTORY RDBMS_ADMIN_DIR AS '?/rdbms/admin';
GRANT READ ON DIRECTORY RDBMS_ADMIN_DIR TO YOUR_USER;
GRANT EXECUTE ON UTL_FILE TO YOUR_USER;

-- 修正后的PL/SQL块
DECLARE
   v_pdb_name VARCHAR2(30);
   v_file_handle UTL_FILE.FILE_TYPE;
   v_line VARCHAR2(4000);
BEGIN
   FOR pdb_rec IN (SELECT name FROM v$pdbs WHERE open_mode = 'READ WRITE') LOOP
      v_pdb_name := pdb_rec.name;
      DBMS_OUTPUT.PUT_LINE('Processing PDB: ' || v_pdb_name);
      
      -- 切换到目标PDB
      EXECUTE IMMEDIATE 'ALTER SESSION SET CONTAINER=' || v_pdb_name;
      
      -- 读取并执行utlrp.sql
      v_file_handle := UTL_FILE.FOPEN('RDBMS_ADMIN_DIR', 'utlrp.sql', 'R');
      LOOP
         BEGIN
            UTL_FILE.GET_LINE(v_file_handle, v_line);
            -- 跳过注释、空行和SQL*Plus专属命令
            IF TRIM(v_line) NOT LIKE '--%' 
               AND TRIM(v_line) IS NOT NULL
               AND NOT (v_line LIKE 'SET%' OR v_line LIKE 'SPOOL%' OR v_line LIKE '@%') THEN
               EXECUTE IMMEDIATE v_line;
            END IF;
         EXCEPTION
            WHEN NO_DATA_FOUND THEN
               EXIT;
         END;
      END LOOP;
      UTL_FILE.FCLOSE(v_file_handle);
      
      -- 切回CDB根容器
      EXECUTE IMMEDIATE 'ALTER SESSION SET CONTAINER=CDB$ROOT';
   END LOOP;
END;
/

额外优化 #

• 原代码中重复判断PDB状态，游标已经过滤了READ WRITE的PDB，可直接移除该IF判断，简化逻辑。
• 增加输出日志，便于跟踪每个PDB的执行进度。

内容的提问来源于stack exchange，提问作者Learner