DECLARE
   l_count INTEGER;
   l_text VARCHAR2(100);
   l_indx	number;
BEGIN
   l_count := GET_LIST_ELEMENT_COUNT('BUT.PONO');
   IF nvl(l_count,0)>1 then
	   FOR i in 1..l_count LOOP 
	      IF GET_LIST_ELEMENT_LABEL('BUT.PONO',i) = :BUT.SEARCH_PO THEN
	      	l_text := GET_LIST_ELEMENT_VALUE('BUT.PONO',i);
	      	l_indx :=i;
	      	exit;
	      END IF;
	   END LOOP;
   END IF;
   message(l_text);
END;

DECLARE
   l_count 		INTEGER DEFAULT 0;
   l_text 		VARCHAR2(100);
   l_indx			number default 0;
   Problem   	EXCEPTION;
	 l_n				number :=1;
	 not_found	exception;
BEGIN
   l_count := GET_LIST_ELEMENT_COUNT('BUT.PONO');
   IF nvl(l_count,0)=0 then
   	raise problem;
   	else
	   FOR i in 1..l_count LOOP 
	      IF Upper(GET_LIST_ELEMENT_LABEL('BUT.PONO',i)) LIKE upper(:BUT.SEARCH_PO)||'%' THEN
--	      	l_text := GET_LIST_ELEMENT_VALUE('BUT.PONO',i);
	      	l_indx :=i;
--					DELETE_LIST_ELEMENT('BUT.PONO',i);
	      	exit;
	      END IF;
	   END LOOP;
   	END IF; 
   	IF l_indx < 1 then
   		:BUT.PONO :=GET_LIST_ELEMENT_VALUE('BUT.PONO',1);
   		raise not_found;
   	else
   		:BUT.PONO :=GET_LIST_ELEMENT_VALUE('BUT.PONO',l_indx);
   	END IF;
   	
  EXCEPTION 
   	WHEN Problem then
   	message('can not find in empty list..!');
   	WHEN NOT_FOUND THEN
   	message('Does not exists in list..!!');
   	when others then
   	message('Error in finding..'); 
END;