数据：it_beh_ver类似于SOURCE_PACKAGE，
it_beh_dienst LIKE源代码包，
it_result LIKE源代码包，
wa_result喜欢it_result的线，
sum TYPE I，

count_ver类型I

vount_dienst类型I。
it_beh_ver [] = SOURCE_PACKAGE []。
it_beh_dienst [] = SOURCE_PACKAGE []。
字段符号：喜欢，
喜欢。
按BEH_AANID BEH_VER排序it_beh_Ver。
从it_beh_Ver删除相邻的副本，比较BEH_AANID BEH_VER。
按BEH_AANID BEH_VER排序it_beh_dienst。
从it_beh_dienst中删除相邻的副本，并比较BEH_AANID BEH_dienst。
从source_package中删除相邻的副本，并比较BEH_AANID。
在SOURCE_PACKAGE ASSIGNING 处循环播放。
清除：求和，wa_result，count_ver，count_dienst。
UNASSIGN <版本>。
环聊it_beh_ver ASSIGNING 。
sum = sum + -record。"按余额替换

count_ver = count_ver +1。
ENDLOOP。
如果总和<> 0.
MOVE TO wa_result。"它将始终是最后更新的记录
将wa_result附加到it_result。
ENDIF。
UNASSIGN 。
循环至it_beh_dienst分配。
sum = sum + -record。"替换为余额

count_dienst = count_dienst +1。
ENDLOOP。
如果总和<> 0.
MOVE TO wa_result。"它将始终是最后更新的记录
将wa_result附加到it_result。
ENDIF。
如果count_ver是INITIAL，而count_dienst是INITIAL。
MOVE TO wa_result。"更新单个记录
将wa_result附加到it_result。
ENDIF。
ENDLOOP。
刷新source_package。
source_package [] = it_result []。