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