Rem
Rem $Header: admin_check_javavm.sql 12-mar-2003.16:36:36 rpinnama Exp $
Rem
Rem admin_check_javavm.sql
Rem
Rem Copyright (c) 2003, Oracle Corporation.  All rights reserved.  
Rem
Rem    NAME
Rem      admin_check_javavm.sql 
Rem
Rem    DESCRIPTION
Rem
Rem    NOTES
Rem
Rem    MODIFIED   (MM/DD/YY)
Rem    rpinnama    03/12/03 - Remove unnecessary exit at the end
Rem    aholser     01/24/03 - aholser_ha_fixes
Rem    aholser     01/03/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.
--
WHENEVER SQLERROR EXIT SQL.SQLCODE;

BEGIN
  DECLARE name VARCHAR2(30);
  BEGIN
    name := '';
    SELECT role INTO name 
      FROM dba_roles 
     WHERE role ='JAVASYSPRIV';
  END;
END;
/