移动表空间的Oracle过程

Question

朋友... 我正在测试这个 Oracle 过程以将所有表、表空间的索引移动到新表空间......我正在尝试调试和修复这个简单的过程，但它给了我光标错误......有人可以指出我的错误吗？

我可以手动生成一些东西，但那里有 200 个表空间，我计划定期移动这些表空间，因此希望自动执行此任务。

目标：在过程运行时接受旧表空间和新表空间，并使用它将该表空间中的所有对象移动到新表空间。

1. 我计划执行以下操作：
   1. 在过程运行时接受 old_tbs、new_tbs
   2. 将表 A 从 old_tbs 移动到 new_tbs
   3. 将表 A 的索引重建为 new_tbs
   4. 将表 B 从 old_tbs 移动到 new_tbs
   5. 将表 B 的索引重建为 new_tbs

循环...

CREATE OR REPLACE procedure moveTbl (OldTbs in varchar2, NewTbs in varchar2)
IS

 TblSQL         VARCHAR2(250);

CURSOR curTable (vOwner varchar2, vTblName varchar2, vTbsName varchar2)
IS
   SELECT owner, table_name, tablespace_name
      FROM dba_tables
      WHERE tablespace_name = OldTbs
      ORDER BY 2;

 rec1 curTable%ROWTYPE;

BEGIN
  FOR rec1 IN curTable LOOP

   dbms_output.putline('rec1.owner || rec1.table_name');
     TblSQL := 'alter table '||rec1.owner||'.'||rec1.table_name||' move tablespace '||NewTbs;

  EXECUTE IMMEDIATE TblSQL;

END LOOP;  --curTable for loop

END moveTbl;
/

Answer 1

您已将游标声明为具有三个参数，但在 FOR 循环中打开它时未提供任何参数。我建议这个游标不需要任何参数，应该去掉。

也可能是创建此过程的架构/用户无权访问 DBA_TABLES 视图。

编辑

AUTHID CURRENT USER应该紧跟在CREATE OR REPLACE PROCEDURE之后，IS之前，如下图：

CREATE OR REPLACE PROCEDURE moveTbl (OldTbs in varchar2, NewTbs in varchar2)
    AUTHID CURRENT USER
IS
  CURSOR curTable IS
    SELECT owner, table_name, tablespace_name
      FROM dba_tables
      WHERE tablespace_name = OldTbs
      ORDER BY TABLE_NAME;
BEGIN
  FOR rec1 IN curTable LOOP
    dbms_output.putline(rec1.owner || '.' || rec1.table_name);

    EXECUTE IMMEDIATE 'alter table ' || rec1.owner || '.' || rec1.table_name ||
                      ' move tablespace ' || NewTbs;
  END LOOP;  --curTable for loop
END moveTbl;

分享和享受。