PROCEDURE POPULATE_LIST_BY_QUERY(P_LIST_NAME VARCHAR2,P_QUERY VARCHAR2) IS
   RG_NAME  VARCHAR2(30) := 'RG_CODE_DESC' ;
   RG_ID    RecordGroup;
   errcode  NUMBER; 
   LIST_ID  ITEM;
BEGIN
    
     RG_ID := FIND_GROUP(RG_NAME);
     IF NOT ID_NULL (RG_ID) 
        THEN DELETE_GROUP (RG_ID) ;
     END IF;
     
     RG_ID   := Create_Group_From_Query (RG_NAME, P_QUERY) ;  
     errcode := Populate_Group (RG_ID) ;   
    
     LIST_ID := FIND_ITEM (P_LIST_NAME) ; 
     POPULATE_LIST (LIST_ID,RG_ID) ;
     
END;

  POPULATE_LIST_BY_QUERY('BLK1.emp_name', 'SELECT emp_name,emp_id FROM employees');

create table employees
(emp_no number(10) primary key,
emp_name varchar2(200))

Insert into EMPLOYEES
   (EMP_NO, EMP_NAME)
 Values
   (1, 'hhh uuo');
Insert into EMPLOYEES
   (EMP_NO, EMP_NAME)
 Values
   (2, 'hh ppp');
Insert into EMPLOYEES
   (EMP_NO, EMP_NAME)
 Values
   (3, 'h');
Insert into EMPLOYEES
   (EMP_NO, EMP_NAME)
 Values
   (4, 'uuuuu');
COMMIT;