topic Re: error in code - points for sure in Application Development and Automation Discussions

error in code - points for sure

Former Member — Wed, 08 Aug 2007 17:18:55 GMT

can someone tell me why i am not getting output from the following code

REPORT YTEST.

TABLES: MARA,MARC,MARD,MBEW,MVKE,MAKT.

DATA: BEGIN OF I_MARC OCCURS 0,

MATNR LIKE MARC-MATNR,

EKGRP LIKE MARC-EKGRP,

PSTAT LIKE MARC-PSTAT,

DISPO LIKE MARC-DISPO,

BESKZ LIKE MARC-beskz,

END OF I_MARC.

DATA: BEGIN OF I_MARD OCCURS 0,

MATNR LIKE MARD-MATNR,

LGORT LIKE MARD-LGORT,

ERSDA LIKE MARD-ERSDA,

WERKS LIKE MARD-WERKS,

END OF I_MARD.

DATA: BEGIN OF I_MBEW OCCURS 0,

MATNR LIKE MBEW-MATNR,

BWKEY LIKE MBEW-BWKEY,

PEINH LIKE MBEW-PEINH,

END OF I_MBEW.

DATA: BEGIN OF I_MARA OCCURS 0,

MATNR LIKE MARA-MATNR,

MTART LIKE MARA-MTART,

MATKL LIKE MARA-MATKL,

MEINS LIKE MARA-MEINS,

MBRSH LIKE MARA-MBRSH,

BSTME LIKE MARA-BSTME,

END OF I_MARA.

DATA: BEGIN OF I_MVKE OCCURS 0,

MATNR LIKE MVKE-MATNR,

VKORG LIKE MVKE-VKORG,

VTWEG LIKE MVKE-VTWEG,

VRKME LIKE MVKE-VRKME,

KONDM LIKE MVKE-KONDM,

END OF I_MVKE.

DATA: BEGIN OF I_MAKT OCCURS 0,

MATNR LIKE MAKT-MATNR,

SPRAS LIKE MAKT-SPRAS,

MAKTX LIKE MAKT-MAKTX,

END OF I_MAKT.

DATA: BEGIN OF I_OUT OCCURS 0,

MATNR LIKE MARC-MATNR,

MEINS LIKE MARA-MEINS,

MBRSH LIKE MARA-MBRSH,

MATKL LIKE MARA-MATKL,

MTART LIKE MARA-MTART,

BSTME LIKE MARA-BSTME,

WERKS LIKE MARD-WERKS,

EKGRP LIKE MARC-EKGRP,

PSTAT LIKE MARC-PSTAT,

DISPO LIKE MARC-DISPO,

BESKZ LIKE MARC-BESKZ,

LGORT LIKE MARD-LGORT,

ERSDA LIKE MARD-ERSDA,

BWKEY LIKE MBEW-BWKEY,

PEINH LIKE MBEW-PEINH,

VKORG LIKE MVKE-VKORG,

VTWEG LIKE MVKE-VTWEG,

VRKME LIKE MVKE-VRKME,

KONDM LIKE MVKE-KONDM,

SPRAS LIKE MAKT-SPRAS,

MAKTX LIKE MAKT-MAKTX,

END OF I_OUT.

select-options: s_matnr for marc-matnr.

SELECT MATNR EKGRP PSTAT DISPO BESKZ FROM MARC INTO

CORRESPONDING FIELDS OF TABLE I_MARC where matnr = 38.

SELECT MATNR MTART MATKL MEINS MBRSH BSTME FROM MARA INTO

CORRESPONDING FIELDS OF

TABLE I_MARA FOR ALL ENTRIES IN I_MARC

WHERE MATNR EQ I_MARC-MATNR.

SELECT MATNR SPRAS MAKTX FROM MAKT INTO

CORRESPONDING FIELDS OF TABLE I_MAKT

FOR ALL ENTRIES IN I_MARC

WHERE MATNR = I_MARC-MATNR.

SELECT MATNR LGORT ERSDA WERKS FROM MARD INTO

CORRESPONDING FIELDS OF TABLE

I_MARD FOR ALL ENTRIES IN I_MAKT

WHERE MATNR = I_MAKT-MATNR.

SELECT MATNR BWKEY PEINH FROM MBEW INTO

TABLE I_MBEW

FOR ALL ENTRIES IN I_MARD

WHERE MATNR = I_MARD-MATNR.

SELECT MATNR VKORG VTWEG VRKME KONDM FROM MVKE INTO

TABLE I_MVKE

FOR ALL ENTRIES IN I_MBEW

WHERE MATNR = I_MBEW-MATNR.

LOOP AT I_MARC.

MOVE I_MARC-MATNR TO I_OUT-MATNR.

MOVE I_MARC-EKGRP TO I_OUT-EKGRP.

MOVE I_MARC-PSTAT TO I_OUT-PSTAT.

MOVE I_MARC-DISPO TO I_OUT-DISPO.

MOVE I_MARC-BESKZ TO I_OUT-BESKZ.

READ TABLE I_MARA WITH KEY MATNR = I_MARC-MATNR.

MOVE I_MARA-MTART TO I_OUT-MTART.

MOVE I_MARA-MBRSH TO I_OUT-MBRSH.

MOVE I_MARA-MEINS TO I_OUT-MEINS.

MOVE I_MARA-MATKL TO I_OUT-MATKL.

MOVE I_MARA-BSTME TO I_OUT-BSTME.

READ TABLE I_MAKT WITH KEY MATNR = I_MARC-MATNR.

MOVE I_MAKT-SPRAS TO I_OUT-SPRAS.

MOVE I_MAKT-MAKTX TO I_OUT-MAKTX.

READ TABLE I_MARD WITH KEY MATNR = I_MARC-MATNR.

MOVE I_MARD-LGORT TO I_OUT-LGORT.

MOVE I_MARD-ERSDA TO I_OUT-ERSDA.

MOVE I_MARD-WERKS TO I_OUT-WERKS.

READ TABLE I_MBEW WITH KEY MATNR = I_MARC-MATNR.

MOVE I_MBEW-BWKEY TO I_OUT-BWKEY.

MOVE I_MBEW-PEINH TO I_OUT-PEINH.

READ TABLE I_MVKE WITH KEY MATNR = I_MARC-MATNR.

MOVE I_MVKE-VKORG TO I_OUT-VKORG.

MOVE I_MVKE-VTWEG TO I_OUT-VTWEG.

MOVE I_MVKE-VRKME TO I_OUT-VRKME.

MOVE I_MVKE-KONDM TO I_OUT-KONDM.

APPEND I_OUT.

CLEAR I_OUT.

ENDLOOP.

write:/ i_out-MATNR,

i_out-EKGRP,

i_out-PSTAT,

i_out-DISPO,

i_out-BESKZ,

i_out-LGORT,

i_out-ERSDA ,

i_out-WERKS,

i_out-BWKEY,

i_out-PEINH,

i_out-MTART,

i_out-MATKL,

i_out-MEINS,

i_out-MBRSH,

i_out-BSTME,

i_out-VKORG,

i_out-VTWEG,

i_out-VRKME,

i_out-KONDM,

i_out-SPRAS,

i_out-MAKTX.

regards,

sriram

Re: error in code - points for sure

Former Member — Wed, 08 Aug 2007 17:22:00 GMT

HI,

You have clear i_out in the loop and after the loop your trying to print. do this.

loop at i_out.

write:/ i_out-MATNR,

i_out-EKGRP,

i_out-PSTAT,

i_out-DISPO,

i_out-BESKZ,

i_out-LGORT,

i_out-ERSDA ,

i_out-WERKS,

i_out-BWKEY,

i_out-PEINH,

i_out-MTART,

i_out-MATKL,

i_out-MEINS,

i_out-MBRSH,

i_out-BSTME,

i_out-VKORG,

i_out-VTWEG,

i_out-VRKME,

i_out-KONDM,

i_out-SPRAS,

i_out-MAKTX.

endloop.

Re: error in code - points for sure

Former Member — Wed, 08 Aug 2007 17:22:19 GMT

Hi sriram

You should loop at i_out while writing.

Re: error in code - points for sure

Former Member — Wed, 08 Aug 2007 17:23:23 GMT

Hi,

Here is the corrected code.

REPORT YTEST.

TABLES: MARA,MARC,MARD,MBEW,MVKE,MAKT.

DATA: BEGIN OF I_MARC OCCURS 0,

MATNR LIKE MARC-MATNR,

EKGRP LIKE MARC-EKGRP,

PSTAT LIKE MARC-PSTAT,

DISPO LIKE MARC-DISPO,

BESKZ LIKE MARC-beskz,

END OF I_MARC.

DATA: BEGIN OF I_MARD OCCURS 0,

MATNR LIKE MARD-MATNR,

LGORT LIKE MARD-LGORT,

ERSDA LIKE MARD-ERSDA,

WERKS LIKE MARD-WERKS,

END OF I_MARD.

DATA: BEGIN OF I_MBEW OCCURS 0,

MATNR LIKE MBEW-MATNR,

BWKEY LIKE MBEW-BWKEY,

PEINH LIKE MBEW-PEINH,

END OF I_MBEW.

DATA: BEGIN OF I_MARA OCCURS 0,

MATNR LIKE MARA-MATNR,

MTART LIKE MARA-MTART,

MATKL LIKE MARA-MATKL,

MEINS LIKE MARA-MEINS,

MBRSH LIKE MARA-MBRSH,

BSTME LIKE MARA-BSTME,

END OF I_MARA.

DATA: BEGIN OF I_MVKE OCCURS 0,

MATNR LIKE MVKE-MATNR,

VKORG LIKE MVKE-VKORG,

VTWEG LIKE MVKE-VTWEG,

VRKME LIKE MVKE-VRKME,

KONDM LIKE MVKE-KONDM,

END OF I_MVKE.

DATA: BEGIN OF I_MAKT OCCURS 0,

MATNR LIKE MAKT-MATNR,

SPRAS LIKE MAKT-SPRAS,

MAKTX LIKE MAKT-MAKTX,

END OF I_MAKT.

DATA: BEGIN OF I_OUT OCCURS 0,

MATNR LIKE MARC-MATNR,

MEINS LIKE MARA-MEINS,

MBRSH LIKE MARA-MBRSH,

MATKL LIKE MARA-MATKL,

MTART LIKE MARA-MTART,

BSTME LIKE MARA-BSTME,

WERKS LIKE MARD-WERKS,

EKGRP LIKE MARC-EKGRP,

PSTAT LIKE MARC-PSTAT,

DISPO LIKE MARC-DISPO,

BESKZ LIKE MARC-BESKZ,

LGORT LIKE MARD-LGORT,

ERSDA LIKE MARD-ERSDA,

BWKEY LIKE MBEW-BWKEY,

PEINH LIKE MBEW-PEINH,

VKORG LIKE MVKE-VKORG,

VTWEG LIKE MVKE-VTWEG,

VRKME LIKE MVKE-VRKME,

KONDM LIKE MVKE-KONDM,

SPRAS LIKE MAKT-SPRAS,

MAKTX LIKE MAKT-MAKTX,

END OF I_OUT.

select-options: s_matnr for marc-matnr.

SELECT MATNR EKGRP PSTAT DISPO BESKZ FROM MARC INTO

CORRESPONDING FIELDS OF TABLE I_MARC where matnr = 38.

SELECT MATNR MTART MATKL MEINS MBRSH BSTME FROM MARA INTO

CORRESPONDING FIELDS OF

TABLE I_MARA FOR ALL ENTRIES IN I_MARC

WHERE MATNR EQ I_MARC-MATNR.

SELECT MATNR SPRAS MAKTX FROM MAKT INTO

CORRESPONDING FIELDS OF TABLE I_MAKT

FOR ALL ENTRIES IN I_MARC

WHERE MATNR = I_MARC-MATNR.

SELECT MATNR LGORT ERSDA WERKS FROM MARD INTO

CORRESPONDING FIELDS OF TABLE

I_MARD FOR ALL ENTRIES IN I_MAKT

WHERE MATNR = I_MAKT-MATNR.

SELECT MATNR BWKEY PEINH FROM MBEW INTO

TABLE I_MBEW

FOR ALL ENTRIES IN I_MARD

WHERE MATNR = I_MARD-MATNR.

SELECT MATNR VKORG VTWEG VRKME KONDM FROM MVKE INTO

TABLE I_MVKE

FOR ALL ENTRIES IN I_MBEW

WHERE MATNR = I_MBEW-MATNR.

LOOP AT I_MARC.

MOVE I_MARC-MATNR TO I_OUT-MATNR.

MOVE I_MARC-EKGRP TO I_OUT-EKGRP.

MOVE I_MARC-PSTAT TO I_OUT-PSTAT.

MOVE I_MARC-DISPO TO I_OUT-DISPO.

MOVE I_MARC-BESKZ TO I_OUT-BESKZ.

READ TABLE I_MARA WITH KEY MATNR = I_MARC-MATNR.

MOVE I_MARA-MTART TO I_OUT-MTART.

MOVE I_MARA-MBRSH TO I_OUT-MBRSH.

MOVE I_MARA-MEINS TO I_OUT-MEINS.

MOVE I_MARA-MATKL TO I_OUT-MATKL.

MOVE I_MARA-BSTME TO I_OUT-BSTME.

READ TABLE I_MAKT WITH KEY MATNR = I_MARC-MATNR.

MOVE I_MAKT-SPRAS TO I_OUT-SPRAS.

MOVE I_MAKT-MAKTX TO I_OUT-MAKTX.

READ TABLE I_MARD WITH KEY MATNR = I_MARC-MATNR.

MOVE I_MARD-LGORT TO I_OUT-LGORT.

MOVE I_MARD-ERSDA TO I_OUT-ERSDA.

MOVE I_MARD-WERKS TO I_OUT-WERKS.

READ TABLE I_MBEW WITH KEY MATNR = I_MARC-MATNR.

MOVE I_MBEW-BWKEY TO I_OUT-BWKEY.

MOVE I_MBEW-PEINH TO I_OUT-PEINH.

READ TABLE I_MVKE WITH KEY MATNR = I_MARC-MATNR.

MOVE I_MVKE-VKORG TO I_OUT-VKORG.

MOVE I_MVKE-VTWEG TO I_OUT-VTWEG.

MOVE I_MVKE-VRKME TO I_OUT-VRKME.

MOVE I_MVKE-KONDM TO I_OUT-KONDM.

APPEND I_OUT.

CLEAR I_OUT.

ENDLOOP.

write:/ i_out-MATNR,

i_out-EKGRP,

i_out-PSTAT,

i_out-DISPO,

i_out-BESKZ,

i_out-LGORT,

i_out-ERSDA ,

i_out-WERKS,

i_out-BWKEY,

i_out-PEINH,

i_out-MTART,

i_out-MATKL,

i_out-MEINS,

i_out-MBRSH,

i_out-BSTME,

i_out-VKORG,

i_out-VTWEG,

i_out-VRKME,

i_out-KONDM,

i_out-SPRAS,

i_out-MAKTX.

<b>endloop.</b>

Thanks

mahesh

Re: error in code - points for sure

Former Member — Wed, 08 Aug 2007 17:23:36 GMT

Hi Sriram,

Check this code.

SELECT MATNR EKGRP PSTAT DISPO BESKZ FROM MARC INTO

CORRESPONDING FIELDS OF TABLE I_MARC where matnr = 38.

Change this to

SELECT MATNR EKGRP PSTAT DISPO BESKZ FROM MARC INTO

CORRESPONDING FIELDS OF TABLE I_MARC where matnr = '0000000038'.

Thanks,

Vinay

Re: error in code - points for sure

Former Member — Wed, 08 Aug 2007 17:23:48 GMT

Probably because your material number ('38' in this case) doesn't have the leading zeroes.

Rob

Re: error in code - points for sure

Former Member — Wed, 08 Aug 2007 17:33:18 GMT

sorry guys,

nothing told by you guys is working for me.

regards,

sriram

Re: error in code - points for sure

Former Member — Wed, 08 Aug 2007 17:41:57 GMT

Hi Sriram

Please check the below code and make sure you have some data for material number 38 in your MARC table.

REPORT YTEST.

TABLES: MARA,MARC,MARD,MBEW,MVKE,MAKT.

DATA: BEGIN OF I_MARC OCCURS 0,

MATNR LIKE MARC-MATNR,

EKGRP LIKE MARC-EKGRP,

PSTAT LIKE MARC-PSTAT,

DISPO LIKE MARC-DISPO,

BESKZ LIKE MARC-beskz,

END OF I_MARC.

DATA: BEGIN OF I_MARD OCCURS 0,

MATNR LIKE MARD-MATNR,

LGORT LIKE MARD-LGORT,

ERSDA LIKE MARD-ERSDA,

WERKS LIKE MARD-WERKS,

END OF I_MARD.

DATA: BEGIN OF I_MBEW OCCURS 0,

MATNR LIKE MBEW-MATNR,

BWKEY LIKE MBEW-BWKEY,

PEINH LIKE MBEW-PEINH,

END OF I_MBEW.

DATA: BEGIN OF I_MARA OCCURS 0,

MATNR LIKE MARA-MATNR,

MTART LIKE MARA-MTART,

MATKL LIKE MARA-MATKL,

MEINS LIKE MARA-MEINS,

MBRSH LIKE MARA-MBRSH,

BSTME LIKE MARA-BSTME,

END OF I_MARA.

DATA: BEGIN OF I_MVKE OCCURS 0,

MATNR LIKE MVKE-MATNR,

VKORG LIKE MVKE-VKORG,

VTWEG LIKE MVKE-VTWEG,

VRKME LIKE MVKE-VRKME,

KONDM LIKE MVKE-KONDM,

END OF I_MVKE.

DATA: BEGIN OF I_MAKT OCCURS 0,

MATNR LIKE MAKT-MATNR,

SPRAS LIKE MAKT-SPRAS,

MAKTX LIKE MAKT-MAKTX,

END OF I_MAKT.

DATA: BEGIN OF I_OUT OCCURS 0,

MATNR LIKE MARC-MATNR,

MEINS LIKE MARA-MEINS,

MBRSH LIKE MARA-MBRSH,

MATKL LIKE MARA-MATKL,

MTART LIKE MARA-MTART,

BSTME LIKE MARA-BSTME,

WERKS LIKE MARD-WERKS,

EKGRP LIKE MARC-EKGRP,

PSTAT LIKE MARC-PSTAT,

DISPO LIKE MARC-DISPO,

BESKZ LIKE MARC-BESKZ,

LGORT LIKE MARD-LGORT,

ERSDA LIKE MARD-ERSDA,

BWKEY LIKE MBEW-BWKEY,

PEINH LIKE MBEW-PEINH,

VKORG LIKE MVKE-VKORG,

VTWEG LIKE MVKE-VTWEG,

VRKME LIKE MVKE-VRKME,

KONDM LIKE MVKE-KONDM,

SPRAS LIKE MAKT-SPRAS,

MAKTX LIKE MAKT-MAKTX,

END OF I_OUT.

select-options: s_matnr for marc-matnr.

SELECT MATNR EKGRP PSTAT DISPO BESKZ FROM MARC INTO

CORRESPONDING FIELDS OF TABLE I_MARC where matnr = '000000000000000038'.

SELECT MATNR MTART MATKL MEINS MBRSH BSTME FROM MARA INTO

CORRESPONDING FIELDS OF

TABLE I_MARA FOR ALL ENTRIES IN I_MARC

WHERE MATNR EQ I_MARC-MATNR.

SELECT MATNR SPRAS MAKTX FROM MAKT INTO

CORRESPONDING FIELDS OF TABLE I_MAKT

FOR ALL ENTRIES IN I_MARC

WHERE MATNR = I_MARC-MATNR.

SELECT MATNR LGORT ERSDA WERKS FROM MARD INTO

CORRESPONDING FIELDS OF TABLE

I_MARD FOR ALL ENTRIES IN I_MAKT

WHERE MATNR = I_MAKT-MATNR.

SELECT MATNR BWKEY PEINH FROM MBEW INTO

TABLE I_MBEW

FOR ALL ENTRIES IN I_MARD

WHERE MATNR = I_MARD-MATNR.

SELECT MATNR VKORG VTWEG VRKME KONDM FROM MVKE INTO

TABLE I_MVKE

FOR ALL ENTRIES IN I_MBEW

WHERE MATNR = I_MBEW-MATNR.

LOOP AT I_MARC.

MOVE I_MARC-MATNR TO I_OUT-MATNR.

MOVE I_MARC-EKGRP TO I_OUT-EKGRP.

MOVE I_MARC-PSTAT TO I_OUT-PSTAT.

MOVE I_MARC-DISPO TO I_OUT-DISPO.

MOVE I_MARC-BESKZ TO I_OUT-BESKZ.

READ TABLE I_MARA WITH KEY MATNR = I_MARC-MATNR.

MOVE I_MARA-MTART TO I_OUT-MTART.

MOVE I_MARA-MBRSH TO I_OUT-MBRSH.

MOVE I_MARA-MEINS TO I_OUT-MEINS.

MOVE I_MARA-MATKL TO I_OUT-MATKL.

MOVE I_MARA-BSTME TO I_OUT-BSTME.

READ TABLE I_MAKT WITH KEY MATNR = I_MARC-MATNR.

MOVE I_MAKT-SPRAS TO I_OUT-SPRAS.

MOVE I_MAKT-MAKTX TO I_OUT-MAKTX.

READ TABLE I_MARD WITH KEY MATNR = I_MARC-MATNR.

MOVE I_MARD-LGORT TO I_OUT-LGORT.

MOVE I_MARD-ERSDA TO I_OUT-ERSDA.

MOVE I_MARD-WERKS TO I_OUT-WERKS.

READ TABLE I_MBEW WITH KEY MATNR = I_MARC-MATNR.

MOVE I_MBEW-BWKEY TO I_OUT-BWKEY.

MOVE I_MBEW-PEINH TO I_OUT-PEINH.

READ TABLE I_MVKE WITH KEY MATNR = I_MARC-MATNR.

MOVE I_MVKE-VKORG TO I_OUT-VKORG.

MOVE I_MVKE-VTWEG TO I_OUT-VTWEG.

MOVE I_MVKE-VRKME TO I_OUT-VRKME.

MOVE I_MVKE-KONDM TO I_OUT-KONDM.

APPEND I_OUT.

CLEAR I_OUT.

ENDLOOP.

Loop at i_out.

write:/ i_out-MATNR,

i_out-EKGRP,

i_out-PSTAT,

i_out-DISPO,

i_out-BESKZ,

i_out-LGORT,

i_out-ERSDA ,

i_out-WERKS,

i_out-BWKEY,

i_out-PEINH,

i_out-MTART,

i_out-MATKL,

i_out-MEINS,

i_out-MBRSH,

i_out-BSTME,

i_out-VKORG,

i_out-VTWEG,

i_out-VRKME,

i_out-KONDM,

i_out-SPRAS,

i_out-MAKTX.

endloop.

Reward points if useful!!

~Ranganath

Re: error in code - points for sure

Former Member — Wed, 08 Aug 2007 17:53:10 GMT

Hi Sriram,

data : lv_matnr like mara-matnr.

lv_matnr = 38.

call function 'Conversion_exit_alpha_input'.

exporting

input = lv_matnr

importing

output = lv_matnr

SELECT MATNR EKGRP PSTAT DISPO BESKZ FROM MARC INTO

CORRESPONDING FIELDS OF TABLE I_MARC where matnr = lv_matnr

if above code does work then check if you have entry in marc table for material 38

Check if you have data or not in MARC table for the material that you are looking for.

Thanks

Mahesh

Re: error in code - points for sure

Former Member — Wed, 08 Aug 2007 18:23:04 GMT

Sriram - I tried the corrected code (correct length material number with leading zeroes and looping at the table) and I got output. So maybe you don't have that material.

Rob

Re: error in code - points for sure

Former Member — Thu, 09 Aug 2007 08:38:31 GMT

got it but that is not working when i put select-options.

regards,

sriram