querry

[Former Member]

Hi,

I have fetched all the data in different internal tables.

Now i have to take all data in fianl table.

So please tell me how can i take ebeln,lifnr fields in final table.

Here is my code

SELECT a_{matnr a}mfrpn a_{mfrnr a}matkl

b_{werks b}stawn b_{mtver b}herkl

c~maktx

INTO corresponding fields of table itab_mara

FROM ( mara

as a

INNER JOIN marc as b

on a_{matnr = b}matnr )

INNER JOIN makt as c

on a_{matnr = c}matnr

WHERE werks IN s_werks

AND stawn IN s_stawn

AND ersda IN s_ersda

AND matkl In s_matkl.

clear: itab_mara.

SELECT ebeln

INTO table itab_ekpo

from ekpo

FOR ALL ENTRIES IN itab_mara

WHERE matnr = itab_mara-matnr.

DELETE ADJACENT DUPLICATES FROM itab_ekpo.

SELECT lifnr

INTO table itab_ekko

from ekko

FOR ALL ENTRIES IN itab_ekpo

WHERE ebeln = itab_ekpo-ebeln.

sort itab_mara.

SELECT lifnr name1

INTO table itab_lfa1

FROM lfa1

FOR ALL ENTRIES IN itab_mara

WHERE lifnr = itab_mara-mfrnr.

sort itab_ekko.

SELECT lifnr name1

appending table itab_lfa1

FROM LFA1

FOR ALL ENTRIES IN itab_ekko

WHERE lifnr = itab_ekko-lifnr.

sort itab_lfa1.

SELECT a_{stawn b}text1

INTO table itab_t604

FROM t604 as a

INNER JOIN t604t as b

on a_{stawn = b}stawn

FOR ALL ENTRIES IN itab_mara

WHERE a~stawn = itab_mara-stawn.

SELECT maktx

INTO table itab_makt

FROM makt

FOR ALL ENTRIES IN itab_mara

WHERE matnr = itab_mara-matnr.

LOOP AT itab_final.

itab_final-matnr = itab_mara-matnr.

itab_final-mfrpn = itab_mara-mfrpn.

itab_final-mfrnr = itab_mara-mfrnr.

itab_final-matkl = itab_mara-matkl.

itab_final-werks = itab_mara-werks.

itab_final-stawn = itab_mara-stawn.

itab_final-mtver = itab_mara-mtver.

itab_final-herkl = itab_mara-herkl.

itab_final-maktx = itab_mara-maktx.

Thanks,

Sandeep

[Former Member]

Hi,

I have fetched all the data in different internal tables.

Now i have to take all data in fianl table.

So please tell me how can i take ebeln,lifnr fields in final table.

Here is my code

SELECT a_{matnr a}mfrpn a_{mfrnr a}matkl

b_{werks b}stawn b_{mtver b}herkl

c~maktx

INTO corresponding fields of table itab_mara

FROM ( mara

as a

INNER JOIN marc as b

on a_{matnr = b}matnr )

INNER JOIN makt as c

on a_{matnr = c}matnr

WHERE werks IN s_werks

AND stawn IN s_stawn

AND ersda IN s_ersda

AND matkl In s_matkl.

clear: itab_mara.

SELECT ebeln

INTO table itab_ekpo

from ekpo

FOR ALL ENTRIES IN itab_mara

WHERE matnr = itab_mara-matnr.

DELETE ADJACENT DUPLICATES FROM itab_ekpo.

SELECT lifnr

INTO table itab_ekko

from ekko

FOR ALL ENTRIES IN itab_ekpo

WHERE ebeln = itab_ekpo-ebeln.

sort itab_mara.

SELECT lifnr name1

INTO table itab_lfa1

FROM lfa1

FOR ALL ENTRIES IN itab_mara

WHERE lifnr = itab_mara-mfrnr.

sort itab_ekko.

SELECT lifnr name1

appending table itab_lfa1

FROM LFA1

FOR ALL ENTRIES IN itab_ekko

WHERE lifnr = itab_ekko-lifnr.

sort itab_lfa1.

SELECT a_{stawn b}text1

INTO table itab_t604

FROM t604 as a

INNER JOIN t604t as b

on a_{stawn = b}stawn

FOR ALL ENTRIES IN itab_mara

WHERE a~stawn = itab_mara-stawn.

SELECT maktx

INTO table itab_makt

FROM makt

FOR ALL ENTRIES IN itab_mara

WHERE matnr = itab_mara-matnr.

LOOP AT itab_final.

itab_final-matnr = itab_mara-matnr.

itab_final-mfrpn = itab_mara-mfrpn.

itab_final-mfrnr = itab_mara-mfrnr.

itab_final-matkl = itab_mara-matkl.

itab_final-werks = itab_mara-werks.

itab_final-stawn = itab_mara-stawn.

itab_final-mtver = itab_mara-mtver.

itab_final-herkl = itab_mara-herkl.

itab_final-maktx = itab_mara-maktx.

Thanks,

Sandeep

[S0025444845]

hi,

dont loop on it_final.

loop at it_mara into wa_mara..

move corresponding fields of wa_mara to wa_final.

read all other tables based on keys from it_final.

append wa_final tyo it_final.

clear all work areas.

endloop.

regards,

sudha

[Former Member]

Hi

First

Loop at i_ekko.

Read table i_EKPO with key ebeln = i_ekko-ebeln

if sy-subrc = 0

<move-corresponding fields to i_final from i_ekpo>

endif.

Read table i_lfa1 with key lifnr = i_ekko-lifnr.

if sy-subrc = 0

<move-corresponding fields to i_final from i_lfa1>

endif.

Read table i_mara with key matnr = i_ekko-matnr.

if sy-subrc = 0

<move-corresponding fields to i_final from i_mara>.

Read table i_t604 with key stawn = i_mara-stawn.

if sy-subrc = 0

<move-corresponding fields to i_final from i_t604>.

endif.

endif.

Read table i_makt with key matnr = i_ekko-matnr.

if sy-subrc = 0

<move-corresponding fields to i_final from i_makt>

endif.

append i_final.

clear i_final.

endloop.

Reward points for useful Answers

Regards

Anji

[Former Member]

Hi,

Loop at itab_mara.

itab_final-matnr = itab_mara-matnr.

itab_final-mfrpn = itab_mara-mfrpn.

itab_final-mfrnr = itab_mara-mfrnr.

itab_final-matkl = itab_mara-matkl.

itab_final-werks = itab_mara-werks.

itab_final-stawn = itab_mara-stawn.

itab_final-mtver = itab_mara-mtver.

itab_final-herkl = itab_mara-herkl.

itab_final-maktx = itab_mara-maktx.

read table itab_ekpo into w_ekpo

with key matnr = itab_final-matnr.

itab_final-ebeln = itab_ekpo-ebeln.

read table itab_ekko into w_ekko

with key ebeln = itab_final-ebeln.

itab_final-lifnr = itab_ekpo-lifnr.

in this way write all the read statements corresponding to your select statements.

regards,

Ruchika

Reward if useful.