topic Re: issue with upload in Application Development and Automation Discussions

issue with upload

Former Member — Wed, 17 Jan 2007 17:32:08 GMT

Hi all,

i have a modulepool program custom made and an upload program.

I am calling the modulepool program from my upload program.

i have several info mesages in my module for any user errors.

say if i have an error in the excel sheet that iam uploading to the same transaction, i want to get the same info mess in to

loop at itab.

perform bdc_dynpro using 'SAPMZTEST' '9002'.

perform bdc_field using 'BDC_OKCODE'

'=ZNEW'.

perform bdc_field using 'BDC_CURSOR'

'%#AUTOTEXT001'.

perform bdc_dynpro using 'SAPMZTEST' '9003'.

perform bdc_field using 'BDC_OKCODE'

'=ENT1'.

perform bdc_field using 'BDC_CURSOR'

'ZTEST-KOSTL(01)'.

perform bdc_field using 'ZTEST-ERDAT(01)'

itab-erdat.

perform bdc_field using 'ZTEST-MATNR(01)'

itab-matnr.

perform bdc_field using 'ZTEST-MENGE(01)'

itab-menge.

perform bdc_field using 'ZTEST-KOSTL(01)'

itab-kostl.

perform bdc_dynpro using 'SAPMZTEST' '9003'.

perform bdc_field using 'BDC_OKCODE'

'=SAVE'.

perform bdc_field using 'BDC_CURSOR'

'%#AUTOTEXT001'.

call transaction 'ZTCODE' using i_bdcdata

mode 'A'

messages into i_bdcmsgcoll.

refresh i_bdcdata.

call function 'FORMAT_MESSAGE'

exporting

id = sy-msgid

lang = '-D'

no = sy-msgno

v1 = sy-msgv1

v2 = sy-msgv2

v3 = sy-msgv3

v4 = sy-msgv4

importing

msg = zmsg1

exceptions

not_found = 1

others = 2.

if sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

i_error1-matnr = itab-matnr.

i_error1-text = zmsg1.

if i_error1-text is initial.

i_error1-text = 'Order Placed'.

else.

text1 = 'Order Not Placed'.

endif.

write : / i_error1-matnr , 20 i_error1-text , 80 text1.

clear text1.

clear zmsg1.

append i_error1.

clear i_error1.

endloop.

I WANT THE INFO MESS IN ZMSG1

CAN ANYONE TELL ME HOW TO ACHIEVE THIS

Thanks

Re: issue with upload

RichHeilman — Wed, 17 Jan 2007 17:36:47 GMT

The messages from your module pool program will be return in the i_bdcmsgcoll internal table. Simply loop this table and use the fields from this table to pass to the FORMAT_MESSAGE function module.

Regards,

Rich Heilman

Re: issue with upload

Former Member — Wed, 17 Jan 2007 17:38:10 GMT

Hi,

After this code

call transaction 'ZTCODE' using i_bdcdata
mode 'A'
messages into i_bdcmsgcoll.
refresh i_bdcdata.

You need loop through the internal table or read the internal table i_bdcmsgcoll and write the code.

call transaction 'ZTCODE' using i_bdcdata

mode 'A'

messages into i_bdcmsgcoll.

refresh i_bdcdata.

loop at/read table i_bdcmsgcoll

call function 'FORMAT_MESSAGE'

exporting

id = sy-msgid

lang = '-D'

no = sy-msgno

v1 = sy-msgv1

v2 = sy-msgv2

v3 = sy-msgv3

v4 = sy-msgv4

importing

msg = zmsg1

exceptions

not_found = 1

others = 2.

if sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

i_error1-matnr = itab-matnr.

i_error1-text = zmsg1.

if i_error1-text is initial.

i_error1-text = 'Order Placed'.

else.

text1 = 'Order Not Placed'.

endif.

write : / i_error1-matnr , 20 i_error1-text , 80 text1.

clear text1.

clear zmsg1.

append i_error1.

clear i_error1.

endloop.

Re: issue with upload

Former Member — Wed, 17 Jan 2007 17:39:28 GMT

Hi,

Loop at i_bdcmsgcoll where mestype = 'E'.

call function 'FORMAT_MESSAGE'

exporting

id = sy-msgid

lang = '-D'

no = sy-msgno

v1 = sy-msgv1

v2 = sy-msgv2

v3 = sy-msgv3

v4 = sy-msgv4

importing

msg = zmsg1

exceptions

not_found = 1

others = 2.

if sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

endloop.

Keep the above code outside the present loop.

Re: issue with upload

Former Member — Wed, 17 Jan 2007 18:13:35 GMT

Hi all,

i have changed my code as

LOOP AT I_BDCMSGCOLL.

call function 'FORMAT_MESSAGE'

exporting

id = sy-msgid

lang = '-D'

no = sy-msgno

v1 = sy-msgv1

v2 = sy-msgv2

v3 = sy-msgv3

v4 = sy-msgv4

importing

msg = zmsg1

exceptions

not_found = 1

others = 2.

if sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

ENDLOOP.

The mess type is 'S'.

IN THE module pool the message is

MATERIAL DOESN'T BELONG TO PLANT

WHERE AS IN MY

zmsg1

I AM GETTING THE No batch input data for screen SAPMSSY3 0131

THIS IS WHAT I HAVE IN i_bdcmsgcoll[1]

TCODE C 20 ZTEST

DYNAME C 40 SAPMSSY3

DYNUMB C 4 0131

MSGTYP C 1 S

MSGSPRA C 1 E

MSGID C 20 00

MSGNR C 3 344

MSGV1 C 100 SAPMSSY3

MSGV2 C 100 0131

MSGV3 C 100

MSGV4 C 100

ENV C 4 CTU

FLDNAME C 132

canyone tell mw to where i'm missing the trick

Thanks