create or replace procedure Test1
as
strresult varchar2(20);
cursor cursor1 is select empno from emp;
begin
strresult:='empno is ';
for everyrow in cursor1 loop
begin
strresult:=everyrow.empno;
dbms_output.put_line(strresult);
end ;
end loop;
end;