*&---------------------------------------------------------------------*
*& Report ZBDC081401
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZBDC081401.
INCLUDE ZHQ_01_TOP.
INCLUDE ZHQ_01_FORM.
START-OF-SELECTION.
DATA GT_MATERIAL TYPE TABLE OF MATERIAL.
DATA GS_MATERIAL TYPE MATERIAL.
DATA BDCDATA TYPE BDCDATA OCCURS 0 WITH HEADER LINE.
CLEAR BDCDATA.
BDCDATA-PROGRAM = 'SAPLMGMM'.
BDCDATA-DYNPRO = '0060'.
BDCDATA-DYNBEGIN = 'X'.
BDCDATA-FNAM = ''.
BDCDATA-FVAL = ''.
APPEND BDCDATA.
CLEAR BDCDATA.
BDCDATA-FNAM = 'BDC_CURSOR'.
BDCDATA-FVAL = 'RMMG1-MATNR'.
APPEND BDCDATA.
CLEAR BDCDATA.
BDCDATA-FNAM = 'BDC_OKCODE'.
BDCDATA-FVAL = '=ENTR'.
APPEND BDCDATA.
CLEAR BDCDATA.
BDCDATA-FNAM = 'RMMG1-MATNR'.
BDCDATA-FVAL = 'A01'.
APPEND BDCDATA.
CLEAR BDCDATA.
BDCDATA-PROGRAM = 'SAPLMGMM'.
BDCDATA-DYNPRO = '0070'.
BDCDATA-DYNBEGIN = 'X'.
BDCDATA-FNAM = ''.
BDCDATA-FVAL = ''.
APPEND BDCDATA.
CLEAR BDCDATA.
BDCDATA-FNAM = 'BDC_OKCODE'.
BDCDATA-FVAL = '=ENTR'.
APPEND BDCDATA.
CLEAR BDCDATA.
BDCDATA-FNAM = 'MSICHTAUSW-KZSEL(01)'.
BDCDATA-FVAL = 'X'.
APPEND BDCDATA.
CLEAR BDCDATA.
BDCDATA-PROGRAM = 'SAPLMGMM'.
BDCDATA-DYNPRO = '4004'.
BDCDATA-DYNBEGIN = 'X'.
BDCDATA-FNAM = ''.
BDCDATA-FVAL = ''.
APPEND BDCDATA.
CLEAR BDCDATA.
BDCDATA-FNAM = 'BDC_OKCODE'.
BDCDATA-FVAL = '=BU'.
APPEND BDCDATA.
CLEAR BDCDATA.
BDCDATA-FNAM = 'MAKT-MAKTX'.
BDCDATA-FVAL = 'S4'.
APPEND BDCDATA.
CLEAR BDCDATA.
BDCDATA-FNAM = 'MARA-BISMT'.
BDCDATA-FVAL = 'Hana数据库'.
APPEND BDCDATA.
END-OF-SELECTION.
CALL TRANSACTION 'MM02' USING BDCDATA MODE 'N'.
WRITE '更新成功'.