declare
	cursor c is select deptno from dept;
	cnt number := 1;
begin
	clear_list('LI_DEPTNO');
	for i in c loop
		add_list_element('LI_DEPTNO',cnt,i.deptno,i.deptno);
		cnt := cnt + 1;
	end loop;
end;

declare
cursor c is select empno from emp where deptno = :LI_DEPTNO;
cnt number := 1;
begin
it_id := Find_Item('LI_EMPNO');
clear_list(it_id);
for i in c loop
add_list_element('LI_EMPNO',cnt,i.empno,i.empno);
cnt := cnt + 1;
end loop;
end;

V_STR := 'SELECT U.USER_NAME,TO_CHAR(ID) FROM emp 
		WHERE deptno  = '||V_TEAMID||'
		order by 1';
		
		POP_LIST ('BLK_SEARCH.TXTTEAM',V_STR); ---- BLK_SEARCH.TXTTEAM is list item.

PROCEDURE POP_LIST (p_listitem varchar2,p_string varchar2) IS
		group_id RecordGroup;		
		list_s Item := Find_Item(p_listitem);
		status NUMBER;
		rg_name varchar2(40) := 'recgroup';
BEGIN
-------------------------
		clear_list(list_s);
		group_id := Find_Group(rg_name);
		IF NOT id_null(group_id) then
		    Delete_Group(group_id);
		End if;
		group_id := Create_Group_From_Query(rg_name,p_string);
		
	
		status := Populate_Group(rg_name);
		Populate_List(list_s, group_id);

-------------------------
		
END;