DECLARE
v_empno employee.empno%type;
cursor emp_cursor is select empno,ename,deptno,sal,comm from employee;
 emp_record  emp_cursor%rowtype;
BEGIN
	open emp_cursor;
	loop
		fetch emp_cursor into emp_record ;
		exit when emp_cursor%notfound;
	end loop; 
	
             message('enter empno');
	     go_block('employee');
	     v_empno:=:employee.empno;
	    		
	for i in 1..emp_cursor%rowcount  
	loop 
		if(emp_record.empno=v_empno) then
		
		         go_block('employee');
			:employee.empno:=emp_record.empno;
			:employee.ename:=emp_record.ename;
			:employee.deptno:=emp_record.deptno;
			:employee.sal:=emp_record.sal;
			:employee.comm:=emp_record.comm;
		else
		         message('invalid empno');
			end if;
			
	end loop;
	close emp_cursor;
	
END;