Extend error during procedure

Question

ORA-30036: unable to extend segment by 16 in undo tablespace 'UNDO_FIMR'
ORA-06512: at "FIM.INSERT_CASE_TREATMENT", line 25
ORA-06512: at line 2
CREATE OR REPLACE procedure FIM.insert_case_treatment as
cursor case_new is
select case_id, treatment_ids from v_case_treatment_ids;
ids varchar2(30); /* value string from FIMT Cases */
newid varchar2(2); /* individual value */
cPos number;
BEGIN
for V in case_new loop
ids := v.treatment_ids;
if instr(ids,';') > 0 then
while (instr(ids,';') > 0) loop
/* get the first ID */
cPos := instr(ids,';');
if (cPos > 0) then
newid := substr(ids,1,instr(ids,';')-1);
else
newid := ids;
end if;
insert into t_case_treatment(case_id, treatment_id) <-------- line 25
values(v.case_id,
(select li.lid_record_id from t_lookup_items_data li
where li.item_id = 50 and li.sort_seq = newid));
/* drop the first id */
if cPos > 0 then
ids := substr(ids,cPos );
end if;
end loop;
else /* only one entry */
newid := substr(ids,1);
insert into t_case_treatment(case_id, treatment_id)
values(v.case_id,
(select li.lid_record_id from t_lookup_items_data li
where li.item_id = 50 and li.sort_seq = newid));
end if;
end loop;
end;
Data Sample
838, '0;1;2;3;4;5;6;7;8;9;10 '
In case it's not self evident I'm taking a packed dataset and expanding it into a table. The semi-colon delimited values each represent a row in the table.
I've got a version of this that has only single digit values separated by semi-colons and it works just great. I had to make some changes to the process to deal with the possibility of double digit values.
One thing I really with I had is a step through debugger. I've got TOAD, but haven't been able to figure out how to turn on the debugger.
Hope someone notices something....
tia
Chris
Edited by: user7815754 on Mar 10, 2009 2:25 PM

Answer 1

Once I finally got the TOAD debugger working I was able to step through the code and fix it. The error never had anything to do with the available "undo" space. I assumed there might be problems with my assumption of the value of cPos, however without the debugger I was not able to verify that.
Just FYI, here's the final code:
CREATE OR REPLACE procedure FIM.insert_case_treatment as
cursor case_new is
select case_id, treatment_ids from v_case_treatment_ids;
ids varchar2(80); /* value string from FIMT Cases */
newid varchar2(2); /* individual value */
cPos number;
BEGIN
for V in case_new loop
ids := v.treatment_ids;
if instr(ids,';') > 0 then
while (instr(ids,';') > 0) or (length(ids)>0) loop
/* get the first ID */
cPos := instr(ids,';');
if (cPos > 0) then
newid := substr(ids,1,instr(ids,';')-1);
else
newid := rtrim(ids);
ids := '';
end if;
insert into t_case_treatment(case_id, treatment_id)
values(v.case_id,
(select li.lid_record_id from t_lookup_items_data li
where li.item_id = 50 and li.sort_seq = newid));
/* drop the first id */
if cPos > 0 then
ids := substr(ids,cPos+1 );
end if;
end loop;
else /* only one entry */
newid := rtrim(ids);
insert into t_case_treatment(case_id, treatment_id)
values(v.case_id,
(select li.lid_record_id from t_lookup_items_data li
where li.item_id = 50 and li.sort_seq = newid));
end if;
end loop;
end;
Adding "length" and "rtrim" eliminated other problems that were not visible without a debugger.
It turned out that the login instance wasn't authorized to run the debugger. Once I got the authorization things went much faster. :)
Use Toad Adviser under HELP to determine what's turned on and what's not. Clicking on the Adviser message about the debugger revealed the lack of authorization.