HI,
When am creating one package body,its throwing error,
Code which am using to create is:
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;
And the ERROR is:-
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
-------- -----------------------------------------------------------------
Please sugggest a solution