Le build_list de PROCÉDÉ (i_deptno en nombre) EST
rg_name varchar2 (40) : = « employés » ;
rg_id RecordGroup ;
article de list_id : = find_item (« dept.emps ") ;
nombre d'errcode ;
COMMENCER
rg_id : = find_group (rg_name) ;
sinon id_null (rg_id) puis
-- Le groupe record existe - le supprimer avant de le recréer
delete_group (rg_id) ;
finir si ;
-- Créer le groupe record
rg_id : = create_group_from_query (rg_name,
'ename choisi, empno to_char (d'empno) '||
'de l'IEM '||
'où deptno = '||i_deptno) ;
errcode : = populate_group (rg_id) ;
si errcode ! = 0 puis
message (la 'erreur s'est produite tout en peuplant le groupe : '||errcode) ;
finir si ;
clear_list (list_id) ;
populate_list (list_id, rg_id) ;
EXTRÉMITÉ ;
|