按某一列分组并分列展示

create or replace procedure obj3_4 (ye 收费表.学年%type) as
  va 学生.姓名%type;
  vb 学生.专业%type;
  v1 number;
  v2 number;
  cursor obj3_4 is
    select 姓名,专业,应交学费,已交学费
    from 收费表 natural join 学生
  where 学年=ye and 应交学费!=已交学费;
begin 
  open obj3_4;
  fetch obj3_4 into va,vb,v1,v2;
  while obj3_4%found loop
  dbms_output.put_line(va || chr(9) || vb || chr(9) || to_char(v1-v2,'99999'));
  fetch obj3_4  into  va,vb,v1,v2;
  end loop;
  close obj3_4;
end;
.
/
exec obj3_4(2017);