Rem
Rem $Header: admin_check_object.sql 31-mar-2003.09:49:33 rpinnama Exp $
Rem
Rem admin_check_object.sql
Rem
Rem Copyright (c) 2003, Oracle Corporation.  All rights reserved.  
Rem
Rem    NAME
Rem      admin_check_object.sql - <one-line expansion of the name>
Rem
Rem    DESCRIPTION
Rem      <short description of component this file declares/defines>
Rem
Rem    NOTES
Rem      <other useful comments, qualifications, etc.>
Rem
Rem    MODIFIED   (MM/DD/YY)
Rem    rpinnama    03/31/03 - rpinnama_setup_repos_migration_main
Rem    rpinnama    03/24/03 - Quote the parameters
Rem    rpinnama    03/21/03 - rpinnama_setup_repos_migration
Rem    rpinnama    03/13/03 - Created
Rem

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

DEFINE EM_DB_OBJECT_NAME = "&1"
DEFINE EM_DB_OBJECT_TYPE = "&2"

WHENEVER SQLERROR EXIT SQL.SQLCODE;

DECLARE 
  name VARCHAR2(30);
  l_cnt NUMBER := 0;
BEGIN
  SELECT COUNT(1) INTO l_cnt 
    FROM all_objects 
   WHERE object_name='&EM_DB_OBJECT_NAME' 
     AND object_type='&EM_DB_OBJECT_TYPE';

  IF (l_cnt = 0) THEN
    raise_application_error(-20001, 'Database object of type ' || '&EM_DB_OBJECT_TYPE' ||
        ' name ' || '&EM_DB_OBJECT_NAME' || ' does not exist.');
  END IF;

END;
/