相对长度单位。 declare v_tbl_name varchar2(5) := NULL; v_gen_tbl constant varchar2(50) := 'arch_tbl_mon'; --table name v_sql varchar2

相对长度单位。

declare
v_tbl_name varchar2(5) := NULL;
v_gen_tbl constant varchar2(50) := 'arch_tbl_mon';   --table name
v_sql varchar2(10000);

begin
 v_tbl_name := v_gen_tbl || '_' ||  TO_CHAR(SYSDATE, 'MON');
v_sql := 'insert into tbl                 --- another table going to insert
 (select ''abc'' as col1, ........
  from '||v_tbl_name||');'
execute immediate v_sql;
commit;
end;

declare
v_tbl_name varchar2(5) := NULL;
v_gen_tbl constant varchar2(50) := 'arch_tbl_mon';   --table name
v_sql varchar2(1000);
begin
 v_tbl_name := v_gen_tbl || '_' ||  TO_CHAR(SYSDATE, 'MON');
 v_sql:= 'insert into tbl                 --- another table going to insert
  select 'abc' as col1, ........
  from  '||v_tbl_name;
  execute immediate v_sql;
  commit;
end;

declare
v_tbl_name varchar2(5) := NULL;
v_gen_tbl constant varchar2(50) := 'arch_tbl_mon';   --table 
v_sql varchar2(1000);
begin

 v_tbl_name := 'DEPT';
 v_sql :='insert into tbl   select *  from '||v_tbl_name;
 execute immediate v_sql;  
end;

Exec:

SQL> select * from tbl;
     DEPTNO DNAME                LOC
     ---------- -------------------- --------------------
        1      XXX                 YYY

SQL> select * from tbl;
    DEPTNO DNAME                LOC                  B
---------- -------------------- -------------------- ---

 declare
    v_tbl_name varchar2(5) := NULL;
    v_gen_tbl constant varchar2(50) := 'arch_tbl_mon';   --table 
    v_sql varchar2(1000);
    begin

     v_tbl_name := 'DEPT';
     v_sql :='insert into tbl (deptno,dname,loc,b) select a.*, ''abc''  from '||v_tbl_name||' a'; 
     execute immediate v_sql;  
     Commit;
    end;

SQL> SELECT * FROM TBL;
    DEPTNO DNAME                LOC                  B
---------- -------------------- -------------------- ---
       100 Executive            USA                  abc

declare
v_tbl_name varchar2(5) := NULL;
v_gen_tbl constant varchar2(50) := 'arch_tbl_mon';   --table name
v_sql varchar2(10000);

begin
 v_tbl_name := v_gen_tbl || '_' ||  TO_CHAR(SYSDATE, 'MON');
 v_sql := 'insert into tbl(col1,.....<all columns>)                 --- another table going to insert
  select ''abc'' as col1, a.col2........<other columns a.<columns>
  from '||v_tbl_name||' a';
execute immediate v_sql;
commit;
end;