DECLARE
   v_qry  VARCHAR2(1000);
   rg_name VARCHAR2(40) := 'YOUR_RG_NAME_HERE';
   rg_id  RecordGroup;
   errcode NUMBER;
   item_id Item;   
BEGIN
   v_qry := 'SELECT desc_e, TO_CHAR(eno) from EMP';
   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, v_qry);
   errcode := Populate_Group(rg_id);

   item_id := Find_Item('YOUR_BLOCK.YOUR_ITEM');
   
   IF ID_NULL(item_id) THEN 
      Clear_Message;
      Message('Error: Can't find item.');
      Message(' ');
      RAISE Form_Trigger_Failure;
   END IF;

   Clear_List(item_id);
   Populate_List(item_id, rg_id);
   Delete_Group(rg_id);
END IF;