TILLVÄGAGÅNGSSÄTTbuild_listen (i_deptnoen numrerar in), ÄR
rg_name varchar2 (40): = ”anställda”;
rg_id RecordGroup;
list_id objekt: = find_item (”dept.emps”);
errcode numrerar;
BÖRJA
rg_id: = find_group (rg_name);
om inte id_null (rg_id) därefter
-- Den rekord- gruppen finns - ta den bort, innan du skapar den på nytt
delete_group (rg_id);
avsluta om;
-- Skapa den rekord- gruppen
rg_id: = create_group_from_query (rg_name,
'vald ename, to_char empno (för empno) ',||
'från emp ',||
'var deptno = ',||i_deptno);
errcode: = populate_group (rg_id);
om errcode! = 0 därefter
meddelande ('felet uppstod stunder som befolkar gruppen: ',||errcode);
avsluta om;
clear_list (list_id);
populate_list (list_id, rg_id);
AVSLUTA;
|