BATCHINPUT - CREATE QUALITY VIEW

* Local data declaration
  DATA:
        lt_bdcmsgcoll TYPE STANDARD TABLE OF bdcmsgcoll,
        lt_bdcdata TYPE STANDARD TABLE OF bdcdata.
*--------------------------------------------------------------------*
  perform bdc_dynpro tables lt_bdcdata using 'SAPLMGMM' '60'.
  perform bdc_field tables lt_bdcdata using 'BDC_CURSOR' 'RMMG1-MATNR'.
  perform bdc_field tables lt_bdcdata using 'BDC_OKCODE' '=ENTR'.
  perform bdc_field tables lt_bdcdata using 'RMMG1-MATNR' ls_record-matnr.
  perform bdc_field tables lt_bdcdata using 'RMMG1-MBRSH' ls_record-mbrsh.
  perform bdc_field tables lt_bdcdata using 'RMMG1-MTART' ls_record-mtart.
  perform bdc_field tables lt_bdcdata using 'BDC_CURSOR' 'MSICHTAUSW-DYTXT(01)'.
  perform bdc_field tables lt_bdcdata using 'BDC_OKCODE' '/00'.

  perform bdc_dynpro tables lt_bdcdata using 'SAPLMGMM' '70'.
  perform bdc_field tables lt_bdcdata using 'BDC_CURSOR' 'MSICHTAUSW-DYTXT(01)'.
  perform bdc_field tables lt_bdcdata using 'BDC_OKCODE' '=P+'.

  perform bdc_dynpro tables lt_bdcdata using 'SAPLMGMM' '70'.
  perform bdc_field tables lt_bdcdata using 'BDC_CURSOR' 'MSICHTAUSW-DYTXT(05)'.
  perform bdc_field tables lt_bdcdata using 'BDC_OKCODE' '=ENTR'.
  perform bdc_field tables lt_bdcdata using 'MSICHTAUSW-KZSEL(05)' 'X'.

  perform bdc_dynpro tables lt_bdcdata using 'SAPLMGMM' '80'.
  perform bdc_field tables lt_bdcdata using 'BDC_CURSOR' 'RMMG1-WERKS'.
  perform bdc_field tables lt_bdcdata using 'BDC_OKCODE' '=ENTR'.
  perform bdc_field tables lt_bdcdata using 'RMMG1-WERKS' ls_record-werks.

  perform bdc_dynpro tables lt_bdcdata using 'SAPLMGMM' '4000'.
  perform bdc_field tables lt_bdcdata using 'BDC_OKCODE' '=BU'.
  perform bdc_field tables lt_bdcdata using 'BDC_SUBSCR' 'SAPLMGMM                                2000TABFRA1'.
  perform bdc_field tables lt_bdcdata using 'BDC_SUBSCR' 'SAPLMGD1                                1001SUB1'.
*  perform bdc_field tables lt_bdcdata using 'BDC_CURSOR' 'MAKT-MAKTX'.
*  perform bdc_field tables lt_bdcdata using 'MAKT-MAKTX' 'DN CAN MODBUS-RTU Extension Cable 3m'.
  perform bdc_field tables lt_bdcdata using 'BDC_SUBSCR' 'SAPLMGD1                                2751SUB2'.
  perform bdc_field tables lt_bdcdata using 'BDC_SUBSCR' 'SAPLMGD1                                2752SUB3'.
  perform bdc_field tables lt_bdcdata using 'BDC_SUBSCR' 'SAPLMGD1                                0001SUB4'.
  perform bdc_field tables lt_bdcdata using 'BDC_SUBSCR' 'SAPLMGD1                                0001SUB5'.
  perform bdc_field tables lt_bdcdata using 'BDC_SUBSCR' 'SAPLMGD1                                0001SUB6'.


  CALL TRANSACTION 'MM01' USING lt_bdcdata
    MODE 'P'
    UPDATE 'S'    MESSAGES INTO lt_bdcmsgcoll.