declare
	v_last number;
	v_first number;
	v_empno number;
	v_current number;
begin
	v_current := :system.cursor_record;
	v_empno := :empno;
	if :system.cursor_record > 1 then
		first_record;
	while ( :system.cursor_record < v_current) loop
		if :empno = v_empno then 
			message('This is duplicate record');
			go_record(v_current);
			delete_record;
		end if;
		exit when :system.last_record='true';
		next_record;		
	end loop;	
	else
		go_record(v_current);
	end if;
	next_item;
exception when others then
	null;
end;