Code: Alles auswählen.
FUNCTION zsample_interface_rwbapi01.
*"--------------------------------------------------------------------
""Local Interface:
*" TABLES
*" IT_ACCIT STRUCTURE ACCIT
*" IT_ACCCR STRUCTURE ACCCR
*" RETURN STRUCTURE BAPIRET2
*" EXTENSION STRUCTURE BAPIACEXTC
*" IT_ACCWT STRUCTURE ACCIT_WT
*" CHANGING
*" VALUE(DOCUMENT_HEADER) LIKE ACCHD STRUCTURE ACCHD
*"--------------------------------------------------------------------
DATA : wa_extension TYPE bapiacextc.
CLEAR: wa_extension.
LOOP AT extension INTO wa_extension.
READ TABLE it_accit WITH KEY posnr = wa_extension-field1(10).
IF sy-subrc EQ 0.
it_accit-bschl = wa_extension-field1+10(2).
MODIFY it_accit INDEX sy-tabix.
ENDIF.
ENDLOOP.
ENDFUNCTION.