Batch-Input - Struktur Textdatei für mm01

Code: Alles auswählen.

report Z_MM01_PROGRAMM01
       no standard page heading line-size 255.

*************DECLARATIONS******************

tables: RMMG1, MAKT, MARA, MARC.
include bdcrecx1.
data: begin of bdc_data occurs 0.
        include structure bdcdata.
data: end of bdc_data.

data: begin of itab occurs 0,
  MATNR LIKE RMMG1-MATNR,
  MBRSH LIKE RMMG1-MBRSH,
  MTART LIKE RMMG1-MTART,
  WERKS LIKE RMMG1-WERKS,
  MAKTX LIKE MAKT-MAKTX,
  MEINS LIKE MARA-MEINS,
  MATKL LIKE MARA-MATKL,
  SPART LIKE MARA-SPART,
  MTPOS_MARA LIKE MARA-MTPOS_MARA,
  BRGEW LIKE MARA-BRGEW,
  GEWEI LIKE MARA-GEWEI,
  NTGEW LIKE MARA-NTGEW,
  EKGRP LIKE MARC-EKGRP,
  end of itab.

*************INITIALIZATIONS***************

start-of-selection.
  CLEAR BDC_DATA.
  REFRESH BDC_DATA.

*************UPLOAD*******************

  PERFORM DATEN_LADEN USING
          'C:\Datenmigration\batch3.txt'.

*************CALL TRANSACTION*************

  PERFORM open_group.
  loop at itab.
perform bdc_dynpro      using 'SAPLMGMM' '0060'.
* perform bdc_field       using 'BDC_CURSOR'
*                               'RMMG1-MATNR'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_field       using 'RMMG1-MATNR'
                              'itab-MATNR'.
perform bdc_field       using 'RMMG1-MBRSH'
                              'itab-MBRSH'.
perform bdc_field       using 'RMMG1-MTART'
                              'itab-MTART'.
perform bdc_dynpro      using 'SAPLMGMM' '0070'.
* perform bdc_field       using 'BDC_CURSOR'
*                               'MSICHTAUSW-DYTXT(09)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(01)'
                              'X'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(09)'