Search items one by one

Question

hello experts,
i have a
text field search_part1 in which i put the item for search
another text field i send_by which contains items
a single item comes in list many times.i have to find the item one by one.
i have make this statement for seraching items
Declare
typ varchar2(200);
L_NAME VARCHAR2(50) := :BLOCK3.SEARCH_PART1;
begin
go_block('BLOCK3');
first_record;
loop
if :BLOCK3.SEND_BY = L_NAME then
go_item('SYSTEM.CURSOR_RECORD');
exit;
else
--MESS( :BLOCK3.SEND_BY||'-'||L_NAME);
next_record;
end if;
if :system.last_record = 'TRUE'
THEN
--message('This Item does not exist');
-- message('This Item does not exist');
--go_item('BLOCK3.SEND_BY');
-- clear_item;
EXIT;
END IF;
END LOOP;
Exception
when no_data_found
then
mess(sqlerrm);
END;
bt the problem is that if a single items comes more than one time then it search only one time and next time it exit
Thanks
ravi

Answer 1

Put SEARCH_PART1 into a control block that has its Single Record property set to Yes.
I am not sure what SEND_BY is, but it probably shouldn't be in Block3 either.
Also, go_item('SYSTEM.CURSOR_RECORD'); will probably cause an error. System.cursor_record is an integer, not the name of an item.