create or replace function f_get_chinaname(gender in number)
-- 入参为选择男名1，还是女名0。返回姓名
return varchar2
as
f_re_xing varchar2(20);
f_re_ming varchar2(20);
-- 定义内部函数百家姓f_xing，返回姓
function f_xing(n number)
return varchar2
is
-- 声明一个嵌套表类型xing_list，用来存放姓氏列表
type xing_list is table of varchar2(100);
xx xing_list := xing_list(
'赵','钱','孙','李','周','吴','郑','王','冯','陈','褚','卫','蒋','沈','韩','杨','朱','秦','尤','许','何','吕','熊','施','张',
'宫','墨','哈','谯','笪','年','爱','阳','佟'
);
-- 入参为选择男名1，还是女名0。返回姓名
return varchar2
as
f_re_xing varchar2(20);
f_re_ming varchar2(20);
-- 定义内部函数百家姓f_xing，返回姓
function f_xing(n number)
return varchar2
is
-- 声明一个嵌套表类型xing_list，用来存放姓氏列表
type xing_list is table of varchar2(100);
xx xing_list := xing_list(
'赵','钱','孙','李','周','吴','郑','王','冯','陈','褚','卫','蒋','沈','韩','杨','朱','秦','尤','许','何','吕','熊','施','张',
'宫','墨','哈','谯','笪','年','爱','阳','佟'
);
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/12961536/viewspace-1061393/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
