oracle CURSOR 遊標 函數

 1 CREATE OR REPLACE FUNCTION F_AA(P_D in date, P_A in number) return varchar2 is
 2   Result varchar2(200);  3   ls_name varchar2(20);  4 
 5   CURSOR myCur1 IS
 6    SELECT Ts_Flag, C_NAME  FROM tableA  7    where p_DATE = P_D and Pt_A = P_A ;  8 BEGIN
 9   Result := ''; 10   ls_name := ''; 11 
12   FOR lp1 IN myCur1 LOOP 13       CASE lp1.Ts_Flag 14        WHEN  'X' THEN ls_name := 'A'||lp1.C_NAME; 15        WHEN  'Y' THEN ls_name := '*'||lp1.C_NAME; 16        ELSE ls_name := lp1.C_NAME; 17       END CASE; 18 
19       IF Result is null THEN
20          Result := ls_name ; 21       ELSE
22           Result := Result||'~'||ls_name ; 23       END IF; 24 
25   END LOOP; 26 
27   return(Result); 28 END ;