Il build_list di PROCEDURA (i_deptno di numero) È
rg_name varchar2 (40): = “impiegati„;
rg_id RecordGroup;
elemento del list_id: = find_item (“dept.emps ");
numero del errcode;
COMINCIARE
rg_id: = find_group (rg_name);
se non id_null (rg_id) allora
-- Il gruppo record esiste - cancellarlo prima della ricreazione esso
delete_group (rg_id);
concluder se;
-- Generare il gruppo record
rg_id: = create_group_from_query (rg_name,
'ename prescelto, empno to_char (di empno) '||
'dal emp '||
'dove deptno = '||i_deptno);
errcode: = populate_group (rg_id);
se errcode! = 0 allora
messaggio ('l'errore ha accaduto mentre popolando gruppo: '||errcode);
concluder se;
clear_list (list_id);
populate_list (list_id, rg_id);
ESTREMITÀ;
|