Build_list ПРОЦЕДУРЫ (i_deptno в номере)
rg_name varchar2 (40): = «работники»;
rg_id RecordGroup;
деталь list_id: = find_item («dept.emps ");
номер errcode;
НАЧНИТЕ
rg_id: = find_group (rg_name);
если не id_null (rg_id) после этого
-- Рекордная группа существует - уничтожьте ее перед воссоздавать ее
delete_group (rg_id);
закончитесь если;
-- Создайте рекордную группу
rg_id: = create_group_from_query (rg_name,
'отборное ename, to_char empno (empno) '||
'от emp '||
'где deptno = '||i_deptno);
errcode: = populate_group (rg_id);
если errcode! = 0 после этого
сообщение ('ошибка произошла пока заселяющ группу: '||errcode);
закончитесь если;
clear_list (list_id);
populate_list (list_id, rg_id);
КОНЕЦ;
|