[oswaldo]

loop at t_print where lgart eq '/151'.
move: t_print-pernr to t_print_new-pernr,
t_print-ename to t_print_new-ename,
t_print-icnum to t_print_new-icnum,
t_print-lgart to t_print_new-cc_base,
t_print-lgtxt to t_print_new-lgtxt_1,
t_print-betrg to t_print_new-base_imp.
endloop.

loop at t_print where lgart eq '/401'.
move: t_print-pernr to t_print_new-pernr,
t_print-ename to t_print_new-ename,
t_print-icnum to t_print_new-icnum,
t_print-lgart to t_print_new-cc_monto_ret,
t_print-lgtxt to t_print_new-lgtxt_2,
t_print-betrg to t_print_new-monto_ret.

sort t_print_new.
delete adjacent duplicates from t_print_new comparing cc_monto_ret.
endloop.
append t_print_new.