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;
*/
begin Employees_Cur_Dbms_Sql.Set_Up_Statement; end;

/
-- repeat the query
/
/*
BEGIN DBMS_OUTPUT.GET_LINES(:LINES, :NUMLINES); END;

begin Employees_Cur_Dbms_Sql.Set_Up_Statement; end;
select last_name from employees where department_id = :department_id
*/
-- use values for department_id from
-- ( 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110 )
-- for example...

begin Show_Rows_For_Dept_Dbms_Sql ( 10 ); end;
/
/*
Whalen
*/

begin Show_Rows_For_Dept_Dbms_Sql ( 90 ); end;
/
/*
King

Kochhar
De Haan
*/

-- repeat the query after each successive Show_Rows_For_Dept_Dbms_Sql
/
/*
BEGIN DBMS_OUTPUT.GET_LINES(:LINES, :NUMLINES); END;

begin Show_Rows_For_Dept_Dbms_Sql ( 90 ); end;
select last_name from employees where department_id = :department_id
*/
begin Employees_Cur_Dbms_Sql.Free_Resources; end;
/
-- repeat the query. Note the effect of closing the cursor

/
/*
BEGIN DBMS_OUTPUT.GET_LINES(:LINES, :NUMLINES); END;
begin Employees_Cur_Dbms_Sql.Free_Resources; end;
*/