Como preencher um Popup List (“Item da Lista”)) programaticamente no Oracle Forms 6i

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:

[sourcecode language=”sql”]
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;
[/sourcecode]