-- script to be called by main u0x0x0x0 scripts for the purpose of upgrading
-- the base Java VM

-- This script can not function properly in SVRMGR.  The following 
-- lines are intended to abort the script if it is being run with
-- SVRMGR, but will be interpreted simply as remarks by SQLPLUS.
rem -
set stoponerror on
rem -
jvmdbmig.sql must be run with SQLPLUS, not SVRMGRL

-- (re)Define support packages
@@initjvma.sql

-- set up control variables for udjvmrm
variable jvmudaction varchar2(30)
variable jvmudsubaction varchar2(30)
execute :jvmudaction := 'UPGRADE';

-- declare the start of the upgrade script action
call initjvmaux.startaction('UPGRADE');

begin
  if initjvmaux.registrystatus = 'LOADED' and
     initjvmaux.startstep('SET_REGISTRY_GRADING') then
    dbms_registry.upgrading('JAVAVM', NULL, 'INITJVMAUX.VALIDATE_JAVAVM');
    initjvmaux.endstep;
  end if;
end;
/

-- call main system class removal/upgrade script
@@udjvmrm

begin
  if initjvmaux.startstep('SETLOADED') then
    initjvmaux.setloaded();
    initjvmaux.endstep;
  end if;
end;
/

call initjvmaux.endaction_asload();

select dbms_java.full_ncomp_enabled from dual;