DECLARE 
	A NUMBER;
	REC RECORDGROUP;
BEGIN
	REC:=CREATE_GROUP_FROM_QUERY('DEPTNO','SELECT DEPTNO,DEPTNO FROM EMP');
	IF NOT ID_NULL(REC) THEN
		A:=POPULATE_GROUP(REC);
		POPULATE_LIST('DEPTNO',REC);
	END IF;
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;