topic Re: REPORTS in Application Development and Automation Discussions

REPORTS

Former Member — Wed, 06 Aug 2008 04:45:51 GMT

Hi ,

my prgmis syntactically correct but after executing i am not getting output plz check my code and reply

REPORT ZZTEST_REP .

DATA : BEGIN OF IT_MARA OCCURS 0 ,

MATNR LIKE MARA-MATNR,

ERSDA LIKE MARA-ERSDA,

ERNAM LIKE MARA-ERNAM,

MTART LIKE MARA-MTART,

MBRSH LIKE MARA-MBRSH,

END OF IT_MARA.

DATA : BEGIN OF IT_MAKT OCCURS 0,

MATNR LIKE MAKT-MATNR,

SPRAS LIKE MAKT-SPRAS,

MAKTX LIKE MAKT-MAKTX,

MAKTG LIKE MAKT-MAKTG,

END OF IT_MAKT.

SELECT-OPTIONS : S_MATNR FOR IT_MARA-MATNR.

START-OF-SELECTION.

SELECT MATNR ERSDA ERNAM MTART MBRSH FROM MARA INTO

IT_MARA WHERE MATNR EQ IT_MARA-MATNR.

ENDSELECT.

IF NOT IT_MARA[] IS INITIAL.

SELECT MATNR SPRAS MAKTX MAKTG FROM MAKT INTO IT_MAKT FOR ALL ENTRIES IN

IT_MARA WHERE MATNR EQ IT_MARA-MATNR.

ENDSELECT.

ENDIF.

LOOP AT IT_MARA.

WRITE 😕 IT_MARA-MATNR , IT_MARA-ERSDA, IT_MARA-ERNAM, IT_MARA-MTART,

IT_MARA-MBRSH.

LOOP AT IT_MAKT.

WRITE:/ IT_MAKT-SPRAS, IT_MAKT-MAKTX, IT_MAKT-MAKTG.

ENDLOOP.

Re: REPORTS

Former Member — Wed, 06 Aug 2008 04:48:11 GMT

Hi,

Try it this way:

START-OF-SELECTION.
SELECT MATNR ERSDA ERNAM MTART MBRSH FROM MARA INTO
IT_MARA WHERE MATNR in  S_MATNR  .

ENDSELECT.

you were using ' EQ IT_MARA-MATNR' instead of your selection criteria 'IN S_MATNR'.

and its better not to use SELECT ENDSELECT, instead go for

SELECT MATNR ERSDA ERNAM MTART MBRSH FROM MARA INTO TABLE
IT_MARA WHERE MATNR in  S_MATNR

With luck,

Pritam.

Re: REPORTS

Former Member — Wed, 06 Aug 2008 04:49:45 GMT

Hi,

I have changed the code you have written check it.

REPORT ZZTEST_REP .

DATA : BEGIN OF IT_MARA OCCURS 0 ,

MATNR LIKE MARA-MATNR,

ERSDA LIKE MARA-ERSDA,

ERNAM LIKE MARA-ERNAM,

MTART LIKE MARA-MTART,

MBRSH LIKE MARA-MBRSH,

END OF IT_MARA.

DATA : BEGIN OF IT_MAKT OCCURS 0,

MATNR LIKE MAKT-MATNR,

SPRAS LIKE MAKT-SPRAS,

MAKTX LIKE MAKT-MAKTX,

MAKTG LIKE MAKT-MAKTG,

END OF IT_MAKT.

SELECT-OPTIONS : S_MATNR FOR IT_MARA-MATNR.

START-OF-SELECTION.

SELECT MATNR ERSDA ERNAM MTART MBRSH FROM MARA INTO

IT_MARA WHERE MATNR IN S_MATNR.

ENDSELECT.

IF NOT IT_MARA[] IS INITIAL.

SELECT MATNR SPRAS MAKTX MAKTG FROM MAKT INTO IT_MAKT FOR ALL ENTRIES IN

IT_MARA WHERE MATNR EQ IT_MARA-MATNR.

ENDSELECT.

ENDIF.

LOOP AT IT_MARA.

WRITE 😕 IT_MARA-MATNR , IT_MARA-ERSDA, IT_MARA-ERNAM, IT_MARA-MTART,

IT_MARA-MBRSH.

LOOP AT IT_MAKT.

WRITE:/ IT_MAKT-SPRAS, IT_MAKT-MAKTX, IT_MAKT-MAKTG.

ENDLOOP.

Regards,

Sujit

Re: REPORTS

Former Member — Wed, 06 Aug 2008 04:51:22 GMT

hi gopal,

avoid using select .. endselect.

do like this.

REPORT ZZTEST_REP .

DATA : BEGIN OF IT_MARA OCCURS 0 ,

MATNR LIKE MARA-MATNR,

ERSDA LIKE MARA-ERSDA,

ERNAM LIKE MARA-ERNAM,

MTART LIKE MARA-MTART,

MBRSH LIKE MARA-MBRSH,

END OF IT_MARA.

DATA : BEGIN OF IT_MAKT OCCURS 0,

MATNR LIKE MAKT-MATNR,

SPRAS LIKE MAKT-SPRAS,

MAKTX LIKE MAKT-MAKTX,

MAKTG LIKE MAKT-MAKTG,

END OF IT_MAKT.

SELECT-OPTIONS : S_MATNR FOR IT_MARA-MATNR.

START-OF-SELECTION.

SELECT MATNR ERSDA ERNAM MTART MBRSH FROM MARA INTO TABLE

IT_MARA WHERE MATNR EQ IT_MARA-MATNR.

IF NOT IT_MARA[] IS INITIAL.

SELECT MATNR SPRAS MAKTX MAKTG FROM MAKT INTO TABLE IT_MAKT FOR ALL ENTRIES IN

IT_MARA WHERE MATNR EQ IT_MARA-MATNR.

ENDIF.

After getting values into it_mara and it_makt..

if u want to use nested loops then go for parallel cursors..

for parallel cursors i am sending u an example..

LOOP AT IT_MARA.

WRITE 😕 IT_MARA-MATNR , IT_MARA-ERSDA, IT_MARA-ERNAM, IT_MARA-MTART,

IT_MARA-MBRSH.

LOOP AT IT_MAKT.

WRITE:/ IT_MAKT-SPRAS, IT_MAKT-MAKTX, IT_MAKT-MAKTG.

ENDLOOP.

Re: REPORTS

Former Member — Wed, 06 Aug 2008 04:51:56 GMT

Hi gopal,

Refer the following codes,that will solve your issue.

START-OF-SELECTION.

1. Use 'CORRESPONDING FIELDS OF TABLE ' Statment.

SELECT MATNR ERSDA ERNAM MTART MBRSH FROM MARA INTO CORRESPONDING FIELDS OF TABLE

IT_MARA WHERE MATNR EQ S_MATNR .

2. WHERE MATNR EQ S_MATNR .

3 . SELECT MATNR SPRAS MAKTX MAKTG FROM MAKT INTO INTO CORRESPONDING FIELDS OF TABLE IT_MAKT FOR ALL ENTRIES IN IT_MARA WHERE MATNR EQ IT_MARA-MATNR.

Hope it is helps.

Regards,

T.D.M.

Re: REPORTS

Former Member — Wed, 06 Aug 2008 04:53:40 GMT

Gopal,

this is working code just copy and paste,

REPORT ZZTEST_REP .
TABLES:mara.
DATA : BEGIN OF IT_MARA OCCURS 0 ,
MATNR LIKE MARA-MATNR,
ERSDA LIKE MARA-ERSDA,
ERNAM LIKE MARA-ERNAM,
MTART LIKE MARA-MTART,
MBRSH LIKE MARA-MBRSH,
END OF IT_MARA.

DATA : BEGIN OF IT_MAKT OCCURS 0,
MATNR LIKE MAKT-MATNR,
SPRAS LIKE MAKT-SPRAS,
MAKTX LIKE MAKT-MAKTX,
MAKTG LIKE MAKT-MAKTG,
END OF IT_MAKT.

SELECT-OPTIONS : S_MATNR FOR mara-MATNR.

START-OF-SELECTION.
SELECT MATNR ERSDA ERNAM MTART MBRSH FROM MARA INTO TABLE
IT_MARA WHERE MATNR in S_MATNR."here you had problem also no end select should be there


IF NOT IT_MARA[] IS INITIAL.

SELECT MATNR SPRAS MAKTX MAKTG FROM MAKT INTO IT_MAKT FOR ALL ENTRIES IN
IT_MARA WHERE MATNR EQ IT_MARA-MATNR.
ENDSELECT.
ENDIF.

LOOP AT IT_MARA.
WRITE :/ IT_MARA-MATNR , IT_MARA-ERSDA, IT_MARA-ERNAM, IT_MARA-MTART,
IT_MARA-MBRSH.
LOOP AT IT_MAKT.
WRITE:/ IT_MAKT-SPRAS, IT_MAKT-MAKTX, IT_MAKT-MAKTG.
ENDLOOP.
ENDLOOP.

Amit.

Re: REPORTS

Former Member — Wed, 06 Aug 2008 04:53:52 GMT

Hi Gopal,

Change the code as:

START-OF-SELECTION.

SELECT MATNR ERSDA ERNAM MTART MBRSH FROM MARA INTO

IT_MARA WHERE MATNR IN S_MATNR.

ENDSELECT.

Regards,

Chandra Sekhar

Re: REPORTS

Former Member — Wed, 06 Aug 2008 04:54:46 GMT

hi gopal,

avoid using select .. endselect.

do like this.

REPORT ZZTEST_REP .

DATA : BEGIN OF IT_MARA OCCURS 0 ,

MATNR LIKE MARA-MATNR,

ERSDA LIKE MARA-ERSDA,

ERNAM LIKE MARA-ERNAM,

MTART LIKE MARA-MTART,

MBRSH LIKE MARA-MBRSH,

END OF IT_MARA.

DATA : BEGIN OF IT_MAKT OCCURS 0,

MATNR LIKE MAKT-MATNR,

SPRAS LIKE MAKT-SPRAS,

MAKTX LIKE MAKT-MAKTX,

MAKTG LIKE MAKT-MAKTG,

END OF IT_MAKT.

SELECT-OPTIONS : S_MATNR FOR IT_MARA-MATNR.

START-OF-SELECTION.

SELECT MATNR ERSDA ERNAM MTART MBRSH FROM MARA INTO TABLE

IT_MARA WHERE MATNR IN IT_MARA-MATNR.

IF NOT IT_MARA[] IS INITIAL.

SELECT MATNR SPRAS MAKTX MAKTG FROM MAKT INTO TABLE IT_MAKT FOR ALL ENTRIES IN

IT_MARA WHERE MATNR EQ IT_MARA-MATNR.

ENDIF.

After getting values into it_mara and it_makt..

if u want to use nested loops then go for parallel cursors..

for parallel cursors i am sending u an example..

*FORM parallel_cursor.

DATA: bkpf_index LIKE sy-tabix,
bseg_index LIKE sy-tabix.

CLEAR: bkpf_reads,
bseg_reads.

SORT: bkpf_tab BY bukrs belnr gjahr,
bseg_tab BY bukrs belnr gjahr.

bseg_index = 1.
LOOP AT bkpf_tab
INTO bkpf_lin.
bkpf_reads = bkpf_reads + 1.
LOOP AT bseg_tab INTO bseg_lin FROM bseg_index.
IF bseg_lin-bukrs <> bkpf_lin-bukrs OR
bseg_lin-belnr <> bkpf_lin-belnr OR
bseg_lin-gjahr <> bkpf_lin-gjahr.
bseg_index = sy-tabix.
EXIT.
ELSE.
bseg_reads = bseg_reads + 1.
ENDIF.
ENDLOOP.
ENDLOOP.

Rgds.,

subash

Re: REPORTS

Former Member — Wed, 06 Aug 2008 04:54:54 GMT

hi,

1. declair mara and makt in TABLES statement.

2. use internal table in your select query.

3. avoid nested loop.

Re: REPORTS

sachin_mathapati — Wed, 06 Aug 2008 04:55:16 GMT

Hi ,

Chk this code..


REPORT ZZTEST_REP .

DATA : BEGIN OF IT_MARA OCCURS 0 ,
MATNR LIKE MARA-MATNR,
ERSDA LIKE MARA-ERSDA,
ERNAM LIKE MARA-ERNAM,
MTART LIKE MARA-MTART,
MBRSH LIKE MARA-MBRSH,
END OF IT_MARA.

DATA : BEGIN OF IT_MAKT OCCURS 0,
MATNR LIKE MAKT-MATNR,
SPRAS LIKE MAKT-SPRAS,
MAKTX LIKE MAKT-MAKTX,
MAKTG LIKE MAKT-MAKTG,
END OF IT_MAKT.

SELECT-OPTIONS : S_MATNR FOR IT_MARA-MATNR.

START-OF-SELECTION.

SELECT MATNR 
              ERSDA
              ERNAM 
              MTART
              MBRSH 
              FROM MARA 
              INTO TABLE IT_MARA
              WHERE MATNR IN S_MATNR.

IF NOT IT_MARA[] IS INITIAL.

SELECT MATNR 
             SPRAS 
             MAKTX 
             MAKTG 
             FROM MAKT
             INTO table IT_MAKT
             FOR ALL ENTRIES IN IT_MARA 
             WHERE MATNR EQ IT_MARA-MATNR.



LOOP AT IT_MARA.
WRITE :/ IT_MARA-MATNR , IT_MARA-ERSDA, IT_MARA-ERNAM, IT_MARA-MTART,
IT_MARA-MBRSH.
LOOP AT IT_MAKT.
WRITE:/ IT_MAKT-SPRAS, IT_MAKT-MAKTX, IT_MAKT-MAKTG.
ENDLOOP.
ENDLOOP.

ENDIF.

Re: REPORTS

Former Member — Wed, 06 Aug 2008 04:55:39 GMT

Hi Gopal,

 REPORT ZZTEST_REP .

DATA : BEGIN OF IT_MARA OCCURS 0 ,
MATNR LIKE MARA-MATNR,
ERSDA LIKE MARA-ERSDA,
ERNAM LIKE MARA-ERNAM,
MTART LIKE MARA-MTART,
MBRSH LIKE MARA-MBRSH,
END OF IT_MARA.

DATA : BEGIN OF IT_MAKT OCCURS 0,
MATNR LIKE MAKT-MATNR,
SPRAS LIKE MAKT-SPRAS,
MAKTX LIKE MAKT-MAKTX,
MAKTG LIKE MAKT-MAKTG,
END OF IT_MAKT.

SELECT-OPTIONS : S_MATNR FOR IT_MARA-MATNR.

START-OF-SELECTION.
SELECT MATNR ERSDA ERNAM MTART MBRSH FROM MARA INTO
IT_MARA WHERE MATNR EQ S_MATNR.
* use append statment here

append IT_MARA.
ENDSELECT.

IF NOT IT_MARA[] IS INITIAL.

SELECT MATNR SPRAS MAKTX MAKTG FROM MAKT INTO IT_MAKT FOR ALL ENTRIES IN
IT_MARA WHERE MATNR EQ IT_MARA-MATNR.
* use append statment here
append IT_MAKT.
ENDSELECT.
ENDIF.

LOOP AT IT_MARA.
WRITE :/ IT_MARA-MATNR , IT_MARA-ERSDA, IT_MARA-ERNAM, IT_MARA-MTART,
IT_MARA-MBRSH.
LOOP AT IT_MAKT.
WRITE:/ IT_MAKT-SPRAS, IT_MAKT-MAKTX, IT_MAKT-MAKTG.
ENDLOOP.
ENDLOOP....

Regards.

Eshwar.

Re: REPORTS

Former Member — Wed, 06 Aug 2008 04:57:27 GMT

Hi,

DATA : BEGIN OF IT_MARA OCCURS 0 ,

MATNR LIKE MARA-MATNR,

ERSDA LIKE MARA-ERSDA,

ERNAM LIKE MARA-ERNAM,

MTART LIKE MARA-MTART,

MBRSH LIKE MARA-MBRSH,

END OF IT_MARA.

DATA : BEGIN OF IT_MAKT OCCURS 0,

MATNR LIKE MAKT-MATNR,

SPRAS LIKE MAKT-SPRAS,

MAKTX LIKE MAKT-MAKTX,

MAKTG LIKE MAKT-MAKTG,

END OF IT_MAKT.

SELECT-OPTIONS : S_MATNR FOR IT_MARA-MATNR.

START-OF-SELECTION.

SELECT MATNR ERSDA ERNAM MTART MBRSH FROM MARA INTO

IT_MARA WHERE MATNR in s_matnr.

append it_mara.<----

ENDSELECT.

IF NOT IT_MARA[] IS INITIAL.

SELECT MATNR SPRAS MAKTX MAKTG FROM MAKT INTO IT_MAKT FOR ALL ENTRIES IN

IT_MARA WHERE MATNR in s_matnr.

append it_mara.<----

ENDSELECT.

ENDIF.

LOOP AT IT_MARA.

WRITE 😕 IT_MARA-MATNR , IT_MARA-ERSDA, IT_MARA-ERNAM, IT_MARA-MTART,

IT_MARA-MBRSH.

LOOP AT IT_MAKT.

WRITE:/ IT_MAKT-SPRAS, IT_MAKT-MAKTX, IT_MAKT-MAKTG.

ENDLOOP.

Try this code

Regards.

Jagadeesh.

Edited by: Jagadeesh on Aug 6, 2008 6:58 AM

Re: REPORTS

Former Member — Wed, 06 Aug 2008 04:57:50 GMT

sorry still i am not getting o/p

Re: REPORTS

learnsap — Wed, 06 Aug 2008 04:58:34 GMT

Hi Gopal,

Try this Code, I think this will solve your problem. I had done some changes in your code, which are highlighted.

REPORT ZZTEST_REP .

DATA : BEGIN OF IT_MARA OCCURS 0 ,

MATNR LIKE MARA-MATNR,

ERSDA LIKE MARA-ERSDA,

ERNAM LIKE MARA-ERNAM,

MTART LIKE MARA-MTART,

MBRSH LIKE MARA-MBRSH,

END OF IT_MARA.

DATA : BEGIN OF IT_MAKT OCCURS 0,

MATNR LIKE MAKT-MATNR,

SPRAS LIKE MAKT-SPRAS,

MAKTX LIKE MAKT-MAKTX,

MAKTG LIKE MAKT-MAKTG,

END OF IT_MAKT.

SELECT-OPTIONS : S_MATNR FOR IT_MARA-MATNR.

START-OF-SELECTION.

SELECT MATNR ERSDA ERNAM MTART MBRSH FROM MARA INTO TABLE IT_MARA

WHERE MATNR IN S_MATNR ."EQ IT_MARA-MATNR.

IF NOT IT_MARA[] IS INITIAL.

SELECT MATNR SPRAS MAKTX MAKTG FROM MAKT INTO TABLE IT_MAKT

FOR ALL ENTRIES IN IT_MARA

WHERE MATNR EQ IT_MARA-MATNR.

SORT IT_MAKT ASCENDING BY MATNR.

ENDIF.

LOOP AT IT_MARA.

WRITE 😕 IT_MARA-MATNR , IT_MARA-ERSDA, IT_MARA-ERNAM, IT_MARA-MTART,

IT_MARA-MBRSH.

LOOP AT IT_MAKT WHERE MATNR = IT_MARA-MATNR.

WRITE:/ IT_MAKT-SPRAS, IT_MAKT-MAKTX, IT_MAKT-MAKTG.

ENDLOOP.

Regards,

Ramesh

Re: REPORTS

Former Member — Wed, 06 Aug 2008 04:59:47 GMT

Gopal,

yes you some wrong input above.

if anyone wrote SELECT MATNR ERSDA ERNAM MTART MBRSH FROM MARA INTO

IT_MARA WHERE MATNR in S_MATNR.

ENDSELECT. than out put will not be generated.

this is the right way table should be there.

SELECT MATNR ERSDA ERNAM MTART MBRSH FROM MARA INTO table

IT_MARA WHERE MATNR in S_MATNR.

ENDSELECT.

did you try my above reply am sure it generates a output.

Amit

Re: REPORTS

Former Member — Wed, 06 Aug 2008 05:00:41 GMT

Hi Gopal,

Plz find your corrected Code

REPORT ZZTEST_REP .

DATA : BEGIN OF IT_MARA OCCURS 0 ,

MATNR LIKE MARA-MATNR,

ERSDA LIKE MARA-ERSDA,

ERNAM LIKE MARA-ERNAM,

MTART LIKE MARA-MTART,

MBRSH LIKE MARA-MBRSH,

END OF IT_MARA.

DATA : BEGIN OF IT_MAKT OCCURS 0,

MATNR LIKE MAKT-MATNR,

SPRAS LIKE MAKT-SPRAS,

MAKTX LIKE MAKT-MAKTX,

MAKTG LIKE MAKT-MAKTG,

END OF IT_MAKT.

SELECT-OPTIONS : S_MATNR FOR IT_MARA-MATNR.

START-OF-SELECTION.

SELECT MATNR ERSDA ERNAM MTART MBRSH FROM MARA INTO IT_MARA

WHERE MATNR IN IT_MARA-MATNR.

ENDSELECT.

IF NOT IT_MARA[] IS INITIAL.

LOOP AT it_mara.

SELECT MATNR SPRAS MAKTX MAKTG FROM MAKT INTO IT_MAKT WHERE MATNR EQ IT_MARA-MATNR.

ENDSELECT.

ENDLOOP.

ENDIF.

LOOP AT IT_MARA.

WRITE 😕 IT_MARA-MATNR , IT_MARA-ERSDA, IT_MARA-ERNAM, IT_MARA-MTART,

IT_MARA-MBRSH.

LOOP AT IT_MAKT.

WRITE:/ IT_MAKT-SPRAS, IT_MAKT-MAKTX, IT_MAKT-MAKTG.

ENDLOOP.

rgds

rajesh

Edited by: RAJESH KUMAR on Aug 6, 2008 10:31 AM

Re: REPORTS

Former Member — Wed, 06 Aug 2008 05:03:46 GMT

sorry still i am not getting o/p

i am currently using version 4.6c

is this code doesnt support this version

Re: REPORTS

Former Member — Wed, 06 Aug 2008 05:09:11 GMT

Hi Gopal,

Try this code, this is working fine.

Remove SELECT-ENDSELECT and use SELECT .. INTO TABLE.

Change SELECT-OPTIONS : S_MATNR FOR MARA-MATNR.

Check this one.

Tables: MARA.

SELECT-OPTIONS : S_MATNR FOR MARA-MATNR.

DATA : BEGIN OF IT_MARA OCCURS 0 ,
MATNR LIKE MARA-MATNR,
ERSDA LIKE MARA-ERSDA,
ERNAM LIKE MARA-ERNAM,
MTART LIKE MARA-MTART,
MBRSH LIKE MARA-MBRSH,
END OF IT_MARA.

DATA : BEGIN OF IT_MAKT OCCURS 0,
MATNR LIKE MAKT-MATNR,
SPRAS LIKE MAKT-SPRAS,
MAKTX LIKE MAKT-MAKTX,
MAKTG LIKE MAKT-MAKTG,
END OF IT_MAKT.

START-OF-SELECTION.

SELECT MATNR ERSDA ERNAM MTART MBRSH
FROM MARA
INTO table IT_MARA
WHERE MATNR in S_MATNR.


IF NOT IT_MARA[] IS INITIAL.

SELECT MATNR SPRAS MAKTX MAKTG
FROM MAKT
INTO table IT_MAKT
FOR ALL ENTRIES IN IT_MARA
WHERE MATNR EQ IT_MARA-MATNR.

ENDIF.

LOOP AT IT_MARA.
WRITE :/ IT_MARA-MATNR , IT_MARA-ERSDA, IT_MARA-ERNAM, IT_MARA-MTART,
IT_MARA-MBRSH.
LOOP AT IT_MAKT.
WRITE:/ IT_MAKT-SPRAS, IT_MAKT-MAKTX, IT_MAKT-MAKTG.
ENDLOOP.

Regards,

Chandra Sekhar

Re: REPORTS

Former Member — Wed, 06 Aug 2008 05:11:05 GMT

did you try with my first reply?

it should generate output.

Amit.

Re: REPORTS

Former Member — Wed, 06 Aug 2008 05:15:37 GMT

Hi gopal,

try this..

tables mara.

DATA : BEGIN OF IT_MARA OCCURS 0 ,

MATNR LIKE MARA-MATNR,

ERSDA LIKE MARA-ERSDA,

ERNAM LIKE MARA-ERNAM,

MTART LIKE MARA-MTART,

MBRSH LIKE MARA-MBRSH,

END OF IT_MARA.

DATA : BEGIN OF IT_MAKT OCCURS 0,

MATNR LIKE MAKT-MATNR,

SPRAS LIKE MAKT-SPRAS,

MAKTX LIKE MAKT-MAKTX,

MAKTG LIKE MAKT-MAKTG,

END OF IT_MAKT.

SELECT-OPTIONS : S_MATNR FOR mara-MATNR.

START-OF-SELECTION.

SELECT MATNR ERSDA ERNAM MTART MBRSH

FROM MARA INTO table IT_MARA WHERE MATNR in s_matnr.

IF NOT IT_MARA[] IS INITIAL.

SELECT MATNR SPRAS MAKTX MAKTG FROM MAKT INTO table IT_MAKT FOR ALL ENTRIES IN

IT_MARA WHERE MATNR EQ IT_MARA-MATNR.

ENDIF.

LOOP AT IT_MARA.

WRITE 😕 IT_MARA-MATNR , IT_MARA-ERSDA, IT_MARA-ERNAM, IT_MARA-MTART,

IT_MARA-MBRSH.

LOOP AT IT_MAKT where matnr = IT_MARA-MATNR.

WRITE:/ IT_MAKT-SPRAS, IT_MAKT-MAKTX, IT_MAKT-MAKTG.

ENDLOOP.

ENDLOOP