El build_list del PROCEDIMIENTO (i_deptno en gran número) ES
rg_name varchar2 (40): = “empleados”;
rg_id RecordGroup;
artículo del list_id: = find_item (“dept.emps ");
número del errcode;
COMENZAR
rg_id: = find_group (rg_name);
si no id_null (rg_id) entonces
-- El grupo de registro existe - suprimirlo antes de reconstruirlo
delete_group (rg_id);
terminar si;
-- Crear a grupo de registro
rg_id: = create_group_from_query (rg_name,
'ename selecto, empno to_char (del empno) '||
'del emp '||
'donde deptno = '||i_deptno);
errcode: = populate_group (rg_id);
¡si errcode! = 0 entonces
mensaje (el 'error ocurrió mientras que puebla a grupo: '||errcode);
terminar si;
clear_list (list_id);
populate_list (list_id, rg_id);
EXTREMO;
|