Como preencher dinamicamente um Popup List (traduzido no Oracle Forms 6i como “Item da Lista”) em tempo de execução? Você pode utilizar um cursor e adicionar cada um dos elementos usando o comando ADD_LIST_ELEMENT, ou a forma abaixo que acredito ser a mais fácil:

DECLARE

	lobj_grupoID RecordGroup;
	lobj_listaID Item := Find_Item('BLOCODEDADOS.LST_NOMEDALISTA');
	lint_grupoStatus NUMBER;
	
BEGIN

	-- ----------------------------------------------------------------------
	-- Remove todos os itens da lista.
	-- ----------------------------------------------------------------------

	Clear_List(lobj_listaID); 

	-- ----------------------------------------------------------------------
	-- Preenche o PopupList com o nome dos cursos
	-- ----------------------------------------------------------------------

	lobj_grupoID := Create_Group_From_Query('listaCursos', 'SELECT DESCRICAO, TO_CHAR(CODIGO) CODIGO FROM CURSO ORDER BY DESCRICAO');
	lint_grupoStatus := Populate_Group('listaCursos');
	Populate_List(lobj_listaID, lobj_grupoID);

END;

Paulo A. Costa

Natural de Salvador-BA, é graduado em Analise de Sistemas pela Universidade Católica do Salvador (2003), e especialista em Engenharia de Software pela Universidade Salvador (2010). Exerce atualmente o cargo de Analista Judiciário na Justiça do Trabalho.