10GR2 - How can I load multiple row values into one field?

Question

Hi
Can anyone please help with a problem I'm having with merging data.
The source table has multiple entries for the same Id e,g,
ID Code
1 123
1 234
2 123
2 567
The output should only have one row per ID e.g.
ID Code_List
1 123;234
2 123;567
Do you know what operator I could use that would allow me to do this? I've looked at unpivot but I think I would need multiple output fields (one for each Code). I have to concatinate the codes and separate with a semi-colon.
Thanks
GB

Answer 1

Q) Input data
=============
COL_0,COL_4
1235,"G0123,G124,G25,G6"
1236,"G01,G23,G124,G25,G6"
1237,"G0123,G1,G24,G25,G6"
1238,"G,G0123,G124,G25,G6"
1239,"G0123124,G256"
Output
======
TEST_ID,TEST_VAL
1235,G0123
1235,G124
1235,G25
1235,G6
1236,G01
1236,G23
1236,G124
1236,G25
1236,G6
1237,G0123
1237,G1
1237,G24
1237,G25
1237,G6
1238,G
1238,G0123
1238,G124
1238,G25
1238,G6
1239,G0123124
1239,G256
I wrote this procedure...
declare
rcd_cnt number;
test_id123 number;
junk_1 number;
cd_occurences number;
child_count number;
str_abc varchar2(200);
char_pos     number default 0;
cd_temp_str varchar2(50);--:= 'G0123,G124,G25,G6';
begin
select nvl(count(col_4),0) into rcd_cnt from test_ee where col_4 is not null;
for aa in 1 .. rcd_cnt loop
select col_0,rownum rn,nvl(trim(col_4),0) into test_id123,junk_1,cd_temp_str from (select col_0,rownum rn,col_4 from test_ee where col_4 is not null) where rn = aa;
--dbms_output.put_line('...I am in for loop...' || cd_temp_str);
     --dbms_output.put_line('===================' || rcd_cnt || '.................' ||aa);
cd_occurences := length(cd_temp_str) - length(replace(cd_temp_str,','));
dbms_output.put_line(cd_temp_str || '...Str Occurences are ...'||cd_occurences ||'**************'||test_id123);
child_count :=0;
for z in 1..length(cd_temp_str)+1 loop
child_count := child_count+1;
     if(instr(cd_temp_str,',') > 0) then
     char_pos := instr(cd_temp_str,',',1,1);
          str_abc := substr(cd_temp_str,1,char_pos-1);
     dbms_output.put_line('..Partial String of..'|| z ||'..is.....' || str_abc);
          insert into test_xx(test_id,test_val) values(test_id123,str_abc);
     end if;
     cd_temp_str := substr(cd_temp_str,char_pos+1,length(cd_temp_str));
     if(cd_occurences=child_count) then
     dbms_output.put_line('..Partial String of..is.....' || cd_temp_str);
          insert into test_xx(test_id,test_val) values(test_id123,cd_temp_str);
     end if;     
end loop; -- close for of z */
--dbms_output.put_line('...I am in end for loop...');
     end loop; -- close for of aa
end;
instead of procedure,is there any way from sqlqery.