bdc MM01

[Former Member]

HI

CAN SOMEONE SEND ME THE SAMPLE CODE HOW TO HANDLE ERRORS USING CALL TRANSACTION METHOD FOR TRANSACTION CODE MM01 AND HOE TO DOWNLOAD THE ERROR FILE USING THE FUNCTION MODULE GUI_DOWNLOAD .

REWARDS IF USEFUL

[Former Member]

HI,

DATA: I_MSG LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.

CALL TRANSACTION 'MM01' USING BDC_DATA MODE 'A' UPDATE 'S'

MESSAGES INTO I_MSG .

IF SY-SUBRC NE 0.

PERFORM ERROR.

ENDIF.

FORM ERROR .

DATA: ERR_MSG(250).

READ TABLE I_MSG WITH KEY MSGTYP = 'E'.

CALL FUNCTION 'FORMAT_MESSAGE'

EXPORTING

ID = SY-MSGID

LANG = 'EN'

NO = SY-MSGNO

V1 = SY-MSGV1

V2 = SY-MSGV2

V3 = SY-MSGV3

V4 = SY-MSGV4

IMPORTING

MSG = ERR_MSG

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.

WRITE:'ERROR MESSAGE', ERR_MSG.

CLEAR:I_MSG.

REFRESH: I_MSG.

ENDFORM. " ERROR

Regards,

S.Nehru

[Former Member]

HI,

DATA: I_MSG LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.

CALL TRANSACTION 'MM01' USING BDC_DATA MODE 'A' UPDATE 'S'

MESSAGES INTO I_MSG .

IF SY-SUBRC NE 0.

PERFORM ERROR.

ENDIF.

FORM ERROR .

DATA: ERR_MSG(250).

READ TABLE I_MSG WITH KEY MSGTYP = 'E'.

CALL FUNCTION 'FORMAT_MESSAGE'

EXPORTING

ID = SY-MSGID

LANG = 'EN'

NO = SY-MSGNO

V1 = SY-MSGV1

V2 = SY-MSGV2

V3 = SY-MSGV3

V4 = SY-MSGV4

IMPORTING

MSG = ERR_MSG

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.

WRITE:'ERROR MESSAGE', ERR_MSG.

CLEAR:I_MSG.

REFRESH: I_MSG.

ENDFORM. " ERROR

Regards,

S.Nehru