oracle CURSOR 游标 函数

CREATE OR REPLACE FUNCTION F_AA(P_D in date, P_A in number) return varchar2 is
  Result varchar2(200);
  ls_name varchar2(20);

  CURSOR myCur1 IS
   SELECT Ts_Flag, C_NAME  FROM tableA 
   where p_DATE = P_D and Pt_A = P_A ;
BEGIN
  Result := '';
  ls_name := '';

  FOR lp1 IN myCur1 LOOP
      CASE lp1.Ts_Flag
       WHEN  'X' THEN ls_name := 'A'||lp1.C_NAME; 
       WHEN  'Y' THEN ls_name := '*'||lp1.C_NAME;
       ELSE ls_name := lp1.C_NAME;
      END CASE;

      IF Result is null THEN
         Result := ls_name ;
      ELSE
          Result := Result||'~'||ls_name ;
      END IF;

  END LOOP;

  return(Result);
END ;