1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
declare
group_id RecordGroup;
list_id Item :=Find_Item(nom_liste);
status number;
erreur varchar2(500):=nom_groupe||interrogation;
begin
group_id :=find_group(nom_groupe);
if id_null(group_id) then
group_id:=Create_Group_From_Query(nom_groupe,interrogation);
end if;
status:=Populate_Group(nom_groupe);
if (status<>0) then
message(error_text);
erreur:=erreur||Lpad(to_char(status),8,'* ')||dbms_error_text;
message(erreur);
else
Populate_List(list_id,group_id);
end if;
END; |
Partager