1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
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 );
POPULATE_LIST(list_id, rg_id );
END; |
Partager