MINI MINI MANI MO

Rem
Rem $Header: oracler/admin/rquncfg.sql /st_oracler_1.5.1.0.1/1 2017/07/17 19:50:14 qinwan Exp $
Rem
Rem rquncfg.sql
Rem
Rem Copyright (c) 2016, 2017, Oracle and/or its affiliates. 
Rem All rights reserved.
Rem
Rem    NAME
Rem      rquncfg.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: oracler/admin/rquncfg.sql
Rem    SQL_SHIPPED_FILE:
Rem    SQL_PHASE:
Rem    SQL_STARTUP_MODE: NORMAL
Rem    SQL_IGNORABLE_ERRORS: NONE
Rem    SQL_CALLING_FILE:
Rem    END SQL_FILE_METADATA
Rem
Rem    MODIFIED   (MM/DD/YY)
Rem    qinwan      07/14/17 - do nothing when ORE yet to configure
Rem    qinwan      03/05/17 - add ORACLE_HOME path to invoke script
Rem    qinwan      12/02/16 - Unconfigure ORE
Rem    qinwan      12/02/16 - Created
Rem

alter session set "_ORACLE_SCRIPT" = true;

define orahome = '&1';

VARIABLE rqpdr  varchar2(128)
VARIABLE rqdrp  varchar2(128)

COLUMN :rqpdr NEW_VALUE rqpdr_file NOPRINT
COLUMN :rqdrp NEW_VALUE rqdrp_file NOPRINT

Declare
 ore_exist integer := 0;
Begin
  select count(*) into ore_exist from all_tables
  where owner = 'SYS' and table_name = 'RQ$CONFIG';
  If (ore_exist > 0) Then
    :rqpdr := 'rqpdrp08.sql';
    :rqdrp := 'rqdrp.sql';
  Else
    :rqpdr := 'rqnothing.sql';
    :rqdrp := 'rqnothing.sql';
  End If;
End;
/

select :rqpdr from sys.dual;
@@&orahome/R/server/&rqpdr_file

alter session set current_schema = "SYS";

select :rqdrp from sys.dual;
@@&orahome/R/server/&rqdrp_file 

alter session set "_ORACLE_SCRIPT" = false;