|
SQL>
SQL>
SQL> CREATE OR REPLACE PROCEDURE random
2 ( p_array_size in number)
3 AS
4
5 TYPE t_values_array IS TABLE OF NUMBER
6 INDEX BY BINARY_INTEGER;
7
8 random_value_array t_values_array;
9
10 BEGIN
11 FOR x IN 1..p_array_size LOOP
12 random_value_array(x) := dbms_random.random();
13 END LOOP;
14
15 DBMS_OUTPUT.PUT_LINE ('Total rows stored: ' || random_value_array.count);
16
17 DBMS_OUTPUT.PUT_LINE ('First row stored: ' || random_value_array(random_value_array.FIRST) );
18 DBMS_OUTPUT.PUT_LINE ('Last row stored: ' || random_value_array(random_value_array.LAST) );
19
20 END;
21 /
Procedure created.
SQL>
SQL> show errors
No errors.
SQL>
SQL> execute random(500);
PL/SQL procedure successfully completed.
SQL>
SQL>
SQL>
SQL>
|