report Z12_33
       no standard page heading line-size 255.

include bdcrecx1.

parameters: dataset(132) lower case default
                              'C:BDCTEST.TXT'.
***    DO NOT CHANGE - the generated data section - DO NOT CHANGE    ***
*
*   If it is nessesary to change the data section use the rules:
*   1.) Each definition of a field exists of two lines
*   2.) The first line shows exactly the comment
*       '* data element: ' followed with the data element
*       which describes the field.
*       If you don't have a data element use the
*       comment without a data element name
*   3.) The second line shows the fieldname of the
*       structure, the fieldname must consist of
*       a fieldname and optional the character '_' and
*       three numbers and the field length in brackets
*   4.) Each field must be type C.
*
*** Generated data section with specific formatting - DO NOT CHANGE  ***
data: begin of record,
* data element: MATNR
        MATNR_001(018),
* data element: XFELD
        KZSEL_12_002(001),
* data element: WERKS_D
        WERKS_003(004),
* data element: MAKTX
        MAKTX_004(040),
* data element: MEINS
        MEINS_005(003),
* data element: EKGRP
        EKGRP_006(003),
* data element: DISMM
        DISMM_007(002),
* data element: DISPO
        DISPO_008(003),
* data element: DISLS
        DISLS_009(002),
* data element: BSTMA
        BSTMA_010(017),
      end of record.

*** End generated data section ***

start-of-selection.

perform open_dataset using dataset.
perform open_group.

do.

read dataset dataset into record.
if sy-subrc <> 0. exit. endif.

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'
                              record-MATNR_001.
perform bdc_dynpro      using 'SAPLMGMM' '0070'.
perform bdc_field       using 'BDC_CURSOR'
                              'MSICHTAUSW-DYTXT(12)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(12)'
                              record-KZSEL_12_002.
perform bdc_dynpro      using 'SAPLMGMM' '0080'.
perform bdc_field       using 'BDC_CURSOR'
                              'RMMG1-WERKS'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_field       using 'RMMG1-WERKS'
                              record-WERKS_003.
perform bdc_dynpro      using 'SAPLMGMM' '5000'.
perform bdc_field       using 'BDC_OKCODE'
                              '=BABA'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-MAKTX_004.
perform bdc_field       using 'MARA-MEINS'
                              record-MEINS_005.
perform bdc_field       using 'MARC-EKGRP'
                              record-EKGRP_006.
perform bdc_field       using 'MARC-DISMM'
                              record-DISMM_007.
perform bdc_field       using 'MARC-DISPO'
                              record-DISPO_008.
perform bdc_field       using 'MARC-DISLS'
                              record-DISLS_009.
perform bdc_field       using 'MARC-BSTMA'
                              record-BSTMA_010.
perform bdc_transaction using 'MM02'.

enddo.

perform close_group.
perform close_dataset using dataset.