CREATE OR REPLACE FUNCTION GetNames(P_COMP_ID IN VARCHAR2) RETURN Varchar2 IS
  V_NAME varchar2(100);
  cursor A is select NAME from DESIG_XXX WHERE COMP_ID=P_COMP_ID;
  V_RESULT VARCHAR2(4000);
begin
  open A;
  fetch A into V_NAME;
  while A %found loop
   V_RESULT:=V_RESULT||'-'||V_NAME;
fetch A into V_NAME;
end loop;
  close A;
  RETURN LTRIM(V_RESULT,'-');
END;