Resolved: How to select only the colums of a table which are the same of another table

CREATE OR REPLACE PACKAGE pkg_skip_col
AS
    FUNCTION skip_col (tab TABLE, col COLUMNS)
        RETURN TABLE
        PIPELINED ROW POLYMORPHIC USING pkg_skip_col;

    FUNCTION describe (tab IN OUT DBMS_TF.TABLE_T, col DBMS_TF.COLUMNS_T)
        RETURN DBMS_TF.DESCRIBE_T;

    FUNCTION skip_col_not_in_model (tab TABLE, tabk_model TABLE)
        RETURN TABLE
        PIPELINED ROW POLYMORPHIC USING pkg_skip_col;

    FUNCTION describe (tab         IN OUT DBMS_TF.TABLE_T,
                       tab_model   IN     DBMS_TF.TABLE_T)
        RETURN DBMS_TF.DESCRIBE_T;
END;

CREATE OR REPLACE PACKAGE BODY pkg_skip_col
AS

    FUNCTION describe (tab         IN OUT DBMS_TF.TABLE_T,
                       tab_model   IN     DBMS_TF.TABLE_T)
        RETURN DBMS_TF.DESCRIBE_T
    AS
    BEGIN
        FOR i IN 1 .. tab.column.COUNT ()
        LOOP
            FOR j IN 1 .. tab_model.column.COUNT ()
            LOOP
                tab.column (i).PASS_THROUGH :=
                    tab.column (i).DESCRIPTION.NAME = tab_model.column (i).DESCRIPTION.NAME ;
                EXIT WHEN tab.column (i).PASS_THROUGH;
            END LOOP;
        END LOOP;

        RETURN NULL;
    END;

    FUNCTION describe (tab IN OUT DBMS_TF.TABLE_T, col DBMS_TF.COLUMNS_T)
        RETURN DBMS_TF.DESCRIBE_T
    AS
    BEGIN
        FOR i IN 1 .. tab.column.COUNT ()
        LOOP
            FOR j IN 1 .. col.COUNT ()
            LOOP
                tab.column (i).PASS_THROUGH :=
                    tab.column (i).DESCRIPTION.NAME != col (j);
                EXIT WHEN NOT tab.column (i).PASS_THROUGH;
            END LOOP;
        END LOOP;

        RETURN NULL;
    END;

END;
/

  with a (a1,a2) as (select 1,2 from dual) select * from 
pkg_skip_col.skip_col(a,COLUMNS(a1))

  with a (a1,a2) as (select 1,2 from dual),
       b (a1,a2,a3) as (select 1,2,3 from dual)
select * from  pkg_skip_col.skip_col_not_in_model(a,b)

create or replace function skip_col_not_in_model ( 
  query_table dbms_tf.table_t,
  ref_table   dbms_tf.table_t
) 
  return clob sql_macro as
  select_list clob;
  stmt        clob;
begin

  <<query_cols>>
  for i in 1 .. query_table.column.count loop
    for j in 1 .. ref_table.column.count loop
      if query_table.column(i).description.name = ref_table.column(j).description.name then
        select_list := 
            select_list 
         || query_table.column(i).description.name
         || ',';
         continue query_cols;
      end if;
    end loop;
  end loop;
  
  stmt := 'select ' 
       || rtrim ( select_list, ',' ) 
       || ' from query_table';
  
  return stmt;
  
end skip_col_not_in_model;
/

with a (a1,a2) as (
  select 1,2 from dual
), b (a1,a2,a3) as (
  select 1,2,3 from dual
)
select * 
from   skip_col_not_in_model ( a, b );

        A1         A2
---------- ----------
         1          2

create or replace package ptf_pkg
as
  function select_val (tab table, val varchar2)
    return table
    pipelined row polymorphic using ptf_pkg;

  function describe ( tab in out dbms_tf.table_t, val varchar2 )
    return dbms_tf.describe_t;
end;
/

create or replace package body ptf_pkg
as

  function describe ( tab in out dbms_tf.table_t, val varchar2 )
      return dbms_tf.describe_t
  as
  begin
  
    dbms_tf.trace ( 'val = ' || nvl ( val, 'IT IS NULL' ) );
    return null;
    
  end;
  
end;
/

select * from ptf_pkg.select_val ( dual, 'Y' );

D
-
X

val = Y

var new_col varchar2(30);
exec :new_col := 'NEW_COL';

select * from ptf_pkg.select_val ( dual, :new_col );

D
-
X

val = IT IS NULL