create or replace procedure test As
Cursor cur1 Is Select townname From town;
Name Varchar2(20);
Begin  For Name In cur1 Loop
  Begin
  dbms_output.put_line(Name);
  End;
  End Loop;
end test;