4.6x
report ZBDCMD02 no standard page heading line-size 255.
*
* Author by : SAP Hints and Tips
on Configuration and ABAP/4 Programming
*
http://sapr3.tripod.com
*
TABLES: MARC,
MARA.
*** 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 OCCURS 0,
* data element: MATNR
MATNR_001(018),
* data element: WERKS_D
WERKS_002(004),
* data element: VERSL
VERSL_003(005),
* data element: BANER
BANER_004(001),
* data element: LIFKZ
LIFKZ_005(001),
* data element: DISER
DISER_006(001),
* data element: PLMOD
PLMOD_007(001),
* data element: TRMPL
TRMPL_008(001),
* data element: PLALL
PLALL_009(001),
* data element: ANZLS
ANZLS_010(001),
end of record.
*** End generated data section ***
DATA: D_LINE(5) TYPE N.
SELECT-OPTIONS: S_MATNR FOR MARC-MATNR MEMORY ID M01.
SELECT-OPTIONS: S_WERKS FOR MARC-WERKS OBLIGATORY.
SELECT * FROM MARC WHERE LVORM = SPACE
AND MATNR IN S_MATNR
AND WERKS IN S_WERKS.
CLEAR MARA.
SELECT SINGLE * FROM MARA WHERE MATNR
= MARC-MATNR
AND MTART IN ('HALB',
'FERT').
IF SY-SUBRC <> 0. CONTINUE. ENDIF.
RECORD-MATNR_001 = MARC-MATNR.
RECORD-WERKS_002 = MARC-WERKS.
RECORD-VERSL_003 = 'NETCH'.
RECORD-BANER_004 = 2.
RECORD-LIFKZ_005 = 3.
RECORD-DISER_006 = 1.
RECORD-PLMOD_007 = 3.
RECORD-TRMPL_008 = 2.
RECORD-PLALL_009 = 'X'.
RECORD-ANZLS_010 = 'X'.
ADD 1 TO D_LINE.
WRITE:/ D_LINE NO-ZERO, RECORD-MATNR_001,
RECORD-WERKS_002.
APPEND RECORD.
CLEAR RECORD.
ENDSELECT.
include bdcrecx1.
start-of-selection.
perform open_group.
LOOP AT RECORD.
perform bdc_dynpro using 'SAPMM61X' '0150'.
perform bdc_field using 'BDC_CURSOR'
'RM61X-MATNR'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'RM61X-MATNR'
record-MATNR_001.
perform bdc_field using 'RM61X-WERKS'
record-WERKS_002.
perform bdc_field using 'RM61X-VERSL'
record-VERSL_003.
perform bdc_field using 'RM61X-BANER'
record-BANER_004.
perform bdc_field using 'RM61X-LIFKZ'
record-LIFKZ_005.
perform bdc_field using 'RM61X-DISER'
record-DISER_006.
perform bdc_field using 'RM61X-PLMOD'
record-PLMOD_007.
perform bdc_field using 'RM61X-TRMPL'
record-TRMPL_008.
perform bdc_field using 'RM61X-PLALL'
record-PLALL_009.
perform bdc_field using 'RM61X-ANZLS'
record-ANZLS_010.
perform bdc_dynpro using 'SAPMSSY0' '0120'.
perform bdc_field using 'BDC_OKCODE'
'=XBAC'.
perform bdc_transaction using 'MD02'.
ENDLOOP.
perform close_group.
*--- End of Program
Return to :-
SAP Hints and Tips on Configuration
and ABAP/4 Programming