DECLARE
	
pressed		BOOLEAN;
lov_id		LOV;
rg_name		VARCHAR2(15) := 'RG_AREA_CD';
rg_id		RECORDGROUP;
code_col	GROUPCOLUMN;
desc_col	GROUPCOLUMN;
temp_cnt	NUMBER(5) := 0;	
words		VARCHAR2(120);
errcode		NUMBER;
last_row	NUMBER;
	
BEGIN

 rg_id := Find_Group(rg_name);
 	
 IF (id_null(rg_id)) THEN

  --Create new record group
  rg_id := Create_Group(rg_name);
		
  --Add columns to record group
  code_col := Add_Group_Column(rg_id, 'Codes', NUMBER_COLUMN);
  desc_col := Add_Group_Column(rg_id, 'Description', CHAR_COLUMN, 120);
		
  --Get number of area codes in new_office table
  SELECT COUNT(DISTINCT off_area_cd)
  INTO temp_cnt
  FROM new_office
  WHERE off_area_cd IS NOT NULL;
	
  --Populate record group 
  FOR area IN 1..temp_cnt LOOP
     -- concatentate service center names
     words := area_desc(area); 
     ADD_GROUP_ROW(rg_id, area);
     SET_GROUP_NUMBER_CELL(code_col, area, area);
     SET_GROUP_CHAR_CELL(desc_col, area, words);
 
  END LOOP;
		
  lov_id := FIND_LOV('LOV_AREA_FR');					  -- find LOV id created at design time
  SET_LOV_PROPERTY(lov_id, GROUP_NAME, 'RG_AREA_CD');
  pressed := SHOW_LOV(lov_id);	 -- display LOV 

 END IF;
 	
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    MESSAGE('No area codes exists!');

END;

FUNCTION area_desc(temp_area_cd NUMBER)RETURN VARCHAR2 IS

 CURSOR n IS
  SELECT DISTINCT (off_name) office_name
  FROM new_office
  WHERE off_area_cd = temp_area_cd
  ORDER BY off_name;

temp_cnt    NUMBER(5) := 0;
temp_offnames  VARCHAR2(200) := '';

BEGIN
 -- Get number of office names returned by cursor n
 SELECT COUNT(off_name)
 INTO temp_cnt
 FROM new_office
 WHERE off_area_cd = temp_area_cd;

 -- Concatentate office names into single string
 FOR offname IN n LOOP
   IF (n%ROWCOUNT < temp_cnt) THEN
     temp_offnames := temp_offnames||offname.office_name||', ';
   ELSE
    temp_offnames := temp_offnames||offname.office_name;
    EXIT;
   END IF;
 END LOOP;

 -- Display string
 RETURN(temp_offnames);
END;

select distinct area, area_desc(area)
  from new_office
 order by 1;