Code: Alles auswählen.
WHEN '&IC1'.
READ TABLE gt_itab_second INTO wa_aktuelle_zeile INDEX rs_selfield-tabindex.
APPEND wa_aktuelle_zeile-banfn TO gt_itab_dummy.
CALL TRANSACTION 'ME53N' USING gt_itab_dummy
MODE 'E'
UPDATE 'A'.
Code: Alles auswählen.
DATA: gt_itab_dummy LIKE bdcdata OCCURS 5 WITH HEADER LINE.
Code: Alles auswählen.
PROGRAM.
*----------------------------------------------------------------------*
DATA
ibdc TYPE TABLE OF bdcdata.
*----------------------------------------------------------------------*
FIELD-SYMBOLS
<xbdc> LIKE LINE OF ibdc.
*----------------------------------------------------------------------*
START-OF-SELECTION.
APPEND INITIAL LINE TO ibdc ASSIGNING <xbdc>.
<xbdc>-program = 'SAPMM06B'.
<xbdc>-dynpro = '0105'.
<xbdc>-dynbegin = 'X'.
*
APPEND INITIAL LINE TO ibdc ASSIGNING <xbdc>.
<xbdc>-fnam = 'EBAN-BANFN'.
<xbdc>-fval = '4711'.
*
...
Code: Alles auswählen.
*BDCDATA-PROGRAM = 'SAPMTFCA'.
bdcdata-dynpro = '0100'.
bdcdata-dynbegin = 'X'.
APPEND bdcdata.
CLEAR bdcdata.
bdcdata-fnam = 'EBAN-BANFN'.
bdcdata-fval = '10000024'.
APPEND bdcdata.
CALL TRANSACTION 'ME53N' USING bdcdata MODE 'A'.
Code: Alles auswählen.
bdcdata-fval = dummy.
Code: Alles auswählen.
WHEN '&IC1'.
READ TABLE gt_itab_second INTO wa_aktuelle_zeile INDEX rs_selfield-tabindex.
SET PARAMETER ID 'BAN' FIELD wa_aktuelle_zeile-banfn.
CALL TRANSACTION 'ME53' AND SKIP FIRST SCREEN.