Programming

CREATE OR REPLACE PACKAGE BODY "MAMPROD"."PKG_QS_ADMIN"                 AS
-- ============================================================================
PROCEDURE CREATE_PARAMETERS
IS
BEGIN
  -- must log on as owner, aka: MAM PROD_ OR MAMP ROD_PHOTO!!!!
  -- must edit using NOTEPAD !!!
  -- ---------------------------------------------------
  -- ---------------------------------------------------
  BEGIN
        ctx_ddl.drop_preference         ('QS_TEXT_STORAGE_'||UPPER(USER));
  EXCEPTION
        WHEN OTHERS THEN
                NULL;
  END;
  -- ---------------------------------------------------
  BEGIN
        ctx_ddl.create_preference       ('QS_TEXT_STORAGE_'||UPPER(USER), 'BASIC_STORAGE');
        ctx_ddl.set_attribute           ('QS_TEXT_STORAGE_'||UPPER(USER), 'I_TABLE_CLAUSE','tabl
espace '||UPPER(USER)||'_QS_INDEX_1 storage (initial 400M next 30m)');
        ctx_ddl.set_attribute           ('QS_TEXT_STORAGE_'||UPPER(USER), 'K_TABLE_CLAUSE','tabl
espace '||UPPER(USER)||'_QS_INDEX_1 storage (initial 20M  next 10m)');
        ctx_ddl.set_attribute           ('QS_TEXT_STORAGE_'||UPPER(USER), 'R_TABLE_CLAUSE','tabl
espace '||UPPER(USER)||'_QS_INDEX_1 storage (initial 20M  next 10m)');
        ctx_ddl.set_attribute           ('QS_TEXT_STORAGE_'||UPPER(USER), 'N_TABLE_CLAUSE','tabl
espace '||UPPER(USER)||'_QS_INDEX_1 storage (initial 1M   next 1m)');
        ctx_ddl.set_attribute           ('QS_TEXT_STORAGE_'||UPPER(USER), 'I_INDEX_CLAUSE','tabl
espace '||UPPER(USER)||'_QS_INDEX_1 storage (initial 10M  next 10m)');
  END;
  -- ---------------------------------------------------
  -- ---------------------------------------------------
  BEGIN
        ctx_ddl.drop_preference         ('QS_TEXT_DATASTORE_'||UPPER(USER));
  EXCEPTION
        WHEN OTHERS THEN
                NULL;
  END;
  -- ---------------------------------------------------
  BEGIN
        ctx_ddl.create_preference       ('QS_TEXT_DATASTORE_'||UPPER(USER), 'DETAIL_DATASTORE
');
        ctx_ddl.set_attribute           ('QS_TEXT_DATASTORE_'||UPPER(USER), 'binary'            , 'FALSE')
;
        ctx_ddl.set_attribute           ('QS_TEXT_DATASTORE_'||UPPER(USER), 'detail_table'      , UPP
ER(USER)||'.QS_TEXT_DTL');
        ctx_ddl.set_attribute           ('QS_TEXT_DATASTORE_'||UPPER(USER), 'detail_key'        , 'RECO
RD_ID');
        ctx_ddl.set_attribute           ('QS_TEXT_DATASTORE_'||UPPER(USER), 'detail_lineno'     , 'S
EQ_ID');
        ctx_ddl.set_attribute           ('QS_TEXT_DATASTORE_'||UPPER(USER), 'detail_text'       , 'TXT
');
  END;
  -- ---------------------------------------------------
  -- ---------------------------------------------------
  BEGIN
        ctx_ddl.drop_stoplist           ('QS_TEXT_STOPLIST_'||UPPER(USER));
  EXCEPTION
        WHEN OTHERS THEN
                NULL;
  END;
  -- ---------------------------------------------------
  BEGIN
        ctx_ddl.create_stoplist         ('QS_TEXT_STOPLIST_'||UPPER(USER), 'BASIC_STOPLIST');
  END;
  -- ---------------------------------------------------
  -- ---------------------------------------------------
  BEGIN
        ctx_ddl.drop_preference         ('QS_TEXT_WORDLIST_'||UPPER(USER));
  EXCEPTION
        WHEN OTHERS THEN
                NULL;
  END;
  -- ---------------------------------------------------
  BEGIN
        ctx_ddl.create_preference       ('QS_TEXT_WORDLIST_'||UPPER(USER) ,'BASIC_WORDLIST');
        ctx_ddl.set_attribute           ('QS_TEXT_WORDLIST_'||UPPER(USER), 'WILDCARD_MAXTERMS'
, 15000);
  END;
  -- ---------------------------------------------------
  -- ---------------------------------------------------
END;
-- ============================================================================
PROCEDURE CREATE_INDEX
IS
BEGIN
        -- ---------------------------------------------------
        BEGIN
                EXECUTE IMMEDIATE 'DROP INDEX '||UPPER(USER)||'.QS_TEXT_MST_IXCON' ;
        EXCEPTION
                WHEN OTHERS THEN
                        NULL;
        END;
        -- ---------------------------------------------------
        EXECUTE IMMEDIATE 'CREATE INDEX '||UPPER(USER)||'.QS_TEXT_MST_IXCON'
                ||' ON '||UPPER(USER)||'.QS_TEXT_mst (UPD_FLG)'
                ||' INDEXTYPE IS CTXSYS.CONTEXT'
                ||' PARAMETERS'
                ||' ('''
                ||' STORAGE     QS_TEXT_STORAGE_'       ||UPPER(USER)
                ||' MEMORY      50m'
                ||' DATASTORE   QS_TEXT_DATASTORE_'     ||UPPER(USER)
                ||' STOPLIST    QS_TEXT_STOPLIST_'      ||UPPER(USER)
                ||' WORDLIST    QS_TEXT_WORDLIST_'      ||UPPER(USER)
                ||''')';
        -- ---------------------------------------------------
END;
-- ============================================================================
PROCEDURE ALTER_INDEX_REBUILD
IS
BEGIN
        -- ---------------------------------------------------
        EXECUTE IMMEDIATE 'ALTER  INDEX '||UPPER(USER)||'.QS_TEXT_MST_IXCON REBUILD ONL
INE'
                ||' PARAMETERS'
                ||' ('''
                ||' REPLACE'
                ||' MEMORY      50m'
                ||''')';
        -- ---------------------------------------------------
        RETURN;
--      -- ---------------------------------------------------
--      EXECUTE IMMEDIATE 'ALTER  INDEX '||UPPER(USER)||'.QS_TEXT_MST_IXCON REBUILD O
NLINE'
--              ||' PARAMETERS'
--              ||' ('''
--              ||' REPLACE'
--              ||' STORAGE     QS_TEXT_STORAGE_'       ||UPPER(USER)
--              ||' MEMORY      50m'
--              ||' DATASTORE   QS_TEXT_DATASTORE_'     ||UPPER(USER)
--              ||' STOPLIST    QS_TEXT_STOPLIST_'      ||UPPER(USER)
--              ||' WORDLIST    QS_TEXT_WORDLIST_'      ||UPPER(USER)
--              ||''')';
--      -- ---------------------------------------------------
END;

Warning: Package Body created with compilation errors.
 
LINE/COL ERROR
-------- -----------------------------------------------------------------
45/1 PLS-00103: Encountered the symbol "ER" when expecting one of the
following:
. ( ) , * @ % & | = - + < / > at in is mod remainder not
range rem => .. <an exponent (**)> <> or != or ~= >= <= <>
and or like LIKE2_ LIKE4_ LIKEC_ between || multiset member
SUBMULTISET_
The symbol "." was substituted for "ER" to continue.
124/6 PLS-00103: Encountered the symbol "
-- ||" when expecting one of the following:
:= . ( @ % ;
LINE/COL ERROR