Oracle packages - nested table cursor - 11g upgrade testing

Question

I have a package call Crisis_Contacts. This package has a function(generate_file) in it that has a create cusor statement which calls on another function(split) in another package called NCF_UTL. In testing our code for a 11g upgrade the cursor statement calling on the split function is throwing a Error: ORA-00600: internal error code, arguments: [4814], [5], [0], [0], [], [], [], [], [], [], [], [] when compiling the package, which it was not doing prior to upgrade. Can you suggest a possible workaround or mod to this code to stop the error from occuring.
Basically, this code is reading html files and spliting them into section and loading them into the cursor. Then the cursor is read to write them to a table. Then it reads the table and transmits the lines of html to another location.
CREATE OR REPLACE package body ACADMGR.crisis_contacts as
function generate_file( file_type in varchar2,
person_pidm in integer := null,
person_id in varchar2 := null,
dry_run in varchar2 := 'N',
pidm_filter in varchar2 := null,
include_placeholders in varchar2 := 'N',
comments in varchar2 := null ) return integer is
cursor typeDef is
select * from crisis_contact_file_type ccft
where ccft.file_type = generate_file.file_type;
file_type_def typeDef%rowtype;
cursor fieldDef is
select * from crisis_contact_file_field ccff
where ccff.file_type = generate_file.file_type
order by seq asc;
type r_typ is ref cursor;
r r_typ;
datasel varchar2(32767) := '';
r_pidm integer;
pers_pidm integer := person_pidm;
prev_pidm integer;
r_tag varchar2(255);
r_val varchar2(4000);
type field_list is table of varchar2(256);
type field_index is table of integer index by varchar2(256);
type val_list is table of varchar2(4000);
type req_tbl is table of boolean index by varchar2(256);
req_fields field_list := field_list();
all_req_seen boolean;
fields field_list := field_list();
vals val_list := val_list();
field_idx field_index;
out_id integer;
out_line integer := 0;
buf varchar2(4000);
saved_out_line integer := 0;
xml_section_lf_delims ncf_utl.split_tbl := ncf_utl.split_tbl( ncf_utl.crlf, chr(13), chr(10) );
cursor splitcur( txt in varchar2 ) is
select column_value line from table(ncf_utl.split( txt, xml_section_lf_delims ));
cursor get_output is
select text from crisis_contact_file_line
where output_id = out_id
order by line_no asc;
log_time date := sysdate;
log_seq integer := 1;
procedure outp( txt in varchar2 ) is
begin
--dbms_output.put_line( txt );
insert into crisis_contact_file_line
( output_id, line_no, text )
values
( out_id, out_line, txt );
out_line := out_line + 1;
end;
procedure split_outp( txt in varchar2 ) is
begin
if txt is not null then
for r in splitCur( txt ) loop
outp( r.line );
end loop;
end if;
end;
begin
open typeDef;
fetch typeDef into file_type_def;
close typeDef;
if pers_pidm is null and person_id is not null then
select distinct(spriden_pidm) into pers_pidm from spriden
where spriden_id = person_id;
end if;
insert into crisis_contact_file_out ( file_type, comments ) values ( file_type, comments )
returning output_id into out_id;
datasel := gen_outfile_sql( file_type, pers_pidm, pidm_filter, include_placeholders );
if dry_run = 'Y' then
ncf_utl.output_text( datasel );
else
split_outp( file_type_def.preamble );
buf := '';
for f in fieldDef loop
fields.extend;
fields(fields.last) := f.alias;
field_idx(f.output_field) := fields.last;
vals.extend();
if f.mandatory = 'Y' then
req_fields.extend;
req_fields(req_fields.last) := f.output_field;
end if;
if file_type_def.file_mode = 'DELIM' and file_type_def.print_heading = 'Y' then
buf := buf || case when fieldDef%rowcount > 1 then nvl(file_type_def.delimiter,',') else '' end ||
nvl(file_type_def.quote,'') || nvl(f.alias,f.output_field) || nvl(file_type_def.quote,'');
end if;
end loop;
if length(buf) > 0 then
outp(buf);
end if;
--outp( '<?xml version="1.0" encoding="UTF-8"?>' );
--outp( '<recipients>' );
open r for datasel;
loop
fetch r into r_pidm, r_tag, r_val;
exit when r%notfound;
if prev_pidm is null or prev_pidm != r_pidm then
if prev_pidm is not null then
split_outp( file_type_def.record_end );
all_req_seen := true;
--check and reset 'seen' flags for required fields
for i in 1..req_fields.count loop
if vals(field_idx(req_fields(i))) is null then
all_req_seen := false;
end if;
end loop;
--if not all_req_seen then
-- rollback to USER_START;
-- out_line := saved_out_line;
--end if;
if all_req_seen then
buf := '';
for i in 1..fields.count loop
if file_type_def.file_mode = 'XML' then
outp( ' <' || fields(i) || '>' || vals(i) || '</' || fields(i) || '>' );
elsif file_type_def.file_mode = 'DELIM' then
buf := buf || case when i > 1 then nvl(file_type_def.delimiter,',') else '' end ||
nvl(file_type_def.quote,'') || vals(i) || nvl(file_type_def.quote,'');
end if;
end loop;
if file_type_def.file_mode = 'DELIM' then
outp(buf);
end if;
end if;
end if;
--savepoint USER_START;
--saved_out_line := out_line;
if r_tag != 'endofdata' then
split_outp( file_type_def.record_start );
end if;
for i in 1..fields.count loop
vals(i) := null;
end loop;
end if;
prev_pidm := r_pidm;
if field_idx.exists(r_tag) then
if r_val is not null then
vals(field_idx(r_tag)) := r_val;
end if;
end if;
end loop;
if pers_pidm is not null then
split_outp( file_type_def.record_end );
end if;
split_outp( file_type_def.postamble );
--for o in get_output loop
-- dbms_output.put_line( o.text );
--end loop;
end if;
return out_id;
end generate_file;
procedure gen_and_transmit( file_type in varchar2,
username in varchar2, pass in varchar2,
pidm_filter in varchar2 := null,
include_placeholders in varchar2 := 'N',
comments in varchar2 := null,
url_base in varchar2 := null, url_path in varchar2 := null,
ssl_wallet_path in varchar2 := null, ssl_wallet_pass in varchar2 := null ) is
out_id integer;
begin
out_id := generate_file( file_type, pidm_filter => pidm_filter,
include_placeholders => include_placeholders,
comments => comments );
--transmit_file( out_id, username, pass,
transmit_file( out_id, 'mhaywood', '------------',
url_base => url_base, url_path => url_path,
ssl_wallet_path => ssl_wallet_path, ssl_wallet_pass => ssl_wallet_pass );
end gen_and_transmit;
begin
UTL_HTTP.set_persistent_conn_support( true, 10 );
end;
create or replace
PACKAGE BODY NCF_UTL IS
PROCEDURE OUTPUT_TEXT( BUFFER IN VARCHAR2, LINE_LEN IN INTEGER := 80 ) IS
TYPE CHRLIST IS TABLE OF VARCHAR2(1);
cr VARCHAR2(1) := CHR(13);
     lf VARCHAR2(1) := CHR(10);
     tab VARCHAR2(1) := CHR(9);
     whitespace CHRLIST := CHRLIST( ' ', tab );
     pos INTEGER := 1;
     len INTEGER;
     brk INTEGER;
     curbrk INTEGER;
     lnbrk INTEGER;
     whtbrk INTEGER;
     i INTEGER;
BEGIN
len := LENGTH(BUFFER);
     WHILE pos <= len
     LOOP
     WHILE SUBSTR( BUFFER, pos, 1 ) IN ( cr, lf )
     LOOP
     pos := pos + 1;
     END LOOP;
     --find the next newline type char, or pos+250 if one isn't found
lnbrk := LEAST( NVL(NULLIF(INSTR( BUFFER, cr, pos ),0),pos+250),
                         NVL(NULLIF(INSTR( BUFFER, lf, pos ),0),pos+250) );
     --after the loop:
     -- whtbrk should be the last whitespace char before LINE_LEN + pos
     -- (or == pos, if none found)
     -- curbrk should be == 0 or the 1st whitespace after LINE_LEN + pos
     whtbrk := pos;
     curbrk := pos;
     FOR i IN 1..whitespace.COUNT
     LOOP
     LOOP
     curbrk := INSTR( BUFFER, whitespace(i), whtbrk + 1 );
          IF curbrk <= pos + LINE_LEN AND curbrk >= whtbrk THEN
          whtbrk := curbrk;
          END IF;
          EXIT WHEN curbrk > pos + LINE_LEN OR curbrk = 0;
          END LOOP;
          EXIT WHEN curbrk > pos + LINE_LEN;
     END LOOP;
     brk := LEAST( len + 1, lnbrk, NVL( NULLIF( whtbrk, pos ), pos + 250 ),
                    NVL( NULLIF( curbrk, 0 ), pos + 250 ), pos + 250 );
     dbms_output.put_line( SUBSTR( BUFFER, pos, brk - pos ) );
     pos := brk;
     END LOOP;
END;
function split( str in varchar2, d0 in varchar2, d1 in varchar2 := null,
d2 in varchar2 := null, d3 in varchar2 := null,
d4 in varchar2 := null, d5 in varchar2 := null,
d6 in varchar2 := null, d7 in varchar2 := null,
d8 in varchar2 := null, d9 in varchar2 := null )
return split_tbl pipelined is
pos integer := 1;
curidx integer;
idx integer;
delims split_tbl;
idx_delim varchar2(32767);
len integer := length( str );
begin
if d0 is null then
--split on whitespace
delims := split_tbl( ' ', chr(9), chr(10), chr(13) );
else
delims := split_tbl( d0, d1, d2, d3, d4, d5, d6, d7, d8, d9 );
end if;
loop
idx := -1;
--we want the lowest value of IDX > 0
for i in 1..delims.count loop
curidx := instr( str, delims(i), pos, 1 );
if curidx > 0 then
if idx = -1 or curidx < idx then
idx := curidx;
idx_delim := delims(i);
end if;
end if;
end loop;
if idx > 0 then
--if splitting on whitespace, treat any amount of it as
--a single delimiter
if d0 is not null or idx > pos then
pipe row( substr( str, pos, idx - pos ) );
end if;
else
-- also make sure to ignore trailing whitespace
if d0 is not null or pos <= len then
pipe row( substr( str, pos ) );
end if;
exit;
end if;
pos := idx + length( idx_delim );
end loop;
return;
end split;
function split( str in varchar2, delimiters in split_tbl := null )
return split_tbl pipelined is
i integer;
cursor spcur( d0 in varchar2 := null, d1 in varchar2 := null,
d2 in varchar2 := null, d3 in varchar2 := null,
d4 in varchar2 := null, d5 in varchar2 := null,
d6 in varchar2 := null, d7 in varchar2 := null,
d8 in varchar2 := null, d9 in varchar2 := null ) is
select column_value v from table (split(str,d0,d1,d2,d3,d4,d5,d6,d7,d8,d9));
function x( i in integer ) return varchar2 is
begin
if delimiters.exists(i) then
return delimiters(i);
else
return null;
end if;
end;
begin
for r in spcur( x(0),x(1),x(2),x(3),x(4),x(5),x(6),x(7),x(8),x(9) ) loop
pipe row( r.v );
end loop;
end split;
END;
Thanks

Answer 1

Curious behavior, but irrelevant, IMHO, since one never switches back and forth between two releases in the real world. All that STARTUP UPGRADE does is that it enables upgrade scripts to be run - it does not prevent statements like CREATE USER from being executed since the upgrade may create new needed accounts
http://docs.oracle.com/cd/E11882_01/server.112/e16604/ch_twelve045.htm#SQPUG128
HTH
Srini