How can i print a result in one line

Question

hi guys
i have a small procedure as below
create or replace procedure test_sp is
l_str varchar2(2000) := replace('14522|||Lessig|||Minna|||Lessig, Minna','|||','|');
i pls_integer;
l_start_pos INTEGER := 1;
l_end_pos INTEGER :=1;
field_v varchar2(255);
begin
WHILE l_end_pos <> 0 LOOP
IF l_end_pos <> 0 THEN
l_end_pos := instr(l_str,'|',l_start_pos);
if l_end_pos = 0 then
dbms_output.put_line(l_str);
end if;
field_v := substr(l_str,1,instr(l_str,'|')-1);
l_str := substr(l_str,instr(l_str,'|')+1);
dbms_output.put_line(field_v);
END IF;
END LOOP;
when i execute the above procedure the result showed me like
14522
Lessig
Minna
Lessig, Minna
i would like to assign each value in different variable.
how can i do that?
Thanks

Answer 1

hi guys could you please take a look in my proc below
create or replace procedure test_sp is
l_str varchar2(2000) := replace('14522|||Lessig|||Minna|||Lessig, Minna','|||','|');
cnt pls_integer := 0;
l_start_pos INTEGER := 1;
l_end_pos INTEGER :=1;
field_v varchar2(255);
TYPE XYZ is TABLE OF VARCHAR2(2000) index by binary_integer;
var XYZ;
begin
     for i in 1..4 loop
          var(i) := ' ';
     end loop;
     for i in var.FIRST..var.LAST loop
          IF l_end_pos <> 0 THEN
          l_end_pos := instr(l_str,'|',l_start_pos);
               if l_end_pos = 0 then
                    var(i) := substr(l_str,1,instr(l_str,'|')-1);
               dbms_output.put_line(var(i));
               end if;
          l_str := substr(l_str,instr(l_str,'|')+1);
               var(i) := substr(l_str,1,instr(l_str,'|')-1);
               dbms_output.put_line(var(i));
     END IF;
     END LOOP;
end;
this procedure displaying the following result..
SQL> exec test_sp
Lessig
Minna
PL/SQL procedure successfully completed.
while it should print the following desire result.
14522
Lessig
Minna
Lessig, Minna
is any body tell why the above procedure not showing me a desired result?
Thanks