get_num_2.sql

来自「Oracle PLSQL for DBAs 源代码」· SQL 代码 · 共 23 行

CREATE OR REPLACE FUNCTION get_num (
   p_highval             NUMBER,
   p_lowval              NUMBER := 0,
   p_negatives_allowed   BOOLEAN := FALSE,
   p_scale               PLS_INTEGER := 0
)
   RETURN NUMBER
IS
   l_ret   NUMBER;
   l_sign   NUMBER := 1;
BEGIN
   IF (p_negatives_allowed)
   THEN
      l_sign := SIGN (DBMS_RANDOM.random);
   END IF;

   l_ret := l_sign *
            ROUND (DBMS_RANDOM.VALUE (p_lowval, p_highval)
                 , p_scale);
   RETURN l_ret;
END;
/