메뉴 건너뛰기

SAP 한국 커뮤니티

report Z12_33

sapjoy 2012.07.30 22:45 조회 수 : 1191

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.

번호 제목 글쓴이 날짜 조회 수
588 REPORT z14_17. sapjoy 2012.08.01 1023
587 REPORT z14_16. [1] sapjoy 2012.08.01 907
586 REPORT z14_15. sapjoy 2012.08.01 1016
585 REPORT z14_14. sapjoy 2012.08.01 1012
584 REPORT z14_13. sapjoy 2012.08.01 797
583 REPORT z14_12. sapjoy 2012.08.01 850
582 REPORT z14_11. sapjoy 2012.08.01 835
581 REPORT z14_10. sapjoy 2012.08.01 847
580 REPORT z14_09. sapjoy 2012.08.01 799
579 REPORT z14_08. [2] sapjoy 2012.08.01 1007
578 REPORT z14_07. sapjoy 2012.08.01 816
577 REPORT z14_06. [1] sapjoy 2012.08.01 1003
576 REPORT z14_05. sapjoy 2012.08.01 855
575 REPORT z14_04. sapjoy 2012.08.01 929
574 REPORT z14_03. sapjoy 2012.08.01 870
573 REPORT Z14_02. sapjoy 2012.08.01 841
572 REPORT Z14_01. sapjoy 2012.08.01 907
571 PROGRAM z13_05. sapjoy 2012.08.01 1148
570 PROGRAM z13_04. sapjoy 2012.08.01 1018
569 PROGRAM z13_03. sapjoy 2012.08.01 1153