DECLARE
   rec      recordgroup;
   rec1     recordgroup;
   status   NUMBER;
BEGIN
   IF :cntrl.radio_group17 = 10   THEN
      CLEAR_LIST ('list5');
      rec := FIND_GROUP ('REC');

      IF NOT ID_NULL (rec)      THEN
         DELETE_GROUP ('REC');
      END IF;
      rec := CREATE_GROUP_FROM_QUERY ('REC','select to_char(empno),ename from emp1');
      status := POPULATE_GROUP (rec);
      POPULATE_LIST ('list5', rec);
   ELSE
      CLEAR_LIST ('list5');
      rec1 := FIND_GROUP ('REC1');

      IF NOT ID_NULL (rec1)      THEN
         DELETE_GROUP ('REC1');
      END IF;

      rec1 := CREATE_GROUP_FROM_QUERY('REC1', 'select to_char(dept_id),dept_name from dept1' );
      status := POPULATE_GROUP (rec1);
      POPULATE_LIST ('list5', rec1);
   END IF;
END;