MINI MINI MANI MO

Rem
Rem $Header: ordim/admin/imupmain.sql /main/5 2017/09/22 08:37:02 smavris Exp $
Rem
Rem imupmain.sql
Rem
Rem Copyright (c) 2014, 2017, Oracle and/or its affiliates. 
Rem All rights reserved.
Rem
Rem    NAME
Rem      imupmain.sql - Oracle Multimedia Parallel Upgrade Main Script
Rem
Rem    DESCRIPTION
Rem     This script upgrades Oracle Multimedia from all supported prior
Rem	releases.  This script does the bulk of the upgrade, upgrading
Rem     packages, package bodies, type bodies, views, etc.
Rem
Rem    NOTES
Rem
Rem    BEGIN SQL_FILE_METADATA 
Rem    SQL_SOURCE_FILE: ordim/admin/imupmain.sql 
Rem    SQL_SHIPPED_FILE: ord/im/admin/imupmain.sql
Rem    SQL_PHASE: CMPUPORD
Rem    SQL_STARTUP_MODE: UPGRADE
Rem    SQL_IGNORABLE_ERRORS: NONE 
Rem    SQL_CALLING_FILE: ordim/admin/imupgrd.sql
Rem    END SQL_FILE_METADATA
Rem
Rem    MODIFIED   (MM/DD/YY)
Rem    smavris     09/20/17 - Update for new version
Rem    smavris     12/13/16 - Use Rae's logic to distinguish between patch
Rem                           release upgrade and re-run upgrade - bug 25129634
Rem    smavris     11/16/16 - Invoke 12.2 upgrade script - bug 25035523
Rem    smavris     02/23/16 - Remove 11.1 upgrade scripts
Rem    smavris     01/15/15 - Add print sttmts with status/version (per Rae)
Rem    smavris     01/14/15 - Schema qualify dbms_registry
Rem    smavris     12/12/14 - Oracle Multimedia upgrade script
Rem    smavris     12/12/14 - Oracle Multimedia Parallel Upgrade Script
Rem    smavris     12/12/14 - Created
Rem

@@?/rdbms/admin/sqlsessstart.sql

alter session set current_schema="ORDSYS";
set serveroutput on;

Rem
Rem ===========================================
Rem Load miscellaneous install package
Rem ===========================================
@@immisc.sql

Rem ===========================================
Rem setup component script filname variable
Rem ===========================================
COLUMN :script_name NEW_VALUE comp_file NOPRINT
Variable script_name varchar2(256)

Rem ===========================================
Rem select upgrade script to run
Rem ===========================================
DECLARE
  version     sys.registry$.version%type;
  ful_version sys.registry$.version%type;
  prv_version sys.registry$.version%type;
  org_version sys.registry$.version%type;
  status      varchar2(50);

Begin
  -- Get version information from registry$
  select substr(version,1,6), version, prv_version, org_version,
         sys.dbms_registry.status('ORDIM')
         into version, ful_version, prv_version, org_version, status
         from sys.registry$ where cid = 'ORDIM';

  :script_name := SYS.dbms_registry.nothing_script; 
  If version = '11.2.0' then
     :script_name := '@imu112.sql';
  elsif version = '12.1.0' then
     :script_name := '@imu121.sql';
  elsif version = '12.2.0' then   
     :script_name := '@imu122.sql';
  else   
     --
     -- Check for rerun
     -- 
     if substr(ful_version,1,7) =
        substr(sys.dbms_registry.release_version,1,7) then
        -- Current version rerun.  Script is based on previous version
        if substr(prv_version,1,6) = '11.2.0' then
           :script_name := '@imu112.sql';
        elsif substr(prv_version,1,6) = '12.1.0' then
           :script_name := '@imu121.sql';
        elsif substr(prv_version,1,6) = '12.2.0' then
           :script_name := '@imu122.sql';
        end if;
     end if;
  end if;
    
  -- Display version information
  dbms_output.put_line('Version Script: ' || :script_name);
  dbms_output.put_line('Current Status: ' || status);
  dbms_output.put_line('Current Version: ' || ful_version);
  dbms_output.put_line('Previous Version: ' || prv_version);
  dbms_output.put_line('Original Version: ' || org_version);
  
end;
/

Rem ===========================================
Rem Invoke version specific upgrade script
Rem ===========================================
select :script_name from sys.dual;
@&comp_file

Rem
Rem This second call to upgrading is not a mistake. SI_INFORMTN_SCHEMA and 
Rem ORDDATA might not exist when we make the first call, so we need to pass 
Rem the schema list at this point.
Rem
EXECUTE SYS.dbms_registry.upgrading('ORDIM', 'Oracle Multimedia', 'validate_ordim', 'ORDSYS', SYS.dbms_registry.schema_list_t('ORDPLUGINS','SI_INFORMTN_SCHEMA', 'ORDDATA'));

Rem ===========================================
Rem Upgrade implementation
Rem ===========================================

Rem ==============================================
Rem Load without compiling to improve performance
Rem ==============================================
ALTER SESSION SET "_LOAD_WITHOUT_COMPILE" = plsql;

REM Reload public packages, procedures, functions
@@impbs.sql

REM Reload private packages, procedures, functions and views
@@impvs.sql

REM Reload Views
@@imview.sql

REM Reload type bodies
@@imtyb.sql

REM Reload package bodies
@@implb.sql

Rem ==============================================
Rem Set back to Load with compiling 
Rem ==============================================
ALTER SESSION SET "_LOAD_WITHOUT_COMPILE" = none;

REM Create the library
@@ordlib.sql

set serveroutput off;

@?/rdbms/admin/sqlsessend.sql