MINI MINI MANI MO

Rem
Rem $Header: sdo/admin/semloadj.sql /main/7 2017/05/03 12:18:33 rjanders Exp $
Rem
Rem semloadj.sql
Rem
Rem Copyright (c) 2009, 2017, Oracle and/or its affiliates. 
Rem All rights reserved.
Rem
Rem    NAME
Rem      semloadj.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    BEGIN SQL_FILE_METADATA
Rem    SQL_SOURCE_FILE: sdo/admin/semloadj.sql
Rem    SQL_SHIPPED_FILE: md/admin/semloadj.sql
Rem    SQL_PHASE: UPGRADE
Rem    SQL_STARTUP_MODE: NORMAL
Rem    SQL_IGNORABLE_ERRORS: NONE
Rem    SQL_CALLING_FILE: sdo/admin/semrelod.sql
Rem    END SQL_FILE_METADATA
Rem
Rem    MODIFIED   (MM/DD/YY)
Rem    rjanders    04/27/17 - Correct "SQL_PHASE" metadata values
Rem    rjanders    03/10/17 - Add missing SQL_FILE_METADATA information
Rem    sravada     01/11/17 - bug 25370681
Rem    rjanders    01/02/15 - long identifier project phase 1
Rem    sdas        12/18/14 - SELECT WITH GRANT OPTION on ALL_* objects to
Rem                           MDSYS
Rem    rjanders    03/16/13 - #16473696: Start/End _ORACLE_SCRIPT
Rem                           initialization
Rem    matperry    05/06/09 - Created
Rem

Rem ********************************************************************
Rem #16473696: Indicate Oracle-Supplied object
@@?/rdbms/admin/sqlsessstart.sql
Rem ********************************************************************

exec dbms_java.loadjava('-resolve -force -synonym -schema MDSYS -grant PUBLIC md/jlib/sdordf.jar');

DECLARE
    dyn_sql_stmt         VARCHAR2(4000);

    referenced_names     sys.Odcivarchar2list := sys.odcivarchar2list(
      'ALL_OBJECTS'
     ,'ALL_TABLES'
     ,'ALL_INDEXES'
     ,'ALL_USERS'
     ,'ALL_DIRECTORIES'
     ,'ALL_POLICIES'
     ,'ALL_PROCEDURES'
     ,'ALL_TAB_PARTITIONS'
     ,'ALL_IND_PARTITIONS'
     ,'ALL_TAB_COLUMNS'
     ,'ALL_IND_COLUMNS'
     ,'ALL_TYPE_ATTRS'
     );
     referenced_name     VARCHAR2(128);
BEGIN
    /* GRANT SELECT ON select SYS.ALL_* objects TO MDSYS WITH GRANT OPTION */
    FOR i IN referenced_names.FIRST..referenced_names.LAST
    LOOP
      BEGIN
        referenced_name := referenced_names(i);

        dyn_sql_stmt := 'GRANT SELECT ON SYS.' || sys.dbms_assert.enquote_name(referenced_name,FALSE) || ' TO MDSYS WITH GRANT OPTION ';
        dbms_output.put_line('[sdo_rdf.create_rdf_network] DONE: stmt:' || dyn_sql_stmt);
        execute immediate dyn_sql_stmt;
      EXCEPTION
        when others then
          dbms_output.put_line('[sdo_rdf.create_rdf_network] failed stmt: ' || dyn_sql_stmt || ' SQLERRM=' || SQLERRM);
          raise;
      END;
    END LOOP;
END;
/

Rem ********************************************************************
Rem #16473696: Indicate Oracle-Supplied object
@@?/rdbms/admin/sqlsessend.sql
Rem ********************************************************************