Oracle 11g Release 2

By using db<>fiddle, you agree to license everything you submit by Creative Commons CC0.

CREATE OR REPLACE PROCEDURE desc_query (p_query VARCHAR2) AS
     v_static_rc SYS_REFCURSOR;
    v_desc      DBMS_SQL.DESC_TAB;
    v_cols      BINARY_INTEGER;
    v_cursor    BINARY_INTEGER;
    v_datatype VARCHAR2(40) ;
 BEGIN

OPEN v_static_rc FOR  p_query;

v_cursor := DBMS_SQL.TO_CURSOR_NUMBER(v_static_rc);

DBMS_SQL.DESCRIBE_COLUMNS(v_cursor, v_cols, v_desc);

DBMS_SQL.CLOSE_CURSOR(v_cursor);
    dbms_output.put_line(rpad('COL',3)|| ' ' || RPAD('COLUMN_NAME',15) ||'DATA TYPE' );
    FOR i IN 1 .. v_cols LOOP
       DBMS_OUTPUT.PUT( rpad(i,3) || ' ' || RPAD(v_desc(i).col_name,15));

select 
   decode(v_desc(i).col_type, 1,
              decode(v_desc(i).col_charsetform, 2, 'NVARCHAR2',
                                    'VARCHAR2'),
    2, decode(v_desc(i).col_scale, null, 
                   decode(v_desc(i).col_precision, null,
                                    'NUMBER', 'FLOAT'), 'NUMBER'),
    8, 'LONG',
    9, decode(v_desc(i).col_charsetform, 2, 'NCHAR VARYING', 'VARCHAR'),
    12, 'DATE',
    23, 'RAW', 24, 'LONG RAW',
    69, 'ROWID',
    96, decode(v_desc(i).col_charsetform, 2, 'NCHAR', 'CHAR'),
    100, 'BINARY_FLOAT',
    101, 'BINARY_DOUBLE',
    105, 'MLSLABEL',
    106, 'MLSLABEL',
    111, 'REF',
    112, decode(v_desc(i).col_charsetform, 2, 'NCLOB', 'CLOB'),
    113, 'BLOB', 114, 'BFILE', 115, 'CFILE',
    121, 'USER_TYPE',
    122, 'USER_TYPE',
    123, 'USER_TYPE',
    178, 'TIME(' ||v_desc(i).col_scale|| ')',
    179, 'TIME(' ||v_desc(i).col_scale|| ')' || ' WITH TIME ZONE',
    180, 'TIMESTAMP(' ||v_desc(i).col_scale|| ')',
    181, 'TIMESTAMP(' ||v_desc(i).col_scale|| ')'||' WITH TIME ZONE',
    231, 'TIMESTAMP(' ||v_desc(i).col_scale|| ')'||' WITH LOCAL TIME ZONE',
    182, 'INTERVAL YEAR(' ||v_desc(i).col_precision||') TO MONTH',
    183, 'INTERVAL DAY(' ||v_desc(i).col_precision||') TO SECOND(' ||
          v_desc(i).col_scale || ')',
    208, 'UROWID',
    'UNDEFINED') type_name into v_datatype  from dual;

dbms_output.put_line(v_datatype);

END LOOP;
  EXCEPTION WHEN OTHERS THEN
  DBMS_OUTPUT.PUT_LINE('ERROR OCCURED: '|| SQLERRM);
END;
/

1 rows affected