Formatting Output from a procedure

Question

Hi all,
I want to format the output of this procedure
declare
cursor c1 is select tname from tab where tabtype = 'TABLE' ;
tabname varchar2(1000) ;
i number := 1;
rc number ;
str varchar2(1000) ;
begin
open c1 ;
loop
fetch c1 into tabname ;
exit when c1%notfound ;
str := 'select count(*) from ' || tabname ;
execute immediate str into rc ;
dbms_output.put_line(i || ' - ' || tabname || ' -- ' ||rc) ;
i := i + 1 ;
end loop ;
close c1 ;
end ;
The OUTPUT is like this.......
1 - asdf -- 0
2 - asdfsdafasdf -- 16
3 - asdfsaf -- 327
4 - asdfasdfasfsdafsdfs -- 27
5 - asd -- 128562
Now, I want this output should be like this
1 - asdf -- 0
2 - asdfsdafasdf -- 16
3 - asdfsaf -- 327
4 - asdfasdfasfsdafsdfs -- 27
5 - asd -- 128562
Thanks in advance,
Pal

Answer 1

Use [ pre ] and [ /pre ] with no sapce.
http://www.oracle.com/technology/forums/faq.html#q14
But,for your question, using to_char or lpad, you can format.
dbms_output.put_line(i || ' - ' || tabname || ' -- ' ||lpad(rc,20)) ;
-- Oops, I correct as following.
dbms_output.put_line(rpad(i || ' - ' || tabname || ' -- ' ,60)||lpad(rc,20)) ;
Message was edited by:
ushitaki