DECLARE

	group_2 RecordGroup;
	list_2 Item := Find_Item('TABLE_2.FLD');
	status1 NUMBER;
	v_query varchar(1);

BEGIN
  group_2 := Create_Group_From_Query('FLD','SELECT FLD,FLD FROM TABLE_2 WHERE ID = :TABLE_1.ID');
  		Clear_List(list_2);
		status1 := Populate_Group('FLD');
		Populate_List(list_2,group_2);
  
END;

declare
	  rg_id    RecordGroup;
	  n varchar2(10) := 'rg1';
	  gc_id    GroupColumn;
begin
	  rg_id := Find_Group( 'rg1' ); 
	    IF NOT Id_Null(rg_id) THEN 
	    	Delete_Group( rg_id ); 
	  	END IF;
	 	rg_id := Create_Group(n);
 		gc_id := Add_Group_Column('rg1', 'col1',CHAR_COLUMN,50 );
 		gc_id := Add_Group_Column('rg1', 'col2',CHAR_COLUMN,50 );

   Retrieve_List('block.list', 'rg1'); 
   Clear_List('list'); -- if you want to clear first list
	 Populate_List('block.list1', 'rg1'); 
end;

DECLARE 
	A NUMBER := 0 ;
BEGIN
FOR I IN (SELECT * FROM SCOTT.EMP) LOOP
	A := A + 1 ;
	 Add_List_Element('BLOCK.LIST', 1, I.ENAME, I.ENAME);
END LOOP; 

END;