declare
	rg_name VARCHAR2(40) :='TYPEID';
	rg_id RecordGroup;
	gc_id GroupColumn;
	errcode NUMBER;
	
begin
	CLEAR_LIST('MAIN.SYS_ID');
	rg_id := Find_Group(rg_name);
	IF Id_Null(rg_id) then
		rg_id := Create_Group(rg_name);
	  gc_id := Add_Group_Column(rg_id,'DESCRIPTION',CHAR_COLUMN,60);
          gc_id := Add_Group_Column(rg_id,'TYPE_ID',CHAR_COLUMN,3);
	
	end if;
	errcode := Populate_Group_With_Query(rg_id,
                   'select sym_code,company_code from companies order by sym_code');
	message('error code is'||errcode);
	POPULATE_LIST('MAIN.SYS_ID',RG_ID);
end;

declare
	rg_name VARCHAR2(40) :='TYPEID';
	rg_id RecordGroup;
	errcode NUMBER;
	
begin
	CLEAR_LIST('MAIN.SYS_ID');  -- MAIN.SYS_ID is the List Item
	rg_id := Find_Group(rg_name);
	IF Id_Null(rg_id) then
	   rg_id := Create_Group_from_QUERY(rg_name,
                    'select sym_code,company_code from companies order by sym_code');
	end if;
	errcode := Populate_Group(rg_id);
	message('error code is'||errcode);
	POPULATE_LIST('MAIN.SYS_ID',RG_ID);
end;

DECLARE
  STATUS    NUMBER;
  Problem   EXCEPTION;
BEGIN
  STATUS  := POPULATE_GROUP ('RG_DEPT');
  IF STATUS <> 0 THEN
    RAISE problem;
  ELSE
    POPULATE_LIST ('combo', 'RG_DEPT');
  END IF;
EXCEPTION
  WHEN problem THEN
    message ('We have a problem to query the PRODUCT table.');
END;