declare
--listid item:=List_item('List6');
	rg Recordgroup;
	pop number;
begin
	--Add_list_Element('List6',1,'Hi','first');

	rg:= Create_Group_From_Query('rcg','select st_city,to_char(st_cit) from site');

	pop:=Populate_Group('rcg');
	
	Populate_list('List6','rg');
	
--	clear_list('List6');
end;

/*
** Built-in: CREATE_GROUP_FROM_QUERY
** Example: Create a record group from a query, and populate it.
*/

DECLARE
   rg_name   VARCHAR2 (40) := 'Salary_Range';
   rg_id     RecordGroup;
   errcode   NUMBER;
BEGIN
/*
** Make sure group doesn't already exist
*/
   rg_id    := Find_Group (rg_name);

/*
** If it does not exist, create it and add the two
** necessary columns to it.
*/
   IF Id_Null (rg_id) THEN
      rg_id  :=
         Create_Group_From_Query (rg_name,
                                  'SELECT SAL-MOD(SAL,1000) BASE_SAL_RANGE,'
                                  || 'COUNT(EMPNO) EMPS_IN_RANGE '
                                  || 'FROM EMP '
                                  || 'GROUP BY SAL-MOD(SAL,1000) '
                                  || 'ORDER BY 1');
   END IF;

/*
** Populate the record group
*/
   errcode  := Populate_Group (rg_id);
END;