create or replace function type_col(t in varchar2,c in varchar2)
return varchar2
as
r varchar2(300);
begin
SELECT data_type into r
FROM all_tab_cols
WHERE table_name = upper(t) and column_name=upper(c);
return r;
end type_col;