CREATE OR REPLACE PROCEDURE column_show (p_objectlist IN VARCHAR2)
IS
   TYPE object_list IS TABLE OF VARCHAR2 (50)
      INDEX BY BINARY_INTEGER;

   v_objectlist           object_list;
   v_no_of_objects        NUMBER (10);
   v_copy_of_objectlist   VARCHAR2 (500);
   v_counter              NUMBER (10);
   v_default_query        VARCHAR2 (1000);
   v_sql_query            VARCHAR2 (1000);
BEGIN
   v_copy_of_objectlist := p_objectlist;
   v_default_query :=
                 'select COLUMN_NAME from ALL_TAB_COLS where table_name = ''';
   
/*Compute no. of objects in the input parameter*/
   SELECT   LENGTH (p_objectlist)
          - LENGTH (REPLACE (p_objectlist, ','))
          + 1
     INTO v_no_of_objects
     FROM DUAL;
   v_counter := v_no_of_objects;
   v_copy_of_objectlist := p_objectlist;

   WHILE v_no_of_objects > 1
   LOOP
      /*Populating the array*/
      SELECT SUBSTR (
                v_copy_of_objectlist,
                1,
                  INSTR (v_copy_of_objectlist, ',')
                - 1
             )
        INTO v_objectlist (v_no_of_objects)
        FROM DUAL;
      SELECT SUBSTR (
                v_copy_of_objectlist,
                  LENGTH (v_objectlist (v_no_of_objects))
                + 2
             )
        INTO v_copy_of_objectlist
        FROM DUAL;
      v_no_of_objects :=   v_no_of_objects
                         - 1;
   END LOOP;

   
/*Populating last item of array*/
   SELECT v_copy_of_objectlist
     INTO v_objectlist (v_no_of_objects)
     FROM DUAL;

   FOR outer_loop IN 1 .. v_counter
   LOOP
      FOR inner_loop IN   outer_loop
                        + 1 .. v_counter
      LOOP
         -- Create the query for execution
         v_sql_query :=    v_sql_query
                        || v_default_query
                        || v_objectlist (outer_loop)
                        || ''''
                        || ' INTERSECT '
                        || v_default_query
                        || v_objectlist (inner_loop)
                        || ''''
                        || ' UNION ';
      END LOOP;
   END LOOP;

   SELECT SUBSTR (v_sql_query, 1,   LENGTH (v_sql_query)
                                  - 7)
     INTO v_sql_query
     FROM DUAL;
   DBMS_OUTPUT.put_line (   'FINAL--->'
                         || v_sql_query);
END column_show;

select column_name
from dba_tab_columns
where (owner,table_name) in (<your list>)
group by column_name
having count(*) = <number of table in your list>
/