动态生成修改默认值SQL脚本

今天遇到一个问题, 就是在割接生产的脚本你类似如下
create table ** as select * from tableName@DB_LINK

但是割接过来的数据丢失了默认值，而其它外键索引主键我都有单独的脚本，唯一默认值未准备脚本，所以写了个下面的动作脚本来生成可以修改默认值的动态脚本：

DECLARE
  --定义一个字符串数组类型
  TYPE tableNamesArray IS TABLE OF VARCHAR2(200);
  --所有表名
  tableNames tableNamesArray := tableNamesArray('TEST_TAB,TEST_US',
                                               
                                                );

  result    varchar2(4000);
  tableName varchar2(200);
  ownerName varchar2(20);
  icnt      integer;
BEGIN

  --循环插入数据
  FOR i IN 1 .. tableNames.COUNT LOOP
    icnt      := instr(tableNames(i), ',');
    tableName := upper(subStr(tableNames(i), 1, icnt - 1));
    ownerName := upper(subStr(tableNames(i),
                              icnt + 1,
                              length(tableNames(i))));
 
    for rec in (select a.COLUMN_NAME cn, a.DATA_DEFAULT cd
                  from sys.all_tab_columns a
                 where a.TABLE_NAME = tableName
                   and a.OWNER = ownerName
                   and a.DATA_DEFAULT is not null) loop
      result := 'alter table OD.' || tableName || ' modify(' || rec.cn ||
                ' default ' || rec.cd || ');';
      dbms_output.put_line(result);
      result := '';
    end loop;
  end loop;

EXCEPTION
  WHEN others THEN
    DBMS_OUTPUT.put_line('执行生成INSERT语句出现异常!' || substr(sqlerrm, 1, 2000));
END;