procedure Pro_SubPro
(
dw_in in varchar2,
cur out pkg_general.ROW_CURSOR
)
as
begin
open cur for
select yqmc from fle80 where dwbm=dw_in;
end Pro_SubPro;

procedure Pro_MainPro(
dw_in in varchar2
)
as
mc NVARCHAR2(20);
cur pkg_general.ROW_CURSOR;
begin
Pro_SubPro(dw_in,cur);
fetch cur into mc;
loop
exit when cur%notfound;
dbms_output.put_line(mc);
fetch cur into mc;
end loop;
end Pro_MainPro; 數學函數
在oracle 中distinct關鍵字可以顯示相同記錄只顯示一條
1.絕對值
S:select abs(-1) value
O:select abs(-1) value from dual

　　2.取整(大)
S:select ceiling(-1.001) value
O:select ceil(-1.001) value from dual

　　3.取整（小）
S:select floor(-1.001) value
O:select floor(-1.001) value from dual

　　4.取整（截取）
S:select cast(-1.002 as int) value
O:select trunc(-1.002) value from dual

　　5.四舍五入
S:select round(1.23456,4) value 1.23460
O:select round(1.23456,4) value from dual 1.2346

　　6.e為底的冪
S:select Exp(1) value 2.7182818284590451
O:select Exp(1) value from dual 2.71828182

　　7.取e為底的對數
S:select log(2.7182818284590451) value 1
O:select ln(2.7182818284590451) value from dual; 1

　　8.取10為底對數
S:select log10(10) value 1
O:select log(10,10) value from dual; 1

　　9.取平方
S:select SQUARE(4) value 16
O:select power(4,2) value from dual 16

　　10.取平方根
S:select SQRT(4) value 2
O:select SQRT(4) value from dual 2

　　11.求任意數為底的冪
S:select power(3,4) value 81
O:select power(3,4) value from dual 81

　　12.取隨機數
S:select rand() value
O:select sys.dbms_random.value(0,1) value from dual;

　　13.取符號
S:select sign(-8) value -1
O:select sign(-8) value from dual -1

　　14.圓周率
S:SELECT PI() value 3.1415926535897931
O:不知道

　　15.sin,cos,tan 參數都以弧度為單位
例如：select sin(PI()/2) value 得到1（SQLServer）

　　16.Asin,Acos,Atan,Atan2 返回弧度

　　17.弧度角度互換(SQLServer，Oracle不知道)
DEGREES：弧度-〉角度
RADIANS：角度-〉弧度

數值間比較

　　18. 求集合最大值
S:select max(value) value from
(select 1 value
union
select -2 value
union
select 4 value
union
select 3 value)a

　　O:select greatest(1,-2,4,3) value from dual

　　19. 求集合最小值
S:select min(value) value from
(select 1 value
union
select -2 value
union
select 4 value
union
select 3 value)a

　　O:select least(1,-2,4,3) value from dual

　　20.如何處理null值(F2中的null以10代替)
S:select F1,IsNull(F2,10) value from Tbl
O:select F1,nvl(F2,10) value from Tbl

　　21.求字符序號
S:select ascii('a') value
O:select ascii('a') value from dual