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.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
110 | REPORT z12_28. | sapjoy | 2012.07.30 | 1032 |
109 | REPORT z12_29. | sapjoy | 2012.07.30 | 910 |
108 | REPORT z12_30. | sapjoy | 2012.07.30 | 1160 |
107 | REPORT z12_31. | sapjoy | 2012.07.30 | 1312 |
106 | REPORT z12_32. | sapjoy | 2012.07.30 | 994 |
» | report Z12_33 | sapjoy | 2012.07.30 | 1193 |
104 | PROGRAM z13_01. | sapjoy | 2012.08.01 | 1411 |
103 | PROGRAM z13_02. | sapjoy | 2012.08.01 | 1184 |
102 | PROGRAM z13_03. | sapjoy | 2012.08.01 | 1163 |
101 | PROGRAM z13_04. | sapjoy | 2012.08.01 | 1023 |
100 | PROGRAM z13_05. | sapjoy | 2012.08.01 | 1153 |
99 | REPORT Z14_01. | sapjoy | 2012.08.01 | 910 |
98 | REPORT Z14_02. | sapjoy | 2012.08.01 | 843 |
97 | REPORT z14_03. | sapjoy | 2012.08.01 | 872 |
96 | REPORT z14_04. | sapjoy | 2012.08.01 | 932 |
95 | REPORT z14_05. | sapjoy | 2012.08.01 | 858 |
94 | REPORT z14_06. [1] | sapjoy | 2012.08.01 | 1007 |
93 | REPORT z14_07. | sapjoy | 2012.08.01 | 818 |
92 | REPORT z14_08. [2] | sapjoy | 2012.08.01 | 1012 |
91 | REPORT z14_09. | sapjoy | 2012.08.01 | 800 |