Capturing error records and messages in BDC ?

Question

Hi Experts,
I am recording a infotype using BDC recording and I got successfull updation in recording.But I  dont want the output message generated by BDC recording which is obtained by perform bdc_transaction using 'pa30' generated by recording.
I want to capture the success pernr values and its correponding messages in a seperate internal table.Then want to capture error pernr values and its messages in a seperate internal table.
Give me sample coding to fetch those values. Think that my internal table which contains pernr values for recording is int_0007.from this internal table I am recording values.Give me coding to collect success anf error pernr values and its messges in seperate internal table.
Thanks,
Sakthi.C
*Assure points for valuable answers*
Message was edited by:
        Sakthi Saravanan C

Answer 1

DATA : BEGIN OF T_UPLOAD OCCURS 0,
         MATNR LIKE MARA-MATNR,
         MAKTX LIKE MAKT-MAKTX,
         PLANT LIKE RMMG1-WERKS,
       END OF T_UPLOAD.
DATA : BEGIN OF T_DOWNLOAD OCCURS 0,
         MATNR LIKE MARA-MATNR,
         MAKTX LIKE MAKT-MAKTX,
         PLANT LIKE RMMG1-WERKS,
         MSG(200),
       END OF T_DOWNLOAD.
DATA :  T_BDCMSGCOLL TYPE TABLE OF BDCMSGCOLL WITH HEADER LINE.
DATA :  WA_BDCMSGCOLL TYPE BDCMSGCOLL.
DATA : ERR_LOG TYPE MESSAGE.
Set the parameters for Call Transaction
  CLEAR WA_CTU_PARAMS.
  WA_CTU_PARAMS-DISMODE = 'N'.
  WA_CTU_PARAMS-UPDMODE = 'S'.
  WA_CTU_PARAMS-NOBINPT = 'X'.
  WA_CTU_PARAMS-NOBIEND = 'X'.
  WA_CTU_PARAMS-DEFSIZE = 'X'.
Call Transaction MM01
  IF W_FLAG NE 'X'.
    <b>CALL TRANSACTION 'MM01' USING T_BDCDATA OPTIONS FROM WA_CTU_PARAMS
                                             MESSAGES INTO T_BDCMSGCOLL.
    COMMIT WORK AND WAIT.</b>
    DESCRIBE TABLE T_BDCMSGCOLL LINES N.
    IF N <> 0.
      LOOP AT T_BDCMSGCOLL INTO WA_BDCMSGCOLL.
        CLEAR ERR_LOG.
        W_MSGNO = WA_BDCMSGCOLL-MSGNR.
        CALL FUNCTION <b>'WRITE_MESSAGE'</b>          EXPORTING
            MSGID = WA_BDCMSGCOLL-MSGID
            MSGNO = W_MSGNO
            MSGTY = WA_BDCMSGCOLL-MSGTYP
          IMPORTING
            MESSG = ERR_LOG.
Error that occurs during transactoon
        IF ERR_LOG-MSGTY = 'E'.
          MOVE-CORRESPONDING T_UPLOAD TO  T_DOWNLOAD.
          MOVE ERR_LOG-MSGTX TO  T_DOWNLOAD-MSG.
          APPEND T_DOWNLOAD.
        ENDIF.
      ENDLOOP.
    ENDIF.
  ENDIF.
regards
vinod