DECLARE
  v_rg     NUMBER;
   v_grpid  RECORDGROUP;
BEGIN
  v_grpid := Create_group_from_query('style_no_mas',
'SELECT Style_no_mas, to_char(style_no_mas) style_no_mas FROM style_master ORDER BY 1');
  
  v_rg := Populate_group(v_grpid);
  
  IF v_rg = 0 THEN
    Populate_list('BLOCK314.style_no',v_grpid);
  END IF;
END;