Hi
Following coding extracting material master data.
my issue is profram extracting balank WERKS. Werks should not be Blank.if it is blank we can not display the item. Werks is in selection screen. pls help me
form get_data.
SELECT mandt matnr meins laeda aenam
FROM mara
INTO TABLE it_mara
WHERE matnr IN s_matnr
AND mtart IN s_mtart.
IF NOT it_mara[] IS INITIAL.
SELECT matnr werks
FROM marc
INTO TABLE it_marc
FOR ALL ENTRIES IN it_mara
WHERE matnr = it_mara-matnr
AND werks = p_werks
AND mmsta IN s_mmsta
AND dispo IN s_dispo
AND beskz IN s_beskz
AND lgpro IN s_lgpro
AND lgfsb IN s_lgfsb.
SELECT matnr maktx
FROM makt
INTO TABLE it_makt
FOR ALL ENTRIES IN it_mara
WHERE matnr = it_mara-matnr
AND spras = 'E'.
SELECT matnr zppqt zspqt zpmqt_3
INTO TABLE it_zmpkg
FROM zmpkg
FOR ALL ENTRIES IN it_mara
WHERE matnr = it_mara-matnr
AND werks = p_werks.
ENDIF.
LOOP AT it_mara.
it_material-mandt = it_mara-mandt.
it_material-matnr = it_mara-matnr.
it_material-meins = it_mara-meins.
it_material-laeda = it_mara-laeda.
it_material-aenam = it_mara-aenam.
it_material-date = sy-datum.
it_material-time = sy-uzeit.
it_material-user = sy-uname.
it_material-file = p_pcfile.
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
EXPORTING
input = it_material-meins
IMPORTING
output = it_material-meins.
READ TABLE it_marc WITH KEY matnr = it_mara-matnr.
IF sy-subrc EQ 0.
it_material-werks = it_marc-werks.
endif.
READ TABLE it_makt WITH KEY matnr = it_mara-matnr.
IF sy-subrc EQ 0.
it_material-maktx = it_makt-maktx.
endif.
READ TABLE it_zmpkg WITH KEY matnr = it_mara-matnr.
IF sy-subrc EQ 0.
it_material-zppqt = it_zmpkg-zppqt.
it_material-zspqt = it_zmpkg-zspqt.
it_material-zpmqt_3 = it_zmpkg-zpmqt_3.
endif.
APPEND it_material.
clear : it_material, it_marc, it_makt, it_zmpkg, it_mara.
ENDLOOP.
ENDFORM. " GET_DATA