Oracle批量生成拉链表trigger

DECLARE
  V_SQL     CLOB;
  V_SUB_STR VARCHAR2(32767);
  TYPE      T_TABLE_ARRAY IS VARRAY(50) OF VARCHAR(50);  
  TABLES    T_TABLE_ARRAY := T_TABLE_ARRAY(
'table_name'
);  
  V_OWNER   VARCHAR2(30) := ''; --'
  V_TAB_SPACE VARCHAR2(30) := ''; --
  V_ROLE    VARCHAR2(30) := '';  --
  V_SUB_CDC VARCHAR2(30) := '_CDC';
  V_GR_FLT  VARCHAR2(1000):= 
' WHERE not exists (select ''AA'' from '||V_OWNER||'.COMPASS_FLT_MEMBER flt where flt.ClientCode=his.CLNTCODE)
   and not exists (select ''AA'' from '||V_OWNER||'.COMPASS_FLT_MEMBER flt where flt.PolicyNo=his.POLNO);
';

BEGIN
FOR I IN 1 .. TABLES.COUNT LOOP
  WITH COL_LIST AS
    (select COLUMN_NAME,COLUMN_ID
       from ALL_TAB_COLUMNS
      where table_name = TABLES(I)
        and owner=V_OWNER)
  select 
        'Create Table '||V_OWNER||'.'||TABLES(I)||V_SUB_CDC||' tablespace '||V_TAB_SPACE||' as ( select p.*, ''I'' cdc_action, systimestamp cdc_action_time from '||V_OWNER||'.'||TABLES(I)||' p ) ;'||CHR(10) ||
        'Grant select on '||V_OWNER||'.'||TABLES(I