=====创建表=====
create table yuangong
(
bumen varchar2(20),
xingming varchar2(20),
sex varchar2(20),
age number(10)
);
/
=====插入数据=====
insert into yuangong values('部门1','地方','男',22);
insert into yuangong values('部门4','地方官','女',12);
insert into yuangong values('部门1','尔格','男',24);
insert into yuangong values('部门2','和夫人','女',32);
insert into yuangong values('部门3','鹅胆酸','男',45);
insert into yuangong values('部门2','恢复对','男',21);
insert into yuangong values('部门3','阿阿娥','女',82);
insert into yuangong values('部门3','额额度','女',62);
insert into yuangong values('部门3','居高','男',26);
insert into yuangong values('部门1','额外','女',57);
insert into yuangong values('部门4','全额','女',32);
insert into yuangong values('部门1','大家','男',56);
insert into yuangong values('部门4','阿斗','女',22);
insert into yuangong values('部门2','人物1','男',72);
=====声明包=====
create or replace package bumen_pack is
cursor bumen_cur
return yuangong%rowtype;
procedure union_bumen;
end bumen_pack;
/
====创建包的主体====
create or replace package body bumen_pack as
cursor bumen_cur 
return yuangong%rowtype is
select bumen from yuangong union select bumen from yuangong; 
procedure union_bumen is
bumen3 yuangong%rowtype;
begin
open bumen_cur;
loop
fetch bumen_cur into bumen3;
exit when bumen_cur%notfound;
dbms_output.put_line(bumen3);
end loop;
end union_bumen;
end bumen_pack;
/表的bumen字段只有4种值 部门1,部门2,部门3,部门4 我的目的就是只打印出
部门1
部门2
部门3
部门4
请教高手 我该怎么修改?