RHECM_ARCH_DELETE SAP ABAP Report - Destroy: Delete Program for Compensation Review Data

RHECM_ARCH_DELETE is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for You use this report to destroy business data (in this case, employee related data stored in Compensation Management) using the HRECM_REV archiving object which runs in an Information Lifecycle Management (ILM) enabled setup...see full standard documentation available for this report. Also check out the submitted Comments related to this SAP report and the details below to see which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC.

If you would like to execute this report or see the full code listing simply enter RHECM_ARCH_DELETE into the relevant SAP transactions such as SE38 or SE80

ABAP code to call this SAP report using the submit statement

This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.

SUBMIT RHECM_ARCH_DELETE. "Basic submit
SUBMIT RHECM_ARCH_DELETE AND RETURN. "Return to original report after report execution complete
SUBMIT RHECM_ARCH_DELETE VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement

Text pool values

INCLUDES used within this REPORT RHECM_ARCH_DELETE

INCLUDE HCMDP_ARCH_DELETE_PRG_STD2. "<<< FLOW CONTROL

TABLES used within REPORT and the associated SELECT statement:

No SAP DATABASE tables are accessed within this REPORT code!

Function Modules used within report and the associated call statement:

ARCHIVE_PROTOCOL_INIT
  CALL FUNCTION 'ARCHIVE_PROTOCOL_INIT'
    EXPORTING
      i_detailprotocol  = p_prot
      i_protocol_output = p_prot_o.

ARCHIVE_OPEN_FOR_DELETE
  CALL FUNCTION 'ARCHIVE_OPEN_FOR_DELETE'
    EXPORTING
      object                       = c_arch_obj
      test_mode                    = testrun
    IMPORTING
      archive_handle               = gv_handle
    EXCEPTIONS
      file_already_open            = 1
      file_io_error                = 2
      internal_error               = 3
      no_files_available           = 4
      object_not_found             = 5
      open_error                   = 6
      not_authorized               = 7
      archiving_standard_violation = 8.

ARCHIVE_PROTOCOL_COLLECT
    CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
      EXPORTING
        i_msgtype = 1
        i_msgid   = sy-msgid
        i_msgno   = sy-msgno.

ARCHIVE_GET_INFORMATION
    CALL FUNCTION 'ARCHIVE_GET_INFORMATION'
      EXPORTING
        archive_handle        = gv_handle
      IMPORTING
        object_number_in_file = gv_objects_to_delete.

ARCHIVE_GET_INFORMATION
*  CALL FUNCTION 'ARCHIVE_GET_INFORMATION'
*    EXPORTING
*      archive_handle   = lv_handle
*    IMPORTING
*      archive_document = lv_document
*      archive_name     = lv_archive_key.

ARCHIVE_GET_CUSTOMIZING_DATA
    CALL FUNCTION 'ARCHIVE_GET_CUSTOMIZING_DATA'
      EXPORTING
        object                      = c_arch_obj
      IMPORTING
        commit_count_for_delete_prg = gv_commit_cnt.

ARCHIVE_GET_NEXT_OBJECT
      CALL FUNCTION 'ARCHIVE_GET_NEXT_OBJECT'
        EXPORTING
          archive_handle          = gv_handle
        EXCEPTIONS
          end_of_file             = 1
          file_io_error           = 2
          internal_error          = 3
          open_error              = 4
          wrong_access_to_archive = 5.

ARCHIVE_PROTOCOL_COLLECT
        CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
          EXPORTING
            i_msgtype = 1
            i_msgid   = sy-msgid
            i_msgno   = sy-msgno.

ARCHIVE_READ_OBJECT_BY_HANDLE
      CALL FUNCTION 'ARCHIVE_READ_OBJECT_BY_HANDLE'
        EXPORTING
          iv_handle               = gv_handle
*         IV_READ_CLASS_DATA      = 'CONTEXT'
        CHANGING
          ct_obj_data             = gt_data_object
        EXCEPTIONS
          end_of_object           = 1
          internal_error          = 2
          wrong_access_to_archive = 3.

ARCHIVE_PROTOCOL_COLLECT
        CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
          EXPORTING
            i_msgtype = 1
            i_msgid   = sy-msgid
            i_msgno   = sy-msgno.

ARCHIVE_DELETE_TABLE
        CALL FUNCTION 'ARCHIVE_DELETE_TABLE'
          EXPORTING
            iv_tabname           = gw_object_data-tabname
            it_records           = 
            iv_deltst            = testrun
*           IV_ON_COMMIT         = 'X'
            iv_handle            = gv_handle
          EXCEPTIONS
            deletion_not_allowed = 1.

ARCHIVE_DELETE_OBJECT_DATA
      CALL FUNCTION 'ARCHIVE_DELETE_OBJECT_DATA'
        EXPORTING
          archive_handle          = gv_handle
        EXCEPTIONS
          internal_error          = 1
          wrong_access_to_archive = 2
          OTHERS                  = 3.

ARCHIVE_PROTOCOL_COLLECT
          CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
            EXPORTING
              i_object  = lv_object
              i_msgtype = 1
              i_msgid   = sy-msgid
              i_msgno   = sy-msgno
              i_msgv1   = sy-msgv1.

ARCHIVE_GIVE_STATISTICS
        CALL FUNCTION 'ARCHIVE_GIVE_STATISTICS'
          EXPORTING
            archive_handle = gv_handle
          TABLES
            table          = gt_statistic.

ARCHIVE_PROTOCOL_COLLECT
          CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
            EXPORTING
              i_object  = lv_object
              i_msgtype = 1
              i_msgid   = sy-msgid
              i_msgno   = sy-msgno
              i_msgv1   = sy-msgv1.

PROGRESS_INDICATOR
      CALL FUNCTION 'PROGRESS_INDICATOR'
        EXPORTING
          i_text      = text-001 "#EC * "text shall be understandable for EN-speaking coleagues
          i_processed = gv_objects_deleted
          i_total     = gv_objects_to_delete.

PROGRESS_INDICATOR
    CALL FUNCTION 'PROGRESS_INDICATOR'
      EXPORTING
        i_text               = text-001 "#EC * "text shall be understandable for EN-speaking coleagues
        i_processed          = gv_objects_deleted
        i_total              = gv_objects_to_delete
        i_output_immediately = 'X'.     "the '100% done'-message shall be called no matter when the last progress has been send

ARCHIVE_WRITE_STATISTICS
    CALL FUNCTION 'ARCHIVE_WRITE_STATISTICS'
      EXPORTING
        archive_handle           = gv_handle
        statistics_only_per_file = 'X'.

ARCHIVE_CLOSE_FILE














    CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
      EXPORTING
        archive_handle = gv_handle.

ARCHIVE_PROTOCOL_WRITE
  CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE'.