Numeric or value error problem

Question

Hi,
I created the following function on Oracle 8i:
create or replace function get_pub_info(p_inbox in varchar2)
return varchar2 deterministic is
cursor c_pub(p_inb varchar2) is
select a.pub_name,
a.pub_code,
     b.fprocess_id
from pub a, fprocess b
where b.inbox_id = p_inb
and a.pub_code = b.pub_code;
v_inbox varchar2(25) default p_inbox;
v_pubn pub.pub_name%type;
v_pubc pub.pub_code%type;
v_fprocid fprocess.fprocess_id%type;
v_info varchar2(4000);
begin
open c_pub(trim(v_inbox));
v_info := '[';
loop
fetch c_pub into v_pubn, v_pubc, v_fprocid;
exit when c_pub%notfound;
if (v_pubn is not null) and (v_pubc is not null) and (v_fprocid is not null) then
v_info := v_info || '{PUB_PROCESS_ID=>"' || trim(v_fprocid) || '", PUB_CODE=>"' || trim(v_pubc) || '", PUB_NAME=>"'|| trim(v_pubn) ||'"},';
end if;
end loop;
close c_pub;
if v_info is not null then
if length(v_info) <= 1 then
v_info := '';
else
v_info := substr(v_info,1,length(v_info)-1)||']';
end if;
else
v_info := '';
end if;
return v_info;
end;
This function is used to generate a view column, and when I type "select * from view_name" on SQL*Plus, I get the error:
ORA-06502: PL/SQL: numeric or value error
ORA-06512: at "ISI_PUBS.GET_PUB_INFO", line 25
ORA-06512: at line 1
Can anybody give me a hand with this? Why this error happens?
I would really appreciate your help.
Thanks in advance.
-eric-

Answer 1

Wednesday, May 15, 2002 1:29pm ADT
Hi Eric,
Can't recreate your error.... I did the following (see SQL*PLUS output at end of this post):
(1) created the PUB table using info you provided
(2) inserted a row into PUB table and commited
(3) created the FPROCESS table using info you provided
(4) inserted a row into FPROCESS table and commited
(5) selected from PUB table
(6) selected from FPROCESS table
(7) executed the get_pub_info() function
What happens when you just try the following?:
select get_pub_info('whatever') from dual;
Regards,
Phany
Moncton, NB, Canada
OUTPUT FROM SQL*PLUS
======================
SQL> CREATE TABLE PUB (P_INB VARCHAR2(1), PUB_NAME VARCHAR2(1), PUB_CODE VARCHAR2(1));
Table created.
SQL> INSERT INTO PUB VALUES('A','B','C');
1 row created.
SQL> COMMIT;
Commit complete.
SQL> CREATE TABLE FPROCESS (INBOX_ID VARCHAR2(1), FPROCESS_ID VARCHAR2(1), PUB_CODE VARCHAR2(1));
Table created.
SQL> INSERT INTO FPROCESS VALUES ('A','B','C');
1 row created.
SQL> COMMIT;
Commit complete.
SQL> CREATE OR REPLACE function get_pub_info(p_inbox in varchar2)
2 RETURN varchar2 deterministic
3 IS
4 cursor c_pub(p_inb varchar2)
5 is
6 select a.pub_name, a.pub_code, b.fprocess_id
7 from pub a, fprocess b
8 where b.inbox_id = p_inb
9 and a.pub_code = b.pub_code;
10
11 v_inbox varchar2(25) default p_inbox;
12 v_pubn pub.pub_name%type;
13 v_pubc pub.pub_code%type;
14 v_fprocid fprocess.fprocess_id%type;
15 v_info varchar2(4000);
16 BEGIN
17 open c_pub(trim(v_inbox));
18
19 v_info := '[';
20
21 loop
22 fetch c_pub into v_pubn, v_pubc, v_fprocid;
23 exit when c_pub%notfound;
24
25 if (v_pubn is not null) and (v_pubc is not null) and (v_fprocid is not null) then
26 v_info := v_info || '{PUB_PROCESS_ID=>"' || trim(v_fprocid) || '", PUB_CODE=>"' || trim(v_pubc) || '", PUB_NAME=>"'|| trim(v_pubn) ||'"},';
27 end if;
28 end loop;
29
30 close c_pub;
31
32 if v_info is not null
33 then
34 if length(v_info) <= 1 then
35 v_info := '';
36 else
37 v_info := substr(v_info,1,length(v_info)-1) || ']';
38 end if;
39 else
40 v_info := '';
41 end if;
42
43 return v_info;
44 END;
45 /
Function created.
SQL> select * from pub;
P P P
A B C
SQL> select * from fprocess;
I F P
A B C
SQL> SELECT get_pub_info('A') FROM dual;
GET_PUB_INFO('A')
[{PUB_PROCESS_ID=>"B", PUB_CODE=>"C", PUB_NAME=>"B"}]
SQL>
======================