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 ;

 

转载于:https://www.cnblogs.com/zzzzbk/p/9293115.html