doc

    Name:   pinned.sql

    Author: Mark Gurry

    This script lists all objects that are currently pinned in the 
    shared pool.

#

ttitle 'Objects Pinned in Shared Pool'

SELECT name, type, kept
  FROM v$db_object_cache
 WHERE kept = 'YES';