MINI MINI MANI MO

Rem
Rem $Header: oracler/admin/rqcfg.sql /st_oracler_1.5.1.0.1/3 2017/07/17 19:50:14 qinwan Exp $
Rem
Rem rqcfg.sql
Rem
Rem Copyright (c) 2016, 2017, Oracle and/or its affiliates. 
Rem All rights reserved.
Rem
Rem    NAME
Rem      rqcfg.sql - Configure ORE upon Database
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/rqcfg.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 already configured
Rem    qinwan      06/12/17 - remove user_name and rqadmin parameters
Rem    qinwan      02/13/17 - add ORACLE_HOME path to invoke script
Rem    qinwan      12/12/16 - configure ORE
Rem    qinwan      12/12/16 - Created
Rem

SET VERIFY OFF
alter session set "_ORACLE_SCRIPT" = true;

-- [perm_tblspc] [temp_tblspc] [ORACLE_HOME] [R_HOME]
define permtbl = '&1';
define temptbl = '&2';
define orahome = '&3';
define rhome = '&4';

VARIABLE rqcrt  varchar2(128)
VARIABLE rqadm  varchar2(128)
VARIABLE rqsys  varchar2(128)
VARIABLE rqprc  varchar2(128)

COLUMN :rqcrt NEW_VALUE rqcrt_file NOPRINT
COLUMN :rqadm NEW_VALUE rqadm_file NOPRINT
COLUMN :rqsys NEW_VALUE rqsys_file NOPRINT
COLUMN :rqprc NEW_VALUE rqprc_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
    :rqcrt := 'rqcrt.sql';
    :rqadm := 'rqadmin.sql';
    :rqsys := 'rqsys.sql';
    :rqprc := 'rqproc.sql';
  Else
    :rqcrt := 'rqnothing.sql';
    :rqadm := 'rqnothing.sql';
    :rqsys := 'rqnothing.sql';
    :rqprc := 'rqnothing.sql';
  End If;
End;
/

select :rqcrt from sys.dual;
@@&orahome/R/server/&rqcrt_file rqsys &permtbl &temptbl;

update rq$config set value = '&rhome'
 where name = 'R_HOME' and :rqcrt = 'rqcrt.sql';
update rq$config set value = '&orahome/R/library'
 where name = 'R_LIBS_USER' and :rqcrt = 'rqcrt.sql';
commit;

select :rqadm from sys.dual;
@@&orahome/R/server/&rqadm_file

alter session set current_schema = "RQSYS";
select :rqsys from sys.dual;
@@&orahome/R/server/&rqsys_file &orahome/lib/ore.so &orahome/lib/librqe.so

select :rqprc from sys.dual;
@@&orahome/R/server/&rqprc_file

alter session set "_ORACLE_SCRIPT" = false;