BDC
作者：互联网
REPORT ZXD01 NO STANDARD PAGE HEADING LINE-SIZE 135.
TABLES:KNVV.
DEFINE FILLDYNPRO.
clear ldtbdcdata.
ldtbdcdata-program = &1.
ldtbdcdata-dynpro = &2.
ldtbdcdata-dynbegin = 'X'.
append ldtbdcdata.
END-OF-DEFINITION.
DEFINE FILLFIELD.
clear ldtbdcdata.
ldtbdcdata-fnam = &1.
ldtbdcdata-fval = &2.
append ldtbdcdata.
END-OF-DEFINITION.
DATA: LDFGROUP TYPE BGR00-GROUP,
LDTBDCDATA TYPE TABLE OF BDCDATA WITH HEADER LINE,
LDTTABNAME TYPE TABLE OF DD08T.
DATA: MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
FIELD-SYMBOLS <TABNAME> TYPE DD08T.
SELECT-OPTIONS: S_KUNNR FOR KNVV-KUNNR.
PARAMETERS: P_FLAG TYPE C.
LOOP AT S_KUNNR.
FILLDYNPRO 'SAPMF02D' '0101'.
FILLFIELD: 'BDC_CURSOR' 'RF02D-D0310',
'BDC_OKCODE' '/00',
'RF02D-KUNNR' S_KUNNR-LOW,
'RF02D-BUKRS' '1000',
'RF02D-VKORG' '1000',
'RF02D-VTWEG' 'H1',
'RF02D-SPART' '00',
'RF02D-D0310' 'X'.
FILLDYNPRO 'SAPMF02D' '0310'.
FILLFIELD: 'BDC_CURSOR' 'KNVV-BZIRK',
'BDC_OKCODE' '=TEXT'.
FILLDYNPRO 'SAPMF02D' '3500'.
FILLFIELD: 'BDC_OKCODE' '=TEDE'.
FILLFIELD: 'BDC_CURSOR' 'RTEXT-TTEXT(01)'.
FILLDYNPRO 'SAPLSTXX' '1100'.
FILLFIELD: 'BDC_CURSOR' 'RSTXT-TXLINE(10)',
'BDC_OKCODE' '=TXVB',
'RSTXT-TXLINE(10)' 'abc'.
FILLDYNPRO 'SAPLSTXX' '1100'.
FILLFIELD: 'BDC_CURSOR' 'RSTXT-TXLINE(10)',
'BDC_OKCODE' '=TXBA'.
FILLDYNPRO 'SAPMF02D' '3500'.
FILLFIELD: 'BDC_OKCODE' '=UPDA'.
CALL TRANSACTION 'XD02'
USING LDTBDCDATA
MODE 'A' " display screen
* mode 'E' " Display screen only if an error occurs
* MODE 'N' " No display
UPDATE 'S' " Synchronous update
MESSAGES INTO MESSTAB.
REFRESH LDTBDCDATA.
ENDLOOP.
LOOP AT MESSTAB.
WRITE:/ MESSTAB-MSGTYP,MESSTAB-MSGV1,MESSTAB-MSGV2,MESSTAB-MSGV3,MESSTAB-MSGV4.
ENDLOOP.
标签：FILLFIELD,BDC,MESSTAB,RF02D,ldtbdcdata,FILLDYNPRO 来源： https://blog.csdn.net/chfeijj/article/details/114830586