1. 判断是否为偶数函数
进行调试
create or replace function Even(Value in integer) return boolean is
Result boolean;
begin
-- 判断是否是偶数
Result := (Value mod 2 = 1);
return (Result);
end Even;
进行调试
declare
-- Boolean parameters are translated from/to integers:
-- 0/1/null <--> false/true/null
result boolean;
begin
-- Call the function
result := even(value => :value);
-- Convert false/true/null to 0/1/null
:result := sys.diutil.bool_to_int(result);
end;