Rem
Rem $Header: admin_check_shared_pool.sql 12-mar-2003.16:36:03 rpinnama Exp $
Rem
Rem admin_check_shared_pool.sql
Rem
Rem Copyright (c) 2002, 2003, Oracle Corporation.  All rights reserved.  
Rem
Rem    NAME
Rem      admin_check_shared_pool.sql - <one-line expansion of the name>
Rem
Rem    DESCRIPTION
Rem
Rem    NOTES
Rem      <other useful comments, qualifications, etc.>
Rem
Rem    MODIFIED   (MM/DD/YY)
Rem    rpinnama    03/12/03 - Remove unnecessary exit at the end
Rem    rpinnama    06/03/02 - rpinnama_reorg_rep_scripts_3
Rem    rpinnama    05/14/02 - Created
Rem

--
-- Set things up so that any exception thrown in the PL/SQL below
-- will cause the script to exit with FAILURE status.
--
WHENEVER SQLERROR EXIT SQL.SQLCODE;

BEGIN
  DECLARE name VARCHAR2(30);
  BEGIN
    name := '';
    SELECT object_name INTO name 
      FROM all_objects 
     WHERE object_name='DBMS_SHARED_POOL' 
       AND object_type='PACKAGE';
  END;
END;
/