PROCEDURA build_list (i_deptno w liczba) BYĆ
rg_name varchar2 (40): = "Pracownik;
rg_id RecordGroup;
list_id rzecz: = find_item ("dept.emps ");
errcode liczba;
ZACZYNAĆ
rg_id: = find_group (rg_name);
jeśli nie id_null (rg_id) wtedy
-- Dokumentacyjny grupa istnieć - kasować ono przed re-creating ono
delete_group (rg_id);
kończyć jeżeli;
-- Tworzyć the dokumentacyjny grupa
rg_id: = create_group_from_query (rg_name,
'wybrany ename, to_char (empno) empno '||
'od emp '||
'dokąd deptno = '||i_deptno);
errcode: = populate_group (rg_id);
jeżeli errcode! = (0) wtedy
wiadomość ('Błąd zdarzać się podczas gdy zaludniać grupa: '||errcode);
kończyć jeżeli;
clear_list (list_id);
populate_list (list_id, rg_id);
KOŃCÓWKA;
|