PROCEDURE PARTY(p_ListName in number, p_SrcBox in number) IS  
        v_Rg2 RecordGroup;  
    BEGIN  
        v_RG2 := Find_Group('party');  
    END;

    DECLARE  
     v_rg NUMBER;  
     v_GrpID RECORDGROUP;  
    BEGIN  
        v_GrpID := CREATE_GROUP_FROM_QUERY('party', 'SELECT party_name, TO_CHAR(party_name) party_name FROM a ORDER BY 1');  
        v_rg := POPULATE_GROUP(v_GrpID);  
    IF v_rg = 0 THEN  
                POPULATE_LIST('B.party_name', v_GrpID);  
    END IF;
END;

 create table a
 (party_code number(10),
 party_name varchar2(50));

 create table b 
 (party_code number(10),
 party_name varchar2(50));

Insert into a 
values
(1,'Data');