declare
	a number;
begin
	a:=populate_group('deptlist');
	clear_list('emps.deptno');
	populate_list('emps.deptno','deptlist');
	end;

declare
	cursor tdeptno is select deptno from dept;
	king number(5):=0;
begin
	for i in tdeptno
	loop
		king:=king+1;
		add_list_element('list5',king,i.deptno,i.deptno);
	end loop;
end;
		

add_list_element('list5',king,i.deptno,i.deptno);

add_list_element('deptno',king,i.deptno,i.deptno);

declare
	cursor tdeptno is select deptno from dept;
	king number(5):=0;
begin
	clear_list('emps.deptno');
	for i in tdeptno
	loop
		king:=king+1;
		add_list_element('deptno',king,i.deptno,i.deptno);
	end loop;
end;

king:=king+1;
		add_list_element('deptno',king,i.deptno,i.deptno);( explain this code also)

PROCEDURE ADD_LIST_ELEMENT(list_name VARCHAR2, list_index, NUMBER,list_label VARCHAR2, list_value VARCHAR2);
PROCEDURE ADD_LIST_ELEMENT(list_id ITEM, list_index VARCHAR2, list_label VARCHAR2, list_value VARCHAR2);

list_id:-  Specifies the unique ID that Oracle Forms assigns when it creates the list item. Use the FIND_ITEM built-in to return the ID to an appropriately typed variable. The data type of the ID is ITEM. 
list_name:-  The name you gave to the list item when you created it. The data type of the name is VARCHAR2. 
list_index:-  Specifies the list index value. The list index is 1 based. 
list_label:-  Specifies the VARCHAR2 string that you want displayed as the label of the list element. 
list_value:-  The actual list element value you intend to add to the list item. 

create table test(tst_id number,tst_name varchar2(25));
insert into test values(1,'mirror');
insert into test values(2,'Table');
insert into test values(3,'Speaker');
commit;

---WHEN-NEW-FORM-INSTANCE---

DECLARE
       GROUP_ID   RECORDGROUP;
       LIST_ID    ITEM := FIND_ITEM('mughal');
       STATUS NUMBER;
BEGIN
       GROUP_ID := FIND_GROUP('TYP');
    IF NOT ID_NULL(GROUP_ID) THEN
        DELETE_GROUP(GROUP_ID);
       ELSE
        GROUP_ID := CREATE_GROUP_FROM_QUERY
       ('TYP','SELECT tst_name,TO_CHAR(tst_id) FROM test');
END IF;
STATUS := POPULATE_GROUP('TYP');
POPULATE_LIST(LIST_ID,GROUP_ID);
END;