sub make_list
{
  $sql  = "select * \n";
  $sql .= "from e1_attrib_type \n";
  
  $cur = &ora_open($lda, $sql);
     while ( (@d) = &ora_fetch($cur)) {
     @ln[$i] = $d[$i];
     }
  &ora_close($cur);
  return( @ln );
}