declare
  a     number;
  ls_id   Item;
  rg_name varchar2( 4 ):='sp';
  rg_id   RecordGroup;

begin
  ls_id:=find_item('BLK1.LIST1');
  rg_id:=Find_Group(rg_name);
  if not Id_Null(rg_id) then
	Delete_Group(rg_id);
  end if;
  rg_id:=Create_group_from_query(rg_name, 'select id, name  from table1'||
  'UNION ALL select ''Все'', ''ALL'' from dual');
  a:=Populate_Group(rg_id);
  Populate_List(ls_id,rg_id);
  :blk1.LIST1:='ALL';

  ls_id:=find_item('BLK1.LIST2');
  rg_id:=Find_Group(rg_name);
  if not Id_Null(rg_id) then
    Delete_Group(rg_id);
  end if;
  rg_id:=Create_group_from_query(rg_name, 'select code, name from table2'||
  'UNION ALL select ''Все'', ''ALL'' from dual');
  a:=Populate_Group(rg_id);
  Populate_List(ls_id,rg_id);
  :blk1.LIST2:='ALL';
end;