PROCEDURE Populate_the_List (	list_id ITEM,
					sql_stat VARCHAR2) IS
 group_id	RecordGroup;
 outcome	NUMBER;
BEGIN
--Create temporary record group. 
 group_id := CREATE_GROUP_FROM_QUERY('List_Elements', sql_stat);
 IF ID_NULL(group_id) THEN
  MESSAGE('Record Group could not be created in Populate_the_List.');
  RAISE FORM_TRIGGER_FAILURE;
 END IF;

--Populate record group. 
 outcome := POPULATE_GROUP(group_id);
 IF outcome <> 0 THEN 
  MESSAGE('Record Group could not be populated in Populate_the_List.');
  RAISE FORM_TRIGGER_FAILURE;
 END IF;

--Populate list item
 POPULATE_LIST(list_id, group_id);

--Destroy the temporary record group to release resources
 DELETE_GROUP(group_id);

EXCEPTION
 WHEN OTHERS THEN 
  MESSAGE('Internal error occurred in Populate_the_List.'); 
  RAISE FORM_TRIGGER_FAILURE;
END Populate_the_List;

2nd procedure:


PROCEDURE Get_Lists_Values (list_name VARCHAR2) IS
 list_id	 ITEM;
 col_name	 VARCHAR2(80) := SUBSTR(list_name, INSTR(list_name,'.')+1);
 sql_stat	 VARCHAR2(2000);

BEGIN
--Find ID for list item. 
 list_id := FIND_ITEM(list_name); 
 IF ID_NULL(list_id) THEN
  MESSAGE('List Item '||list_name||' does not exist.');
  RAISE FORM_TRIGGER_FAILURE;
 END IF;

--Build the SQL statement. 
 sql_stat := 'SELECT DISTINCT '||list_name||', '||list_name||
	   ' FROM DEPT ORDER BY 1';

 Populate_the_List(list_id, sql_stat);

EXCEPTION
 WHEN OTHERS THEN 
 MESSAGE('Internal error occurred in Get_Lists_Values.'); 
  RAISE FORM_TRIGGER_FAILURE;
END Get_Lists_Values;

Get_Lists_Values('DEPT.loc');

 sql_stat := 'SELECT DISTINCT '||list_name||', '||list_name||
	   ' FROM DEPT ORDER BY 1';