Skip to Content
0
Former Member
May 09, 2008 at 07:46 AM

logic needed pls help me urgent

30 Views

Hi Experts

pls help me

i am displaying material master data in ALV report. i am extracting

fields from mara, makt, marc and zppqt tables

it_mara[]

MANDT MATNR MEINS LAEDA AENAM

020 |2062101|ST |20071126|ITS_PDMS|

020 |2062103|ST |20060612|RKOZLOWS|

020 |2062131|ST |20080109|KARTHIKEYAN|

020 |2062132|ST |20060612|RKOZLOWS|

it_marc[]

MATNR WERKS

2062101|2401|

2062103|2401|

2062131|2401|

it_makt[]

MATNR MAKTX

2062101|TERMINAL

2062103|"TERMINAL

2062131|TERMINAL

it_zmpkg[]

MATNR ZPPQT ZSPQT ZPMQT_3

2062101|300 |2000 | 0 |

my report output only displaying it_zmpkg[] value only.

it should display it_matnr values

following is my code 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_marc

WHERE matnr = it_marc-matnr

AND spras = 'E'.

SELECT matnr zppqt zspqt zpmqt_3

INTO TABLE it_zmpkg

FROM zmpkg

FOR ALL ENTRIES IN it_marc

WHERE matnr = it_marc-matnr

AND werks = p_werks.

ENDIF.

LOOP AT it_mara.

READ TABLE it_marc WITH KEY matnr = it_mara-matnr.

IF sy-subrc EQ 0.

*endif.

READ TABLE it_makt WITH KEY matnr = it_mara-matnr.

IF sy-subrc EQ 0.

*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.

it_material-date = sy-datum.

it_material-time = sy-uzeit.

it_material-user = sy-uname.

it_material-file = p_pcfile.

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-werks = it_marc-werks.

it_material-maktx = it_makt-maktx.

*endif.

*ENDIF.

*ENDIF.

CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'

EXPORTING

input = it_material-meins

IMPORTING

output = it_material-meins.

APPEND it_material.

clear it_material.

ENDIF.

ENDIF.

ENDIF.

ENDLOOP.

ENDFORM.

" GET_DATA