How obtain Error messages in iDocs ??

Question

I need to develop a simple alv report of iDocs activity.
I am using tables edidc, edid4 and edids.
But I cannot obtain the error message completely.
In table EDIDS i have the fields:
STATXT : message
STAPA1,STAPA2,STAPA3,STAPA3: paramers for message
(to replace & by variables parameters for the message).
I cannot found a FM that prepare the full message (like left-side tree in WE05).
I need to obtain the detail message and not the simple message: "idoc created" or not.
somebody can help me ?
thanks in advance
regards
Leandro

Answer 1

Hi,
you can do it using MESSAGE_PREPARE or FORMAT_MESSAGE.
or you can use this logic...
[code]
  CLEAR IT_MESG.REFRESH IT_MESG.
    DATA: T100 TYPE T100,
          BUFFER(273).
    LOOP AT IT_EDIDS INTO X_EDIDS WHERE STATUS = C_51.
      SELECT SINGLE * FROM T100 INTO T100
                                WHERE SPRSL = SY-LANGU
                                AND   ARBGB = X_EDIDS-STAMID
                                AND   MSGNR = X_EDIDS-STAMNO.
      IF SY-SUBRC = 0.
        BUFFER = T100-TEXT.
      ELSE.
        BUFFER = TEXT-M00.
      ENDIF.
at first &1/&2/&3/&4 or. $1/$2/$3/$4 replace
      IF T100-TEXT CA '$1'.
        REPLACE '$1' WITH X_EDIDS-STAPA1 INTO BUFFER.
      ENDIF.
      IF T100-TEXT CA '$2'.
        REPLACE '$2' WITH X_EDIDS-STAPA2 INTO BUFFER.
      ENDIF.
      IF T100-TEXT CA '$3'.
        REPLACE '$3' WITH X_EDIDS-STAPA3 INTO BUFFER.
      ENDIF.
      IF T100-TEXT CA '$4'.
        REPLACE '$4' WITH X_EDIDS-STAPA4 INTO BUFFER.
      ENDIF.
      IF T100-TEXT CA '&1'.
        REPLACE '&1' WITH X_EDIDS-STAPA1 INTO BUFFER.
      ENDIF.
      IF T100-TEXT CA '&2'.
        REPLACE '&2' WITH X_EDIDS-STAPA2 INTO BUFFER.
      ENDIF.
      IF T100-TEXT CA '&3'.
        REPLACE '&3' WITH X_EDIDS-STAPA3 INTO BUFFER.
      ENDIF.
      IF T100-TEXT CA '&4'.
        REPLACE '&4' WITH X_EDIDS-STAPA4 INTO BUFFER.
      ENDIF.
      IF T100-TEXT CA '$'.
        REPLACE '$' WITH X_EDIDS-STAPA1 INTO BUFFER.
        REPLACE '$' WITH X_EDIDS-STAPA2 INTO BUFFER.
        REPLACE '$' WITH X_EDIDS-STAPA3 INTO BUFFER.
        REPLACE '$' WITH X_EDIDS-STAPA4 INTO BUFFER.
      ENDIF.
      IF T100-TEXT CA '&'.
        REPLACE '&' WITH X_EDIDS-STAPA1 INTO BUFFER.
        REPLACE '&' WITH X_EDIDS-STAPA2 INTO BUFFER.
        REPLACE '&' WITH X_EDIDS-STAPA3 INTO BUFFER.
        REPLACE '&' WITH X_EDIDS-STAPA4 INTO BUFFER.
      ENDIF.
      CONDENSE BUFFER.
      MOVE BUFFER TO X_MESG.
      APPEND X_MESG TO IT_MESG.
      CLEAR X_MESG.
    ENDLOOP.[/code]
Regards
vijay