MINI MINI MANI MO

Rem
Rem $Header: sdo/admin/sdocmprg.sql /main/33 2017/06/19 06:24:02 rjanders Exp $
Rem
Rem sdocmprg.sql
Rem
Rem Copyright (c) 2001, 2017, Oracle and/or its affiliates. 
Rem All rights reserved.
Rem
Rem    NAME
Rem      sdocmprg.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/sdocmprg.sql
Rem    SQL_SHIPPED_FILE: md/admin/sdocmprg.sql
Rem    SQL_PHASE: SDOCMPRG
Rem    SQL_STARTUP_MODE: NORMAL
Rem    SQL_IGNORABLE_ERRORS: NONE
Rem    SQL_CALLING_FILE: sdo/admin/catmdt.sql
Rem    END SQL_FILE_METADATA
Rem
Rem    MODIFIED   (MM/DD/YY)
Rem    rjanders    03/23/17 - #25437999: Remove 'when others then NULL'
Rem                           handlers
Rem    rjanders    03/09/17 - Add missing SQL_FILE_METADATA information
Rem    sravada     01/24/17 - do recomp if not upgrading
Rem    sravada     12/06/16 - util_recompile instead of manual recompile
Rem    sravada     11/24/15 - recompile SDO_GEOR_TRIG_DEL2
Rem    sravada     01/07/15 - fix invalid objects after new install
Rem    rjanders    01/02/15 - long identifier project phase 1
Rem    rjanders    03/16/14 - XbranchMerge rjanders_lrg-11580181_3 from
Rem                           st_sdo_12.1.0
Rem    rjanders    03/10/14 - LRG#11580181: Correct column formatting
Rem    rjanders    03/15/13 - #16473696: Start/End _ORACLE_SCRIPT
Rem                           initialization
Rem    matperry    06/28/12 - call semvalidate to recompile RDF/SEM objects
Rem    rjanders    04/22/12 - Correct open cursor exception handling
Rem    alwu        06/28/07 - fix invalid value$cache package
Rem    alwu        06/25/07 - fix invalid object SDO_DROP_USER_BEFORE trigger.
Rem                           trigger moved out of prvtgmd.sql
Rem    alwu        06/14/07 - fix sdo_rdf_triple_s compile
Rem    alwu        06/14/07 - fix lrg 3014999: new rdf upgrade logic no longer
Rem                           loads type and packages
Rem    alwu        09/08/06 - fix lrg 2540627: a downgrade scenario that could
Rem                           not find rdf_match_impl_t
Rem    alwu        08/28/06 - add compile body for RDF_MATCH_IMPL_T
Rem    mhorhamm    02/23/06 - Make compilation of packages conditional 
Rem    mhorhamm    01/27/06 - Recompile OpenLS-related packages 
Rem    sravada     10/18/04 - move validate to SYS 
Rem    mhorhamm    09/23/04 - Recompile OGC functions 
Rem    sravada     07/30/04 - 
Rem    sravada     07/08/03 - add exception handler
Rem    sravada     07/03/03 - validate all public synonyms created by MDSYS
Rem    sravada     02/05/03 - move validation to a procedure
Rem    sravada     11/26/02 - version: use RDBMS version
Rem    sravada     08/12/02 - verion to 10.0.0.0
Rem    sravada     02/05/02 - update version to 9.2.0.1
Rem    sravada     10/23/01 - owner to schema
Rem    sravada     10/08/01 - Merged sravada_ship_it_ninertwo
Rem    sravada     10/08/01 - Created
Rem

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

declare
  cnt number;
   type       cursor_type is REF CURSOR;
  query_crs  cursor_type ;
   s_name varchar2(1000);

begin
   select count(*) into cnt from sys.dba_registry where comp_id='SDO'
          and status = 'LOADING';
   if (cnt=1) then
    dbms_output.put_line('Recomp SDO');
         SYS.UTL_RECOMP.recomp_serial('MDSYS');

      open query_crs for
      ' select  b.SYNONYM_NAME 
        from sys.dba_invalid_objects a, sys.dba_synonyms b
        where a.owner=''PUBLIC'' and a.OBJECT_NAME = b.SYNONYM_NAME and 
        b.TABLE_OWNER = ''MDSYS'' ';

      loop
      begin
       fetch query_crs into s_name;
           exit when query_crs%NOTFOUND ;
       execute immediate ' alter public synonym "'||s_name||'" compile';
      end;
      end loop;
      close query_crs;
   end if;
end;
/


EXECUTE dbms_registry.loaded('SDO');

prompt starting semvalidatei.sql
@@semvalidatei.sql
prompt semvalidatei.sql complete


EXECUTE SYS.validate_sdo;

column comp_id format a40;
column schema format a40;
column version format a40;
column status format a40;
column comp_name format a40;

select COMP_ID, SCHEMA, VERSION, STATUS, COMP_NAME
 from sys.dba_registry where comp_id='SDO';

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