How to delete the error stack?

Question

Hi guys
we just have a simple problem but cannot find the answer:
We are working with error handling on our transformations / dtp requests.
There are as well error dtps for coping with the errors produced.
However, there is often the case that there are records which can not be corrected.
Therefore, we would like to delete the remaining content in the errorstack.
Unfortunately, we couldn't find any standard report so far for doing this.
So how is this possible?
Thanks & regards
bivision

Answer 1

Hi bi vision,
Create ABAP program and include it in your process chain.
Logic is as follows:
1) Create a Program variant.
2) Save the variant with all your DTP Technical names.
3) write a program.
4)   SELECT odsname_tech userapp userobj FROM rstsods
                   INTO TABLE lt_rstsods
                   WHERE userobj IN s_dtp
                   AND userapp = 'ERRORSTACK'.
  IF lt_rstsods IS NOT INITIAL.
    SORT lt_rstsods.
    SELECT requid dtp FROM rsbkrequest
                      INTO TABLE lt_rsbkreq
                      WHERE dtp IN s_dtp.
    IF lt_rsbkreq IS NOT INITIAL.
      SORT lt_rsbkreq BY requid DESCENDING.
      SELECT requid sid FROM /bi0/srequid INTO TABLE lt_srequid
                        FOR ALL ENTRIES IN lt_rsbkreq
                        WHERE sid = lt_rsbkreq-requid.
      IF lt_srequid IS NOT INITIAL.
        SORT lt_srequid BY sid DESCENDING.
      ENDIF.
    ENDIF.
  ENDIF.
5)   LOOP AT lt_rstsods INTO ls_rstsods.
    lv_errtab = ls_rstsods-odsname_tech.
    READ TABLE lt_rsbkreq INTO ls_rsbkreq WITH KEY
               dtp = ls_rstsods-userobj BINARY SEARCH.
    IF sy-subrc = 0.
      lv_requid = ls_rsbkreq-requid.
      READ TABLE lt_srequid INTO ls_srequid WITH KEY
                    sid = lv_requid.
      IF sy-subrc = 0.
        lv_treqid = ls_srequid-requid.
        DELETE FROM (lv_errtab) WHERE request NE lv_treqid.
        if sy-subrc = 0.
          MESSAGE text-005 TYPE 'S'.
        else.
          MESSAGE text-006 TYPE 'S'.
        endif.
      ELSE.
        lv_treqid = ''.
      ENDIF.
    ELSE.
      lv_requid = ''.
    ENDIF.
    CLEAR: lv_errtab, lv_requid, lv_treqid.
  ENDLOOP.
Hope this will help you.  The same has implemented in our project and it is working fine.
Regards,
Krishna Chaitanya