gistfile1.sql

    select
      case when level = 1 then own || '.' || obj || ' (' || typ || ')' else
      lpad (' ', 2*(level-1)) || obj || nvl2 (typ, ' (' || typ || ')', null)
      end
    from
      (
      /* THE OBJECTS */
        select 
          null          p1, 
          null          p2,
          object_name   obj,
          owner         own,
          object_type   typ
        from 
          dba_objects
        where
           owner like upper('%&enter_owner_name%')    
           and object_name like upper('%&enter_object_name%')
           
      /* THE OBJECT TO PRIVILEGE RELATIONS */ 
      union
        select
          table_name p1,
          owner      p2,
          grantee,
          grantee,
          privilege
        from
          dba_tab_privs
      /* THE ROLES TO ROLES/USERS RELATIONS */ 
      union
        select 
          granted_role  p1,
          granted_role  p2,
          grantee,
          grantee,
          null
        from
          dba_role_privs
      )
    start with p1 is null and p2 is null
    connect by p1 = prior obj and p2 = prior own;