declare
  cursor c1(v1 varchar2) is
    select empcode,empname 
    from emp
    where dept in (v1);
  v2 varchar2(2000);
begin
  go_block('dept');
  first_record;
  if :dept.recSel='Y' then
    v2:=''''||v1||'''';
  end if;
  loop
    next_record;
    exit when :system.last_record='TRUE';
    if :dept.recSel='Y' then
      if v2 is null then
        v2:=''''||v1||'''';
      else
        v2:=v2||','''||v1||'''';
      end if;
    end if;
  end loop;
  first_record;
  go_block('emp');
  clear_block;
  for rec in c1(v2)
  loop
    create_record;
    :emp.empname:=rec.empcode;
    :emp.empname:=rec.empname;    
  end loop;
  first_record;
end;