求一oracle 函数或者存储过程

表A
ID CODE 分配编号 分配数 实际编号 实际数
1 001 A01 20 NULL NULL
2 002 A01 30 NULL NULL表 B
ID 分配编号 实际编号 实际数
1 A01 A01 15
2 A01 B01 10
3 A01 B02 5
4 A01 B03 5实现表A为：
ID CODE 分配编号 分配数 实际编号 实际数
1 001 A01 20 A01 15
2 001 AO1 0 B01 53 002 A01 30 B01 5
4 002 A01 0 B02 5
5 002 A01 0 B03 5解释：
1.表A中 001 和 002 分别为2个单子
 001单子需要20件 002单子需要30件2.表B为汇总式的取东西的记录表
分配在A01上的东西 他分别在4个地方（A01,B01,B02,B03）取，实际数为分别取的数目3.首先是先满足001单子，因为001单子需要20件东西，但是在系统分配的地方A01中只取到15，不能满足20
所以就将在B01上取的10个，分5个给001，来满足001单子。
然后是满足002单子，将在B01拆分后剩余的5个分配给002单子，以此类推。希望高手帮忙