BDC messages ?

[Former Member]

Hi experts,

After Successfully uploading data in given Transaction i want to show at-last.

" This ...material has been Uploaded".

or

if its Fail... then

" This ....Not loaded ".

Who to do that..?

**********Point is assured********

[Former Member]

Hi,

Refr this code

**routine for bdcdata with tcode

FORM bdc_transaction USING tcode.

CLEAR messtab[].

CALL TRANSACTION tcode USING bdcdata

MODE 'N'

UPDATE 'A'

MESSAGES INTO messtab.

• capturing the error record

LOOP AT messtab WHERE msgtyp = 'E'.

ADD 1 TO v_error.

READ TABLE it_record1 WITH KEY ematn = messtab-msgv1 .

IF sy-subrc = 0.

MOVE-CORRESPONDING it_record1 TO it_error.

it_error-error = 'MATERIAL NO Error'.

APPEND it_error.

ENDIF.

READ TABLE it_record1 WITH KEY evart = messtab-msgv1 .

IF sy-subrc = 0.

MOVE-CORRESPONDING it_record1 TO it_error.

it_error-error = 'DOC. TYPE Error'.

APPEND it_error.

ENDIF.

READ TABLE it_record1 WITH KEY lifnr = messtab-msgv1 .

IF sy-subrc = 0.

MOVE-CORRESPONDING it_record1 TO it_error.

it_error-error = 'VENDOR NO Error'.

APPEND it_error.

ENDIF.

READ TABLE it_record1 WITH KEY vedat = messtab-msgv1 .

IF sy-subrc = 0.

MOVE-CORRESPONDING it_record1 TO it_error.

it_error-error = 'DOC. DATE'.

APPEND it_error.

ENDIF.

READ TABLE it_record1 WITH KEY ekorg = messtab-msgv1 .

IF sy-subrc = 0.

MOVE-CORRESPONDING it_record1 TO it_error.

it_error-error = 'PUR.ORGANIZATION Error'.

APPEND it_error.

ENDIF.

READ TABLE it_record1 WITH KEY lgort = messtab-msgv2 .

IF sy-subrc = 0.

MOVE-CORRESPONDING it_record1 TO it_error.

it_error-error = 'STORAGE LOCATION Error'.

APPEND it_error.

ELSE.

flag = 1.

ENDIF.

IF flag = 1 .

READ TABLE it_record1 WITH KEY werks = messtab-msgv1.

IF sy-subrc = 0.

MOVE-CORRESPONDING it_record1 TO it_error.

it_error-error = 'PLANT Error'.

APPEND it_error.

ENDIF.

ENDIF.

READ TABLE it_record1 WITH KEY ekgrp = messtab-msgv1 .

IF sy-subrc = 0.

MOVE-CORRESPONDING it_record1 TO it_error.

it_error-error = 'PUR. GROUP Error'.

APPEND it_error.

ENDIF.

READ TABLE it_record1 WITH KEY ktmng = messtab-msgv1 .

IF sy-subrc = 0.

MOVE-CORRESPONDING it_record1 TO it_error.

it_error-error = 'QUANTITY Error'.

APPEND it_error.

ENDIF.

CLEAR it_error.

ENDLOOP.

Regards,

Prashant

[Former Member]

check the sy-subrc.

if sy-subrc = 0. then successful message

otherwise failure message

[former_member386202]

Hi,

Refr this code

**routine for bdcdata with tcode

FORM bdc_transaction USING tcode.

CLEAR messtab[].

CALL TRANSACTION tcode USING bdcdata

MODE 'N'

UPDATE 'A'

MESSAGES INTO messtab.

• capturing the error record

LOOP AT messtab WHERE msgtyp = 'E'.

ADD 1 TO v_error.

READ TABLE it_record1 WITH KEY ematn = messtab-msgv1 .

IF sy-subrc = 0.

MOVE-CORRESPONDING it_record1 TO it_error.

it_error-error = 'MATERIAL NO Error'.

APPEND it_error.

ENDIF.

READ TABLE it_record1 WITH KEY evart = messtab-msgv1 .

IF sy-subrc = 0.

MOVE-CORRESPONDING it_record1 TO it_error.

it_error-error = 'DOC. TYPE Error'.

APPEND it_error.

ENDIF.

READ TABLE it_record1 WITH KEY lifnr = messtab-msgv1 .

IF sy-subrc = 0.

MOVE-CORRESPONDING it_record1 TO it_error.

it_error-error = 'VENDOR NO Error'.

APPEND it_error.

ENDIF.

READ TABLE it_record1 WITH KEY vedat = messtab-msgv1 .

IF sy-subrc = 0.

MOVE-CORRESPONDING it_record1 TO it_error.

it_error-error = 'DOC. DATE'.

APPEND it_error.

ENDIF.

READ TABLE it_record1 WITH KEY ekorg = messtab-msgv1 .

IF sy-subrc = 0.

MOVE-CORRESPONDING it_record1 TO it_error.

it_error-error = 'PUR.ORGANIZATION Error'.

APPEND it_error.

ENDIF.

READ TABLE it_record1 WITH KEY lgort = messtab-msgv2 .

IF sy-subrc = 0.

MOVE-CORRESPONDING it_record1 TO it_error.

it_error-error = 'STORAGE LOCATION Error'.

APPEND it_error.

ELSE.

flag = 1.

ENDIF.

IF flag = 1 .

READ TABLE it_record1 WITH KEY werks = messtab-msgv1.

IF sy-subrc = 0.

MOVE-CORRESPONDING it_record1 TO it_error.

it_error-error = 'PLANT Error'.

APPEND it_error.

ENDIF.

ENDIF.

READ TABLE it_record1 WITH KEY ekgrp = messtab-msgv1 .

IF sy-subrc = 0.

MOVE-CORRESPONDING it_record1 TO it_error.

it_error-error = 'PUR. GROUP Error'.

APPEND it_error.

ENDIF.

READ TABLE it_record1 WITH KEY ktmng = messtab-msgv1 .

IF sy-subrc = 0.

MOVE-CORRESPONDING it_record1 TO it_error.

it_error-error = 'QUANTITY Error'.

APPEND it_error.

ENDIF.

CLEAR it_error.

ENDLOOP.

Regards,

Prashant

[Former Member]

No dear,

i want to show 'Summary ' or Acknowledgemet that CJ01 transaction successfully uploaded... with so and so project....

[Former Member]

Hi

AFTER bdc_close CHECK FOR sy-subrc IF ITS 0 THEN DISPLAY A MESSAGE SESSION CREATED SUCCESSFULLY

<b>REWARD IF USEFULL</b>

[Former Member]

Hi jim

Use the std structure BDCMSGCOLL to store the messages. The messages can be populated using the Function Module, 'FORMAT_MESSAGE' to format the messages.e below code for ref...

CALL TRANSACTION 'MM01' USING IT_BDCDATA MODE 'N' UPDATE 'S'

MESSAGES INTO IT_MESSAGES.

all messages wiull come into it_messages and display them like:

if sy-subrc NE 0.

FORM ERROR_MESSAGES.

CALL FUNCTION 'FORMAT_MESSAGE'

EXPORTING

ID = SY-MSGID

LANG = '-D'

IMPORTING

MSG = V_MESG

EXCEPTIONS

NOT_FOUND = 1

OTHERS = 2.

LOOP AT IT_MESSAGES WHERE MSGTYP = 'E'.

WRITE : / V_MESG.

CLEAR IT_MESSAGES.

ENDLOOP.

Else

message zx001 ' data upload is succuss'.

endif.

<b>

reward is usefull</b>

[Former Member]

thanks to all experts. p

point has been given