BDC-MM02

*&---------------------------------------------------------------------*
*& 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 '更新成功'.