IDOC Error Report

Question

Dear All,
There is an requirement to generate IDOC error report.
Normally t.codes we02 / we05 are used to see the idoc errors.  I would like to know whether any transparent tables are available to see the error log.
More specially, I need to generate an report with IDOC Numer + Error Description as an output.
If any clues, please pass on the same.
Regards,
Ramki.

Answer 1

Hi Ramki ,
Below is the code to read the error messages also for Inbound IDOC , For Out bound you have to relay on the EDIDS record only ......
Inbound : Application Log will have detailed messages for each and every error.
TABLES : edidc.
TYPES : BEGIN OF ty_final ,
        docnum      TYPE edidc-docnum,
        status      TYPE edidc-status,
        direct      TYPE edidc-direct,
        rcvprn      TYPE edidc-rcvprn,
        sndprn      TYPE edidc-sndprn,
        credat      TYPE edidc-credat,
        last_run    TYPE edids-credat,
        cretim      TYPE edidc-cretim,
        mestyp      TYPE edidc-mestyp,
        message     TYPE char255,
        END OF ty_final.
DATA : lt_final    TYPE TABLE OF ty_final,                
       ls_final    TYPE          ty_final,                 
       lt_messages TYPE STANDARD TABLE OF balm,            
       ls_messages TYPE                   balm.           
SELECT * FROM edidc INTO TABLE lt_edidc
          WHERE       upddat BETWEEN lv_date AND sy-datum
          AND         status  IN s_staus
          AND         direct  =  c_2
          AND         mestyp  IN s_mestyp
          AND         credat  BETWEEN lv_date AND sy-datum
          AND         cretim  BETWEEN lv_ltime AND sy-uzeit
          AND         rcvpor  = lv_rcvpor
          AND         rcvprt  = lv_rcvprt
          AND         rcvprn  = lv_rcvprn
          AND         sndpor  = lv_sndpor
          AND         sndprt  = lv_sndprt
          AND         sndprn  = lv_sndprn
          ORDER BY PRIMARY KEY.             " select the failed Idocs
SORT lt_edidc BY docnum ASCENDING.
  IF NOT lt_edidc IS INITIAL.
    SELECT * FROM edids INTO TABLE lt_edids FOR ALL ENTRIES IN lt_edidc
                                            WHERE docnum = lt_edidc-docnum.
    SORT lt_edids BY docnum ASCENDING countr DESCENDING.
    TRY.                                                    "#EC NEEDED
      CATCH cx_sy_dyn_table_ill_comp_val.               "#EC NO_HANDLER
    ENDTRY.
    DELETE ADJACENT DUPLICATES FROM lt_edids COMPARING docnum.
    LOOP AT lt_edids INTO ls_edids.
      lv_extnum = ls_edids-docnum.
      CALL FUNCTION 'APPL_LOG_READ_DB'         " To get Application Log details for Each Idoc
        EXPORTING
          object           = '*'
          subobject        = '*'
          external_number  = lv_extnum
          date_to          = sy-datum
          time_from        = '000000'
          time_to          = sy-uzeit
          log_class        = '4'
          program_name     = '*'
          transaction_code = '*'
          user_id          = ' '
          mode             = '+'
          put_into_memory  = ' '
        TABLES
          messages         = lt_messages.
      DELETE lt_messages WHERE lognumber NE ls_edids-appl_log. " Delete Messeages where APPl_log NE latest
      DELETE lt_messages WHERE msgty NE 'E'. " delete other than Error messages
      LOOP AT lt_messages INTO ls_messages.
        CALL FUNCTION 'FORMAT_MESSAGE'
          EXPORTING
            id   = ls_messages-msgid
            lang = 'EN'
            no   = ls_messages-msgno
            v1   = ls_messages-msgv1
            v2   = ls_messages-msgv2
            v3   = ls_messages-msgv3
            v4   = ls_messages-msgv4
          IMPORTING
            msg  = l_msg.               " Actual Error Message received
        ls_final-docnum    = ls_edids-docnum.
        ls_final-status    = ls_edids-status.
        ls_final-last_run  = ls_edids-credat.
        ls_final-cretim    = ls_edids-cretim.
        ls_final-message   = l_msg.
        CLEAR : ls_edidc.
        READ TABLE lt_edidc INTO ls_edidc WITH KEY docnum = ls_edids-docnum.
        IF sy-subrc = 0.
          ls_final-credat  = ls_edidc-credat.
          ls_final-direct  = ls_edidc-direct.
          ls_final-rcvprn  = ls_edidc-rcvprn.
          ls_final-sndprn  = ls_edidc-sndprn.
          ls_final-mestyp  = ls_edidc-mestyp.
        ENDIF.
        APPEND ls_final TO lt_final.       " Final Table will have Failed Idocs with Error Messages
        CLEAR ls_final.
      ENDLOOP.
      IF lt_messages IS INITIAL.
        CLEAR ls_final.
        ls_final-docnum    = ls_edids-docnum.
        ls_final-status    = ls_edids-status.
        ls_final-last_run  = ls_edids-credat.
        ls_final-cretim    = ls_edids-cretim.
        CLEAR : l_msg.
        CONCATENATE ls_edids-stapa1 ls_edids-stapa2 ls_edids-stapa3 ls_edids-stapa4 INTO l_msg SEPARATED BY space.
        CONDENSE l_msg .
        ls_final-message   = l_msg.
        CLEAR : ls_edidc.
        READ TABLE lt_edidc INTO ls_edidc WITH KEY docnum = ls_edids-docnum.
        IF sy-subrc = 0.
          ls_final-credat  = ls_edidc-credat.
          ls_final-direct  = ls_edidc-direct.
          ls_final-rcvprn  = ls_edidc-rcvprn.
          ls_final-sndprn  = ls_edidc-sndprn.
          ls_final-mestyp  = ls_edidc-mestyp.
        ENDIF.
        APPEND ls_final TO lt_final.
      ENDIF.
    ENDLOOP.
  ENDIF.
Final Table will now have all the error reasons for each and every Idoc ....
Hope this will help your requirement