declare
 gd_name varchar2(100):= 'gdname';
 --GDN_NAME item;
 status number;
 groupid recordgroup;
begin

/*groupid := Find_Group('gd_name');

If Not ID_NULL(groupid) Then
Delete_Group(groupid);
End If;*/

groupid := create_group_from_query(gd_name,'select gdn_name,gdn_name from godown_masterx');
	--gdn_name := find_item('block11.groupid');
	status := populate_group('groupid');
	--POPULATE_GROUP_WITH_QUERY('GDN_NAME','groupid');
	populate_list('GDN_NAME','groupid');
end;

Declare
 MDI_Win_Width  Number;
 MDI_Win_Height Number;
 Canvas_width Number;
 Canvas_Height Number;
 v_rg NUMBER;
 v_GrpID RECORDGROUP;
Begin
 	v_GrpID := CREATE_GROUP_FROM_QUERY('deptno', 'SELECT dname, to_char(dname) dname FROM dept ORDER BY 1');
	v_rg := POPULATE_GROUP(v_GrpID);
	
		
 IF v_rg = 0 THEN
 	  	 POPULATE_LIST('emp.dname', v_GrpID);
 END IF;
End;

SQL> desc dept
 Name                                      Null?    Type
 ----------------------------------------- -------- ---------------
 DEPTNO                                    NOT NULL NUMBER(2)
 DNAME                                              VARCHAR2(14)
 LOC                                                VARCHAR2(13)

SQL>