Code: Alles auswählen.
* Read old data
CALL FUNCTION 'ITOB_EQUIPMENT_READ'
CHANGING
c_object_tab = lt_equi_change
EXCEPTIONS
NOT_SUCCESSFUL = 1
OTHERS = 2
.
LOOP AT lt_equi_change INTO ls_equi_change.
ls_equi_change-s_sale = ' '.
ls_equi_change-groes = 1.
* Update
CALL FUNCTION 'ITOB_EQUIPMENT_MODIFY_SINGLE'
EXPORTING
i_post_buffer = 'X'
I_COMMIT_WORK = 'X'
i_object_rec = ls_equi_change
EXCEPTIONS
not_successful = 1
OTHERS = 2.
ENDLOOP.