Connect programmer/p@9i
Set ServerOutput On Size 10000
Connect observer/p@9i
select * from open_cursor_sql_text
  order by sql_text
/

/*
BEGIN DBMS_OUTPUT.ENABLE(10000); END;
*/
-- use values for department_id from

-- ( 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110 )
-- for example...
begin Show_Rows_For_Dept_Dynamic_Sql (
  'select last_name from employees where department_id = 10' ); end;
/
/*
Whalen
*/


begin Show_Rows_For_Dept_Dynamic_Sql (
  'select last_name from employees where department_id = 90' ); end;
/
/*
King
Kochhar
De Haan
*/

-- repeat the query after each successive Show_Rows_For_Dept_Dynamic_Sql
/
/*
BEGIN DBMS_OUTPUT.GET_LINES(:LINES, :NUMLINES); END;
begin Show_Rows_For_Dept_Dynamic_Sql (   'select last_name from employees where department_id = 90' ); end;
*/

-- Note there's no select last_name from employees...