废话少说~直接看代码

输出单行

 

 
  
  1. declare 
  2. tn varchar2(100);  
  3. begin   
  4.  select tname into tn from tab where tname='TEST4';  
  5.  dbms_output.put_line(tn);  
  6. end; 
 
  
输出多行(内嵌表)
 
  
 
 
  
 
  
  1. declare 
  2.   type tbl_tabs_name is table of  varchar2(32676) index by binary_integer;  
  3.   v_table_name tbl_tabs_name;  
  4. begin 
  5.   select a.sql_text bulk collect into v_table_name from v$sqltext a,v$session b,v$process c  
  6. where c.spid=22468  
  7. and b.PADDR=c.ADDR  
  8. and b.SQL_ADDRESS=a.ADDRESS;  
  9.  for i in 1 .. v_table_name.count loop  
  10.      dbms_output.put_line(v_table_name(i));  
  11.  end loop;  
  12. end;  
  13. /