O build_list do PROCEDIMENTO (i_deptno no número) É
rg_name varchar2 (40): = “empregados”;
rg_id RecordGroup;
artigo do list_id: = find_item (“dept.emps ");
número do errcode;
COMEÇAR
rg_id: = find_group (rg_name);
se não id_null (rg_id) então
-- O grupo Record existe - suprimir d antes de recreá-lo
delete_group (rg_id);
terminar se;
-- Criar o grupo record
rg_id: = create_group_from_query (rg_name,
'ename seleto, empno to_char (do empno) '||
'do emp '||
'onde deptno = '||i_deptno);
errcode: = populate_group (rg_id);
se errcode! = 0 então
mensagem ('o erro ocorreu ao povoar o grupo: '||errcode);
terminar se;
clear_list (list_id);
populate_list (list_id, rg_id);
EXTREMIDADE;
|