Sort Collection

Question

Hi,
How can I sort this collection ( by scode)? I am using oracle 8i. I have tried using code from:
http://technology.amis.nl/blog/?p=1217
but I am not able to get to work. Any help would be appreciated.
Thanks,
Ravi
v_source varchar2(20);
v_source_state char(1);
TYPE record_type is record (scode varchar2(20), scount number);
TYPE table_type is table of record_type index by binary_integer;
v_source1 table_type;
begin
for j in 1..10 loop
if j = 1 then
v_source := 'AEA';
elsif j = 2 then
v_source := 'ACA';
elsif j = 3 then
v_source := 'AAA';
elsif j = 4 then
v_source := 'ABA';
elsif j = 5 then
v_source := 'ABA';
elsif j = 6 then
v_source := 'ADA';
elsif j = 7 then
v_source := 'ADA';
elsif j = 8 then
v_source := 'AEA';
elsif j = 9 then
v_source := 'AEA';
elsif j = 10 then
v_source := 'AAA';
end if ;
---- AAA 2
---- ABA 2
---- ACA 1
---- ADA 2
---- AEA 3
if v_source1.count > 0 Then
v_source_state := 'N';
for i in v_source1.first..v_source1.last loop
if v_source1(i).scode = v_source then
v_source1(i).scount := v_source1(i).scount + 1;
v_source_state := 'Y';
end if;
if i = v_source1.count and v_source_state = 'N' then
v_source1(i+1).scode := v_source;
v_source1(i+1).scount := 1;
end if;
end loop;
else
v_source1(1).scode := v_source;
v_source1(1).scount := 1;
end if;
end loop;
for k in v_source1.first..v_source1.last loop
dbms_output.put_line('Source: '||v_source1(k).scode||' Count: '||v_source1(k).scount);
end loop ;
Edited by: joshiravi on Sep 29, 2008 9:40 AM

Answer 1

I have modifed my code but I am getting a error the following error (select statment):
Line # 89 Column # = 1 Error Text = PLS-00801: internal error[22914]
Line # 89 Column # = 1 Error Text = PL/SQL Statement ignored
Ref:
http://asktom.oracle.com/pls/asktom/f?p=100:11:0::::P11_QUESTION_ID:14334298866128
New Code:
v_source varchar2(20);
v_source_state char(1);
TYPE record_type IS RECORD
(scode varchar2(20), scount number);
--TYPE table_type IS TABLE OF record_type INDEX BY PLS_INTEGER;
TYPE table_type IS TABLE OF record_type index by binary_integer;
v_sort_table source_sort_table := source_sort_table();
--v_index                           PLS_INTEGER;
v_index binary_integer;
v_source1 table_type;
begin
for j in 1..10 loop
if j = 1 then
v_source := 'AEA';
elsif j = 2 then
v_source := 'ACA';
elsif j = 3 then
v_source := 'AAA';
elsif j = 4 then
v_source := 'ABA';
elsif j = 5 then
v_source := 'ABA';
elsif j = 6 then
v_source := 'ADA';
elsif j = 7 then
v_source := 'ADA';
elsif j = 8 then
v_source := 'AEA';
elsif j = 9 then
v_source := 'AEA';
elsif j = 10 then
v_source := 'AAA';
end if ;
---- AAA 2
---- ABA 2
---- ACA 1
---- ADA 2
---- AEA 3
if v_source1.count > 0 Then
v_source_state := 'N';
for i in v_source1.first..v_source1.last loop
if v_source1(i).scode = v_source then
v_source1(i).scount := v_source1(i).scount + 1;
v_source_state := 'Y';
end if;
if i = v_source1.count and v_source_state = 'N' then
v_source1(i+1).scode := v_source;
v_source1(i+1).scount := 1;
end if;
end loop;
else
v_source1(1).scode := v_source;
v_source1(1).scount := 1;
end if;
end loop;
for k in v_source1.first..v_source1.last loop
dbms_output.put_line('Source: '||v_source1(k).scode||' Count: '||v_source1(k).scount);
end loop ;
v_sort_table.DELETE;
v_index := v_source1.FIRST;
LOOP
EXIT WHEN v_index IS NULL;
v_sort_table.EXTEND;
v_sort_table(v_sort_table.LAST) := source_sort(v_source1(v_index).scode,
v_source1(v_index).scount);
v_index := v_source1.NEXT(v_index);
END LOOP;
-- Sort the table in order of scode ascending
SELECT CAST (MULTISET (SELECT source_sort(scode, scount)
FROM TABLE(v_sort_table)
ORDER BY scode)
AS source_sort_table)
INTO v_sort_table
FROM dual;