create or replace package body TEST01_PKG is
-- Function and procedure implementations
function random_char(p_length in number default 10,
p_include_char in boolean default false)
return varchar2 is
v_string varchar2(20);
v_tempstring varchar2(20);
v_temp number(2);
begin
FOR i in 1 .. p_length LOOP
IF p_include_char THEN
v_temp := Dbms_Random.value(48, 57);
v_tempstring := CHR(v_temp);
ELSE
LOOP
v_temp := DBMS_RANDOM.value(48, 90);
EXIT WHEN(v_temp64);
v_tempstring := CHR(v_temp);
DBMS_OUTPUT.put_line(v_tempstring);
END LOOP;
END IF;
v_string := v_string || v_tempstring; --Append character to string
DBMS_OUTPUT.put_line(v_string);
END LOOP;
return v_string;
end random_char;
end TEST01_PKG;
test的时候它老是停在FOR i in 1 .. p_length LOOP这里,不知道为什么,高手指点一下