Declare
	v_current_record number:= :system.cursor_record;
Begin
	Go_Block('data_block');
	Loop
		If :system.last_record = 'TRUE' then
			first_record;
		else
			Next_Record;
		end if;
		
		Exit When :data_block.field_you_want_to_search Like :CTRL.LOOKUP||'%';
    If :system.cursor_record = v_current_record Then
    	Message('No match found for '||:CTRL.LOOKUP);
    	Message('No match found for '||:CTRL.LOOKUP);
    	Exit;
    End If;
	End Loop;
End;