set serveroutput on
@

begin
  declare p int;
  set p = mon_get_application_handle();

  -- печать результата скалярного подзапоса
  call dbms_output.put_line('number of rows: ' || (select count(1) from table(mon_get_connection(p, -1))) );

  -- печать всех строк запроса
  call dbms_output.put_line('col1 col2 ...');  
  for c1 as 
    select * from table(mon_get_connection(p, -1))
  do
    call dbms_output.put_line(c1.application_handle || ' ' || c1.application_name || ' ...');
  end for;
end
@