SAP ABAP IDoc Status Query Generator

REPORT ZR_IDOC_ERROR_LIST.

TYPES: BEGIN OF ty_idoc,
         docnum TYPE edidc-docnum,
         status TYPE edidc-status,
         mestyp TYPE edidc-mestyp,
         idoctp TYPE edidc-idoctp,
         sndprn TYPE edidc-sndprn,
         rcvprn TYPE edidc-rcvprn,
         credat TYPE edidc-credat,
         cretim TYPE edidc-cretim,
       END OF ty_idoc.

DATA: lt_idoc   TYPE STANDARD TABLE OF ty_idoc,
      ls_idoc   TYPE ty_idoc,
      lt_status TYPE STANDARD TABLE OF edids,
      ls_status TYPE edids,
      lv_from   TYPE d.

lv_from = sy-datum - 7.

SELECT docnum status mestyp idoctp sndprn rcvprn credat cretim
  FROM edidc
  INTO TABLE lt_idoc
  WHERE mestyp = 'ORDERS'
    AND status = '51'
    AND direct = '2'
    AND credat >= lv_from.

IF lt_idoc IS NOT INITIAL.
  SELECT * FROM edids
    INTO TABLE lt_status
    FOR ALL ENTRIES IN lt_idoc
    WHERE docnum = lt_idoc-docnum
      AND status = lt_idoc-status.
  SORT lt_status BY docnum ASCENDING countr DESCENDING.
ENDIF.

LOOP AT lt_idoc INTO ls_idoc.
  READ TABLE lt_status INTO ls_status WITH KEY docnum = ls_idoc-docnum.
  WRITE: / ls_idoc-docnum, ls_idoc-credat, ls_idoc-cretim, ls_idoc-sndprn, ls_status-statxt.
ENDLOOP.

02: error passing data to port. 29: error in ALE service. 30: IDoc ready for dispatch. 51: application document not posted (inbound error). 56: IDoc with errors added (identification of partner failed). 64: IDoc ready to be passed to application. 69: IDoc was edited. Current direction filter: 2 for message type ORDERS.