如何使用opql定义一个oracle中随机取名的函数以及其他函数结构？

如何使用opql定义一个oracle中随机取名的函数以及其他函数结构？

--定义一个函数 取名函数
  create or replace  function creatname(num1 varchar)
         return varchar
         is
         xing varchar2(500) :='赵钱孙李周吴郑王申肖黄龚母杜岳';
         ming varchar2(500) :='麟磊刚昕星平峰锋靖锐伟顺欣俞泉铭嫣文运俊杰成';
         
         v_xing varchar(500);
         v_ming varchar(500);
     begin
       
       select substr(xing,trunc(dbms_random.value(1,length(xing)+1),0),1) into v_xing from dual;
        select substr(ming,trunc(dbms_random.value(1,length(ming)+1),0),1) into v_ming from dual;
        
        return  v_xing || v_ming ;
        
     end creatname;
     

select creatname(22) from dual;



*declare
v_name varchar(200) := '';
begin
select first_name || last_name into v_name from employees where employee_id=45;
   dbms_output.put_line('这个员工的名字是：' || v_name);
  end;*/
  --if elsif else 结构
/*  declare
  v_num number := #
  begin
   if v_num=1 then
     dbms_output.put_line('您中了一等奖，奖励充气娃娃一个') ;
     elsif v_num=3 then
     dbms_output.put_line('您中了二等奖，奖励资源1个t');
     else 
       dbms_output.put_line('谢谢惠顾，再接再厉');
       end if;
  end;*/
  --普通循环
/*  declare 
  v_num number := 0 ;
  begin
    loop
      v_num := v_num + 1;
      dbms_output.put_line(v_num);
      exit when v_num = 100;
     end loop; 
  end;*/
  --for循环结构
/*  begin 
    for i in 1..10 loop
      dbms_output.put_line(i); 
     end loop;
     end;
     
      begin 
    for i in reverse 1..10 loop
      dbms_output.put_line(i); 
     end loop;
     end;*/
     --游标结构
/*   declare
     emp employees%rowtype;
     cursor mycursor is select * from employees;
      begin
        open mycursor; 
        loop
         fetch mycursor into emp;
         exit when mycuesor%notfound;
        dbms_output.put_line(emp.first_name);  
        end loop;
        close mycuesor;
     end;*/