BATCHINPUT - DEFINE GROSS WEIGHT

*--------------------------------------------------------------------*
* LOCAL DATA DECLARATION
  DATA:
        bdcdata_tab TYPE TABLE OF bdcdata,
        lv_string TYPE string .
*--------------------------------------------------------------------*
* DEFINITION FOR UPDATE MATERIAL GROSS WEIGHT WITH MM02
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  'T' 'MM02' ''.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING 'SAPLMGMM'  '60'  'X'  '' ''.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  '' 'BDC_CURSOR' 'RMMG1-MATNR'.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  '' 'BDC_OKCODE' '=ENTR'.
  lv_string = ps_record-matnr.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  '' 'RMMG1-MATNR' lv_string.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING 'SAPLMGMM'  '70'  'X'  '' ''.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  '' 'BDC_CURSOR' 'MSICHTAUSW-DYTXT(02)'.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  '' 'BDC_OKCODE' '=ENTR'.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  '' 'MSICHTAUSW-KZSEL(01)' 'X'.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  '' 'MSICHTAUSW-KZSEL(02)' 'X'.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING 'SAPLMGMM'  '4004'  'X'  '' ''.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  '' 'BDC_OKCODE' '=BU'.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  '' 'BDC_SUBSCR' 'SAPLMGMM                                2004TABFRA1'.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  '' 'BDC_SUBSCR' 'SAPLMGD1                                1002SUB1'.
*  perform set_bdc_mx tables bdcdata_tab using ''  ''  '' 'MAKT-MAKTX''WHITE PLASTIC X-MAS'.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  '' 'BDC_SUBSCR' 'SAPLMGD1                                2001SUB2'.
*  perform set_bdc_mx tables bdcdata_tab using ''  ''  '' 'MARA-MEINS' 'EA'.
*  perform set_bdc_mx tables bdcdata_tab using ''  ''  '' 'MARA-MATKL' '1HD'.
*  perform set_bdc_mx tables bdcdata_tab using ''  ''  '' 'MARA-SPART' '11'.
*  perform set_bdc_mx tables bdcdata_tab using ''  ''  '' 'MARA-MTPOS_MARA' 'NORM'.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  '' 'BDC_SUBSCR' 'SAPLMGD1                                2561SUB3'.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  '' 'BDC_SUBSCR' 'SAPLMGD1                                2007SUB4'.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  '' 'BDC_CURSOR' 'MARA-BRGEW'.
  lv_string = ps_record-brgew.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  '' 'MARA-BRGEW' lv_string.
*  perform set_bdc_mx tables bdcdata_tab using ''  ''  '' 'MARA-GEWEI' 'KG'.
*  perform set_bdc_mx tables bdcdata_tab using ''  ''  '' 'MARA-NTGEW' '0.5'.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  '' 'BDC_SUBSCR' 'SAPLMGD1                                2005SUB5'.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  '' 'BDC_SUBSCR' 'SAPLMGD1                                2011SUB6'.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  '' 'BDC_SUBSCR' 'SAPLMGD1                                2033SUB7'.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  '' 'BDC_SUBSCR' 'SAPLZMGD1                               0005SUB8'.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  '' 'BDC_SUBSCR' 'SAPLMGD1                                0001SUB9'.
  PERFORM set_bdc_mx TABLES bdcdata_tab USING ''  ''  '' 'BDC_SUBSCR' 'SAPLMGD1                                0001SUB10'.
*--------------------------------------------------------------------*
* CALLING TRANSACTION MM02 TO UPDATE THE GROSS WEIGHT
  DATA: lo_cx_root TYPE REF TO cx_root,
        lv_mode TYPE c VALUE 'N',
        lv_update TYPE c VALUE 'S'.
  TRY.
      CALL TRANSACTION 'MM02'
        USING  bdcdata_tab
              MODE lv_mode
              UPDATE lv_update
              .
    CATCH cx_root INTO lo_cx_root.
  ENDTRY.
*--------------------------------------------------------------------*