Document rule based classification

Question

from the example in oracle text developers guide i tried to build a rule based document classification, using the code given below:
create or replace package classifier as
procedure this;
end;
show errors
create or replace package body classifier as
procedure this
is
v_document     blob;
v_item          number;
v_doc           number;
begin
for doc in (select document_id, content from documents)
     loop
          v_document :=doc.content;
          v_item:=0;
          v_doc:=doc.document_id;
          for c in (select category_id, category_name from docs_cats_rule_based_class
               where matches(query,v_document)>0)
          loop
               v_item:=v_item +1;
               insert into doc_cat_rule_based_class values (doc.document_id, category_id);
          end loop;
     end loop;
end this;
end;
show errors
exec classifier.this
this gives the following errors:
package classifier Compiled.
line 5: SQLPLUS Command Skipped: show errors
package body Compiled.
line 32: SQLPLUS Command Skipped: show errors
Error starting at line 33 in command:
exec classifier.this
Error report:
ORA-04063: package body "STARDOC.CLASSIFIER" has errors
ORA-06508: PL/SQL: could not find program unit being called: "STARDOC.CLASSIFIER"
ORA-06512: at line 1
i think i am missing some grant to package. please help!

Answer 1

What version of Oracle are you using? Did you create the required tables and index in the earlier steps? What did you run it from? It appears that you did not run it from SQL*Plus. Please see the following demonstration that shows that it works fine on Oracle 10g when run from SQL*Plus with minimal privileges. I did not use any data.
SCOTT@10gXE> CREATE USER stardoc IDENTIFIED BY stardoc
  2  /
User created.
SCOTT@10gXE> GRANT CONNECT, RESOURCE TO stardoc
  2  /
Grant succeeded.
SCOTT@10gXE> CONNECT stardoc/stardoc
Connected.
STARDOC@10gXE>
STARDOC@10gXE> create table news_table
  2    (tk    number primary key not null,
  3       title varchar2(1000),
  4       text  clob)
  5  /
Table created.
STARDOC@10gXE> create table news_categories
  2    (queryid  number primary key not null,
  3       category varchar2(100),
  4       query      varchar2(2000))
  5  /
Table created.
STARDOC@10gXE> create table news_id_cat
  2    (tk         number,
  3       category_id number)
  4  /
Table created.
STARDOC@10gXE> create index news_cat_idx on news_categories (query)
  2  indextype is ctxsys.ctxrule
  3  /
Index created.
STARDOC@10gXE> create or replace package classifier
  2  as
  3    procedure this;
  4  end classifier;
  5  /
Package created.
STARDOC@10gXE> show errors
No errors.
STARDOC@10gXE> create or replace package body classifier
  2  as
  3    procedure this
  4    is
  5        v_document    clob;
  6        v_item        number;
  7        v_doc            number;
  8    begin
  9        for doc in (select tk, text from news_table)
10        loop
11          v_document := doc.text;
12          v_item := 0;
13          v_doc  := doc.tk;
14          for c in
15            (select queryid, category from news_categories
16             where matches (query, v_document) > 0)
17          loop
18             v_item := v_item + 1;
19             insert into news_id_cat values (doc.tk,c.queryid);
20          end loop;
21        end loop;
22    end this;
23  end classifier;
24  /
Package body created.
STARDOC@10gXE> show errors
No errors.
STARDOC@10gXE> exec classifier.this
PL/SQL procedure successfully completed.
STARDOC@10gXE>