DECLARE 

  b1 boolean;
  b2 boolean;
  lov_id      LOV; 
  rg_name  VARCHAR2(40) := 'empgr';
  rg_id    RecordGroup;
  errcode  NUMBER;
	   
BEGIN 
	
	b1 := show_lov('lov1');
	rg_id := Find_Group(rg_name);
	rg_id := Create_Group_From_Query( rg_name,'select distinct deptno from emp where job=:t');
      -- t is temp textbox and change the visible property to false
	errcode := Populate_Group( rg_id );
         Set_Lov_Property('lov2',GROUP_NAME,rg_id);   
	b2 := show_lov('lov2');
	Delete_Group( rg_id ); 

END;