PROCEDURE populate_Itms_group IS
  rg_name  VARCHAR2(50):= 'ITM';
  rg_id    RecordGroup; 
  errcode  number;
  list_value VARCHAR2(500);
BEGIN 
  rg_id:=Find_Group( rg_name ); 
 
  errcode := POPULATE_Group_WITH_Query( rg_id,'SELECT Item_id,  item_code FROM ITEMS_MT' );  
  clear_list('ITEMS_MT.ITEM_ID'); 
  -- Field Name where you put your List
  populate_list('ITEMS_MT.ITEM_ID',rg_id); 

EXCEPTION
WHEN OTHERS THEN 
MESSAGE('No Value ');
END; 

DECLARE 
	rg_name  VARCHAR2(40) := 'Salary_Range'; 
	rg_id    RecordGroup; 
	errcode  NUMBER; 
BEGIN
	rg_id := Find_Group( rg_name ); 
	
  IF NOT Id_Null(rg_id) THEN 
  	 Delete_Group( rg_id ); 
  END IF; 
  
  IF :RDG_VAL = 'E' 
  THEN
      rg_id := Create_Group_From_Query( rg_name, 'SELECT ename ename1,' 
                                               ||'ename ename2 ' 
                                               ||'FROM EMP '
                                               ||'ORDER BY 1');
  ELSE
  	  rg_id := Create_Group_From_Query( rg_name, 'SELECT dname dname1,' 
                                               ||'dname dname2 ' 
                                               ||'FROM dept '
                                               ||'ORDER BY 1');
  END IF;                                              
  errcode := Populate_Group( rg_id ); 
  populate_List('TEST_LIST',rg_id);
END;