Writing rules for stored procedures in Oracle

Create or replace procedure updatetestdata
is
J number;
dept_min_no number;
dept_max_no number;
begin
-- Update the Department table
Delete from test_dept;
for I in 1 .. 10
loop
insert into test_dept (dept_name, f_deleteflag) values ('department '| I, 0);
commit;
end loop;
-- Update the user table
-- dept_min_no: = 0;
-- dept_max_no: = 0;
select Min (f_id) into dept_min_no from test_dept;
select max (f_id) into dept_max_no from test_dept;

Delete from test_user;
For I in 1 .. 30
Loop
Select floor (dbms_random.value (dept_min_no, dept_max_no) into J from dual;
Insert into test_user (f_id, username, userpwd, age, sex, birthday, telephone, address, email, memo, deptid, realname, f_deleteflag)
Values (I, 'A' | I, '000000', I + 20, 'male', sysdate-365 * I, '000000', 'shangdi information mansion, Haidian District, Beijing ', j | '@ 163.com', 'Remarks ', J, 'zhang san' | I, 0 );
Commit;
End loop;
End updatetestdata;