Catch a message while doing call transaction

[Former Member]

dear all,

I wana catch a error message while doing BDC to corect tht error and pass suitable value .....Is ther any way to do tht

[Former Member]

Hi Santosh ,

Use the extension <b>MESSAGES INTO itab</b> for the command CALL TRANSACTION.

Please refer to the help for call transaction for the same.

Regards

Arun

[Former Member]

See the ex:

CALL TRANSACTION 'VL02N' USING I_BDCDATA

MODE 'N'

UPDATE 'S' messages into I_BDCMSGCOLL.

IF SY-SUBRC <> 0.

MOVE-CORRESPONDING: IT_REC TO IT_ERR.

APPEND IT_ERR.

CONCATENATE 'ERROR UPLOADING : ' IT_REC-VBELN

INTO I_MSG1.

APPEND I_MSG1.

ENDIF.

&----

---

*& Form SUB_FORMAT_MESSAGES

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM SUB_FORMAT_MESSAGES .

DATA : L_MSG1 LIKE S_MSG1 OCCURS 0 WITH HEADER LINE.

LOOP AT I_BDCMSGCOLL.

CALL FUNCTION 'FORMAT_MESSAGE'

EXPORTING

ID = I_BDCMSGCOLL-MSGID

LANG = I_BDCMSGCOLL-MSGSPRA

NO = I_BDCMSGCOLL-MSGNR

V1 = I_BDCMSGCOLL-MSGV1

V2 = I_BDCMSGCOLL-MSGV2

V3 = I_BDCMSGCOLL-MSGV3

V4 = I_BDCMSGCOLL-MSGV4

IMPORTING

MSG = L_MSG1

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.

MOVE L_MSG1 TO I_MSG1.

APPEND I_MSG1.

clear L_msg1.

clear i_msg1.

ENDLOOP.

IF NOT I_MSG1[] IS INITIAL.

LOOP AT I_MSG1.

WRITE:/ I_MSG1.

ENDLOOP.

ENDIF.

ENDFORM. " SUB_FORMAT_MESSAGES

[Former Member]

Hi arun n Shaik,

I have already done that but there r many records....so ther can b many errors...then i may not b able to use this option.

[Former Member]

Hi Santosh ,

I think you are implementing BDC using call transaction and not sessions.

So what i remember is that we call the transaction for each set data , ie if we have 10 records to upload we call the transaction 10 times , so in that case you can surely get the error message for each set of data.

Please correct me if i am wrong.

Regrads

Arun

[Former Member]

Hi Santosh,

Go through the following Code for Messages while doing Call Transaction Method

report Z_CALLTRANS_VENDOR_01

no standard page heading line-size 255.

• Generated data section with specific formatting - DO NOT CHANGE ***

data: begin of it_lfa1 occurs 0,

KTOKK like lfa1-ktokk,

NAME1 like lfa1-name1,

SORTL like lfa1-sortl,

LAND1 like lfa1-land1,

end of it_lfa1.

• End generated data section ***

data : it_bdc like bdcdata occurs 0 with header line.

*DATA: IT_MESSAGES TYPE TABLE OF BDCMSGCOLL WITH HEADER LINE.

*DATA: LV_MESSAGE(255).

data : it_messages like bdcmsgcoll occurs 0 with header line.

data : V_message(255).

data : V_flag.

data : V_datum1 type sy-datum.

data : begin of it_mesg occurs 0,

message(100),

end of it_mesg.

*V_datum1 = sy-datum-1.

parameters : P_Sess like APQI-GROUPID.

start-of-selection.

perform Get_data.

*perform open_group.

loop at it_lfa1.

perform bdc_dynpro using 'SAPMF02K' '0100'.

perform bdc_field using 'BDC_CURSOR'

'RF02K-KTOKK'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'RF02K-KTOKK'

it_lfa1-KTOKK.

perform bdc_dynpro using 'SAPMF02K' '0110'.

perform bdc_field using 'BDC_CURSOR'

'LFA1-LAND1'.

perform bdc_field using 'BDC_OKCODE'

'=UPDA'.

perform bdc_field using 'LFA1-NAME1'

it_lfa1-name1.

perform bdc_field using 'LFA1-SORTL'

it_lfa1-sortl.

perform bdc_field using 'LFA1-LAND1'

it_lfa1-land1.

call transaction 'XK01' using it_bdc

mode 'N'

update 'S'

messages into it_messages.

if sy-subrc <> 0.

if V_flag <> 'X'.

perform open_group.

V_flag = 'X'.

endif.

perform bdc_transaction. "using 'XK01'.

endif.

perform format_messages.

refresh : it_bdc,it_messages.

.

endloop.

if V_flag = 'X'.

perform close_group.

endif.

&----

---

*& Form Get_data

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM Get_data .

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = 'C:\srinu_vendor.txt'

FILETYPE = 'DAT'

TABLES

DATA_TAB = it_lfa1

EXCEPTIONS

CONVERSION_ERROR = 1

INVALID_TABLE_WIDTH = 2

INVALID_TYPE = 3

NO_BATCH = 4

UNKNOWN_ERROR = 5

GUI_REFUSE_FILETRANSFER = 6

OTHERS = 7

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " Get_data

&----

---

*& Form bdc_dynpro

&----

---

• text

----

---

• -->P_0061 text

• -->P_0062 text

----

---

FORM BDC_DYNPRO USING PROGRAM DYNPRO.

CLEAR it_BDC.

it_BDC-PROGRAM = PROGRAM.

it_BDC-DYNPRO = DYNPRO.

it_BDC-DYNBEGIN = 'X'.

APPEND it_BDC.

ENDFORM.

----

---

• Insert field *

----

---

FORM BDC_FIELD USING FNAM FVAL.

CLEAR it_BDC.

it_BDC-FNAM = FNAM.

it_BDC-FVAL = FVAL.

APPEND it_BDC.

ENDFORM.

&----

---

*& Form format_messages

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM format_messages .

loop at it_messages.

CALL FUNCTION 'FORMAT_MESSAGE'

EXPORTING

ID = it_messages-MSGID

LANG = 'EN'

NO = it_messages-MSGNR

V1 = it_messages-MSGV1

V2 = it_messages-MSGV2

V3 = it_messages-MSGV3

V4 = it_messages-MSGV4

IMPORTING

MSG = V_message

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 : / V_message.

clear : V_message.

endloop.

ENDFORM. " format_messages

&----

---

*& Form open_group

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM open_group .

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

GROUP = P_Sess

• HOLDDATE = V_datum1

KEEP = 'X'

USER = SY-UNAME

.

IF SY-SUBRC = 0.

write : / 'Session Creating wit Name : ',P_Sess.

ENDIF.

ENDFORM. " open_group

&----

---

*& Form close_group

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM close_group .

CALL FUNCTION 'BDC_CLOSE_GROUP'.

ENDFORM. " close_group

&----

---

*& Form bdc_transaction

&----

---

• text

----

---

• -->P_0132 text

----

---

FORM bdc_transaction. "USING VALUE(P_0132).

CALL FUNCTION 'BDC_INSERT'

EXPORTING

TCODE = 'XK01'

• POST_LOCAL = NOVBLOCAL

• PRINTING = NOPRINT

• SIMUBATCH = ' '

• CTUPARAMS = ' '

TABLES

DYNPROTAB = it_bdc

• EXCEPTIONS

• INTERNAL_ERROR = 1

• NOT_OPEN = 2

• QUEUE_ERROR = 3

• TCODE_INVALID = 4

• PRINTING_INVALID = 5

• POSTING_INVALID = 6

• OTHERS = 7

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " bdc_transaction

Regards

Sanjeev

[Former Member]

What is ur question please ? You want correct the value after the you get error message .

That we cannot do the call transaction use session it will help you.

Error records are in the log you can reprocess session and correct the errors in foreground already updated records will not in the log only the error records will update once all error records updated session will disappear from sm35