MINI MINI MANI MO

Rem
Rem imchk.sql
Rem
Rem Copyright (c) 1998, 2015, Oracle and/or its affiliates. 
Rem All rights reserved.
Rem
Rem    NAME
Rem      imchk.sql - Multimedia CHecK script
Rem
Rem    DESCRIPTION
Rem      This script checks the installation of Multimedia
Rem      components and prints status of the components.
Rem
Rem    NOTES
Rem      Before running this script user must be connected as 
Rem      SYSDBA.
Rem     
Rem    MODIFIED   (MM/DD/YY)
Rem       smavris  01/14/15 - Schema qualify dbms_registry

@@?/rdbms/admin/sqlsessstart.sql



REM This script tests the Multimedia components installation

-- tests the Multimedia components installation
set serveroutput on;
EXECUTE SYS.validate_ordim();

declare
  l_flag integer := 1;
BEGIN
  IF sys.dbms_registry.is_valid('ORDIM') = 1
  THEN
    dbms_output.put_line('Multimedia installation is valid');
  ELSE
    dbms_output.put_line('Multimedia installation is invalid');
    
    -- If there are invalid objects, print out the complete list.
    FOR ob IN (SELECT o.object_name, o.status, o.object_type
               FROM sys.dba_invalid_objects o
          WHERE 
                (o.owner = 'ORDSYS' 
              OR o.owner = 'ORDPLUGINS' 
              OR o.owner = 'SI_INFORMTN_SCHEMA'
              OR o.owner = 'ORDDATA' ) ) LOOP
        if (l_flag = 1) then
          dbms_output.put_line ('The following is a complete list of ORDIM invalid objects:');
          l_flag := 0;
        end if; 
        dbms_output.put_line ('Object name: ' || ob.object_name || ', status: ' || ob.status 
          || ', type: ' || ob.object_type);
     END LOOP;

  END IF;
END;
/

REM Addition checking using JAVA script
@@imchkjav

@?/rdbms/admin/sqlsessend.sql