DECLARE
  i INTEGER := 1;
  CURSOR yy
  IS
    SELECT o.name,
      TO_CHAR(o.num)
    FROM  o
    WHERE (o.num LIKE '6%'
    OR o.num LIKE '8%'
    OR o.NUM = '9216');
  v_name VARCHAR2(10000);
  v_num  VARCHAR2(10000);
BEGIN
  clear_list('N.LIST');
  OPEN yy;
  LOOP
    FETCH yy INTO v_name, v_num;
    EXIT
  WHEN yy%notfound;
    i:=i+1;
    Add_List_Element('N.LIST', i, v_name, v_num);
  END LOOP;
  CLOSE yy;
end;

:n.num :=  :n.LIST;