declare
	rg_name VARCHAR2(40) :='TYPEID';
	rg_id RecordGroup;
	gc_id GroupColumn;
	errcode NUMBER;
	
begin
	CLEAR_LIST('EMPLOYEE.TYPE_ID');
      --CLEAR_LIST('groupname,itemname)this is what u have to   write here
	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 description,type_id from emp_type');--write your query in it..
	POPULATE_LIST('EMPLOYEE.TYPE_ID',RG_ID);
        --groupname,itemname
end;