Oracle中用游标循环DDL语句产生的一些问题

我和同事由于需要从用户的数据库中导出大量的表，但是由于种种原因，只能用创建的方式导，因此写了如下存储过程。

create or replace procedure createtable is
  tablename varchar2(100) ;
  sqlstring varchar2(1000);
  CURSOR cur_1 is select "name" from sysobjects@sql2000 where "type"='U';
begin  
    open cur_1;
    loop
      fetch cur_1 into tablename;
      EXIT WHEN cur_1%NOTFOUND;
      sqlstring := 'CREATE TABLE ' || tablename || ' as select * from ' || tablename || '@sql2000';
      dbms_output.put_line(sqlstring);
      EXECUTE IMMEDIATE 'CREATE TABLE ' || tablename || ' as select * from ' || tablename || '@sql2000';
    end loop; 
    close cur_1;  
end;

可是执行的时候报错“ORA-01002读取违反顺序”。比较合理的解释是：
“create table 这是个ddl语句，系统会隐式自动作commit。在透明网关访问过程中是遵循ansi标准的，根据ansi标准，cursor fetch loop中如果有commit，会自动close cursor。这就造成你在执行fetch 时候出现ORA-01002。可以把cursor的结果写入collection，然后通过另外的处理来进行数据导入。”
可是除了游标和游标变量，在存储过程中无法用其他的collection 。在应用中可以调用，但是想用一个存储过程独立完成的目标看来比较难以实现。或者可以使用建立临时表的方式来解决，不过略显笨拙了些。
另外看到一个for loop的用法，不常见，但是真的比较简洁。
引用至：http://www.cnblogs.com/jjiac/archive/2007/01/24/628831.html
--------------------------------------------------------------------------------
我们在Oracle存储过程中需要遍历一张表，应该怎样做。我想大多少的人第一个念头就是Cursor。
　　
　　比如：
　　
　　create or replace procedure StudyCursor(
　　resulst out integer
　　) is
　　v_tablename varchar(30);
　　v_tabletype varchar(11);
　　cursor mycursor is select * from cat;
　　begin
　　open mycursor;
　　loop
　　fetch mycursor into v_tablename,v_tabletype;
　　
　　null; --you can use tablename and v_tabletype
　　end loop;
　　close mycursor;
　　end StudyCursor;
　　
　　最近在看代码是，发现其实我们还有一个更方便的方法就是使用for　in　loop …　end loop
　　
　　create or replace procedure StudyFor(
　　resulst out integer
　　) is
　　begin
　　for emm in(select * from cat) loop
　　null;　--you can use emm.table_name and emm.table_type
　　end loop;
　　return ;
　　end StudyFor;
　　
　　是不是更方便，我要使用的查询结果，只需使用emm.table_name和emm.table_type即可。
　　
　　查找了Oracle的官方文档，似乎没有看见for loop的此种用法。确实很奇妙，只是不知道oracle内部具体的实现方法。

--------------------------------------------------------------------------------

用了for loop来尝试我们的创建表存储过程，还是一样的错误，看来在实现机制上，还是没有跳脱游标的操作。