Delete ALL EM Event Handlers and Messages - DO NOT USE IN PRODUCTION ENVIRONMENTS!

[ZenonK]

Hi All.

Be careful with this one!!!

I often find that I need to delete all Event Handlers and Messages in the Sandbox or Development environments.

This will do the job quickly!!

Enjoy.

==================================================================================

REPORT Z_REFRESH_EM_DATA_DANGER.

*Zenon Kowalewski 23 Decemeber 2015

*WARNING - THIS WILL DELETE ALL EVENT HANDLERS AND MESSAGES!!!

*DATA

DATA:   lt_evm_hdr         TYPE TABLE OF /saptrx/evm_hdr,

         lt_evm_cst         TYPE TABLE OF /saptrx/evm_cst,

         lt_evm_edl         TYPE TABLE OF /saptrx/evm_edl,

         lt_evm_lai         TYPE TABLE OF /saptrx/evm_lai,

         lt_evm_lid         TYPE TABLE OF /saptrx/evm_lid,

         lt_evm_mer         TYPE TABLE OF /saptrx/evm_mer,

         lt_evm_ned         TYPE TABLE OF /saptrx/evm_ned,

         lt_evm_nev         TYPE TABLE OF /saptrx/evm_nev,

         lt_evm_pai         TYPE TABLE OF /saptrx/evm_pai,

         lt_evm_pid         TYPE TABLE OF /saptrx/evm_pid,

         lt_evm_thd         TYPE TABLE OF /saptrx/evm_thd,

         lt_evm_txl         TYPE TABLE OF /saptrx/evm_txl,

         lt_evm_afb         TYPE TABLE OF /saptrx/evm_afb,

         lt_evm_afc         TYPE TABLE OF /saptrx/evm_afc,

         lt_evm_afh         TYPE TABLE OF /saptrx/evm_afh,

         lt_evm_afr         TYPE TABLE OF /saptrx/evm_afr,

         lt_evm_ref         TYPE TABLE OF /saptrx/evm_ref,

         lt_evm_sta         TYPE TABLE OF /saptrx/evm_sta,

         lt_evm_par         TYPE TABLE OF /saptrx/evm_par,

         lt_evm_eem         TYPE TABLE OF /saptrx/evm_eem,

         lt_evm_doc         TYPE TABLE OF /saptrx/evm_doc,

         lt_evm_0t20e       TYPE TABLE OF /SAPTRX/OT20E,   "remember to add message extension tables

         lt_evm_unpr        TYPE TABLE OF /SAPTRX/EVM_UNPR.

DATA: lt_eh_hdr        TYPE TABLE OF /saptrx/eh_hdr,

       lt_eh_authr      TYPE TABLE OF /saptrx/eh_authr,

       lt_eh_cntrl      TYPE TABLE OF /saptrx/eh_cntrl,

       lt_eh_eehst      TYPE TABLE OF /saptrx/eh_eehst,

       lt_eh_ermsg      TYPE TABLE OF /saptrx/eh_ermsg,

       lt_eh_evmsg      TYPE TABLE OF /saptrx/eh_evmsg,

       lt_eh_expev      TYPE TABLE OF /saptrx/eh_expev,

       lt_eh_info       TYPE TABLE OF /saptrx/eh_info,

       lt_eh_qryid      TYPE TABLE OF /saptrx/eh_qryid,

       lt_eh_seteh      TYPE TABLE OF /saptrx/eh_seteh,

       lt_eh_stat       TYPE TABLE OF /saptrx/eh_stat,

       lt_eh_sthst      TYPE TABLE OF /saptrx/eh_sthst,

       lt_eh_task       TYPE TABLE OF /saptrx/eh_task,

       lt_eh_trkid      TYPE TABLE OF /saptrx/eh_trkid,

       lt_eh_evmad      TYPE TABLE OF /saptrx/eh_evmad,

       lt_eh_measr      TYPE TABLE OF /saptrx/eh_measr,

       lt_eh_mehst      TYPE TABLE OF /saptrx/eh_mehst,

       lt_eh_hier       TYPE TABLE OF /saptrx/eh_hier,

       lt_eh_odt20      TYPE TABLE OF /SAPTRX/ODT20. "remember to add Header extension tables

DATA: ls_eh_hdr        TYPE /saptrx/eh_hdr,

       lv_objectid      TYPE cdhdr-objectid.

*****************************************************************

*Step 1) Archive

SUBMIT /SAPTRX/ARCHIVE_EH_DEACTIVATE

    USING SELECTION-SET  'ZEKO'    "name of variant

      AND RETURN.

*Step 2) Delete Event Messages

   SELECT * FROM /saptrx/evm_hdr INTO TABLE lt_evm_hdr.

   SELECT * FROM /saptrx/evm_cst INTO TABLE lt_evm_cst.

   SELECT * FROM /saptrx/evm_edl INTO TABLE lt_evm_edl.

   SELECT * FROM /saptrx/evm_lai INTO TABLE lt_evm_lai.

   SELECT * FROM /saptrx/evm_lid INTO TABLE lt_evm_lid.

   SELECT * FROM /saptrx/evm_mer INTO TABLE lt_evm_mer.

   SELECT * FROM /saptrx/evm_ned INTO TABLE lt_evm_ned.

   SELECT * FROM /saptrx/evm_nev INTO TABLE lt_evm_nev.

   SELECT * FROM /saptrx/evm_pai INTO TABLE lt_evm_pai.

   SELECT * FROM /saptrx/evm_pid INTO TABLE lt_evm_pid.

   SELECT * FROM /saptrx/evm_thd INTO TABLE lt_evm_thd.

   SELECT * FROM /saptrx/evm_txl INTO TABLE lt_evm_txl.

   SELECT * FROM /saptrx/evm_afb INTO TABLE lt_evm_afb.

   SELECT * FROM /saptrx/evm_afc INTO TABLE lt_evm_afc.

   SELECT * FROM /saptrx/evm_afh INTO TABLE lt_evm_afh.

   SELECT * FROM /saptrx/evm_afr INTO TABLE lt_evm_afr.

   SELECT * FROM /saptrx/evm_ref INTO TABLE lt_evm_ref.

   SELECT * FROM /saptrx/evm_sta INTO TABLE lt_evm_sta.

   SELECT * FROM /saptrx/evm_par INTO TABLE lt_evm_par.

   SELECT * FROM /saptrx/evm_eem INTO TABLE lt_evm_eem.

   SELECT * FROM /saptrx/evm_doc INTO TABLE lt_evm_doc.

   SELECT * FROM /SAPTRX/OT20E   INTO TABLE lt_evm_0t20e.

*Remember the Extension tables!

   DELETE /SAPTRX/OT20E     FROM TABLE lt_evm_0t20e.

   DELETE /saptrx/evm_hdr   FROM TABLE lt_evm_hdr.

   DELETE /saptrx/evm_cst   FROM TABLE lt_evm_cst.

   DELETE /saptrx/evm_edl   FROM TABLE lt_evm_edl.

   DELETE /saptrx/evm_lai   FROM TABLE lt_evm_lai.

   DELETE /saptrx/evm_lid   FROM TABLE lt_evm_lid.

   DELETE /saptrx/evm_mer   FROM TABLE lt_evm_mer.

   DELETE /saptrx/evm_ned   FROM TABLE lt_evm_ned.

   DELETE /saptrx/evm_nev   FROM TABLE lt_evm_nev.

   DELETE /saptrx/evm_pai   FROM TABLE lt_evm_pai.

   DELETE /saptrx/evm_pid   FROM TABLE lt_evm_pid.

   DELETE /saptrx/evm_thd   FROM TABLE lt_evm_thd.

   DELETE /saptrx/evm_txl   FROM TABLE lt_evm_txl.

   DELETE /saptrx/evm_afb   FROM TABLE lt_evm_afb.

   DELETE /saptrx/evm_afc   FROM TABLE lt_evm_afc.

   DELETE /saptrx/evm_afh   FROM TABLE lt_evm_afh.

   DELETE /saptrx/evm_afr   FROM TABLE lt_evm_afr.

   DELETE /saptrx/evm_ref   FROM TABLE lt_evm_ref.

   DELETE /saptrx/evm_sta   FROM TABLE lt_evm_sta.

   DELETE /saptrx/evm_par   FROM TABLE lt_evm_par.

   DELETE /saptrx/evm_eem   FROM TABLE lt_evm_eem.

   DELETE /saptrx/evm_doc   FROM TABLE lt_evm_doc.

*Step 3) Delete Unprocessed Messages

  SELECT * FROM /saptrx/evm_unpr INTO TABLE lt_evm_unpr.

  DELETE /saptrx/evm_unpr FROM TABLE lt_evm_unpr.

*Step 4) Delete Event Handlers

   SELECT * FROM /saptrx/eh_hdr INTO TABLE lt_eh_hdr.

   SELECT * FROM /saptrx/eh_authr INTO TABLE lt_eh_authr.

   SELECT * FROM /saptrx/eh_cntrl INTO TABLE lt_eh_cntrl.

   SELECT * FROM /saptrx/eh_eehst INTO TABLE lt_eh_eehst.

   SELECT * FROM /saptrx/eh_ermsg INTO TABLE lt_eh_ermsg.

   SELECT * FROM /saptrx/eh_evmsg INTO TABLE lt_eh_evmsg.

   SELECT * FROM /saptrx/eh_expev INTO TABLE lt_eh_expev.

   SELECT * FROM /saptrx/eh_info  INTO TABLE lt_eh_info.

   SELECT * FROM /saptrx/eh_qryid INTO TABLE lt_eh_qryid.

   SELECT * FROM /saptrx/eh_stat  INTO TABLE lt_eh_stat.

   SELECT * FROM /saptrx/eh_sthst INTO TABLE lt_eh_sthst.

   SELECT * FROM /saptrx/eh_task  INTO TABLE lt_eh_task.

   SELECT * FROM /saptrx/eh_trkid INTO TABLE lt_eh_trkid.

   SELECT * FROM /saptrx/eh_measr INTO TABLE lt_eh_measr.

   SELECT * FROM /saptrx/eh_mehst INTO TABLE lt_eh_mehst.

   SELECT * FROM /saptrx/eh_evmad INTO TABLE lt_eh_evmad.

   SELECT * FROM /saptrx/eh_seteh INTO TABLE lt_eh_seteh.

   SELECT * FROM /saptrx/eh_hier  INTO TABLE lt_eh_hier.

*Extension tables!

   SELECT * FROM /SAPTRX/ODT20    INTO TABLE lt_eh_odt20.

   DELETE /saptrx/eh_hdr FROM TABLE lt_eh_hdr.

   DELETE /saptrx/eh_authr FROM TABLE lt_eh_authr.

   DELETE /saptrx/eh_cntrl FROM TABLE lt_eh_cntrl.

   DELETE /saptrx/eh_eehst FROM TABLE lt_eh_eehst.

   DELETE /saptrx/eh_ermsg FROM TABLE lt_eh_ermsg.

   DELETE /saptrx/eh_evmsg FROM TABLE lt_eh_evmsg.

   DELETE /saptrx/eh_expev FROM TABLE lt_eh_expev.

   DELETE /saptrx/eh_info  FROM TABLE lt_eh_info.

   DELETE /saptrx/eh_qryid FROM TABLE lt_eh_qryid.

   DELETE /saptrx/eh_stat  FROM TABLE lt_eh_stat.

   DELETE /saptrx/eh_sthst FROM TABLE lt_eh_sthst.

   DELETE /saptrx/eh_task  FROM TABLE lt_eh_task.

   DELETE /saptrx/eh_trkid FROM TABLE lt_eh_trkid.

   DELETE /saptrx/eh_measr FROM TABLE lt_eh_measr.

   DELETE /saptrx/eh_mehst FROM TABLE lt_eh_mehst.

   DELETE /saptrx/eh_evmad FROM TABLE lt_eh_evmad.

   DELETE /saptrx/eh_seteh FROM TABLE lt_eh_seteh.

   DELETE /saptrx/eh_hier  FROM TABLE lt_eh_hier.

   DELETE /SAPTRX/ODT20    FROM TABLE lt_eh_odt20.

* delete corresponding change documents

   LOOP AT lt_eh_hdr INTO ls_eh_hdr.

     MOVE ls_eh_hdr-eh_guid TO lv_objectid.

     CALL FUNCTION 'CHANGEDOCUMENT_DELETE'

       EXPORTING

         objectclass                       = '/SAPTRX/EH_DATA'

         objectid                          = lv_objectid

       EXCEPTIONS

         no_authority                      = 1

         no_changes_found                  = 2

         OTHERS                            = 3.

    IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

     ENDIF.

   ENDLOOP.

COMMIT WORK.