1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| DECLARE
rg_name VARCHAR2(40) := 'TABLES';
rg_id RecordGroup;
errcode NUMBER;
BEGIN
rg_id := Find_Group( rg_name );
IF not Id_Null(rg_id) THEN
delete_group(rg_id);
END IF;
-- Creating the record group
IF Id_Null(rg_id) THEN
rg_id := Create_Group_from_query(rg_name,'select table_name,table_name from all_tables');
END IF;
-- Populating the record group
errcode := Populate_Group( rg_id );
-- Error occured while populating the record group
if errcode != 0 then
message(' Error occured while populating the record group');
raise form_trigger_failure;
end if;
-- Clearing the list before populating it.
clear_list('LIST8');
populate_list('LIST8',RG_ID);
exception
when no_data_found then
null;
when others then
null;
END; |
Partager