RFTRARCHIVE_DELETE SAP ABAP Report - Transaction: Archiving (Delete Table Entries)

RFTRARCHIVE_DELETE is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for The report program deletes all transactions that belong to an archiving run from the system...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 RFTRARCHIVE_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 RFTRARCHIVE_DELETE. "Basic submit
SUBMIT RFTRARCHIVE_DELETE AND RETURN. "Return to original report after report execution complete
SUBMIT RFTRARCHIVE_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 RFTRARCHIVE_DELETE

INCLUDE IFTRFORM_TECH_ARCHIVE.
INCLUDE ARCH_DELETE_PRG_STANDARD2.

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.

ARCHIVE_GET_CUSTOMIZING_DATA
  CALL FUNCTION 'ARCHIVE_GET_CUSTOMIZING_DATA'
    EXPORTING
      object                      = g_con_arch_object
    IMPORTING
      commit_count_for_delete_prg = g_var_cust_commit
    EXCEPTIONS
      object_not_found            = 1
      OTHERS                      = 2.

ARCHIVE_OPEN_FOR_DELETE
    CALL FUNCTION 'ARCHIVE_OPEN_FOR_DELETE'
      EXPORTING
        object             = g_con_arch_object
        test_mode          = p_deltst
      IMPORTING
        archive_handle     = g_handle_archive
      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
        OTHERS             = 8.

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

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

ARCHIVE_GIVE_STATISTICS
      CALL FUNCTION 'ARCHIVE_GIVE_STATISTICS'
        EXPORTING
          archive_handle = g_handle_archive
        TABLES
          table          = lt_arch_stat.

ARCHIVE_CLOSE_FILE
    CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
      EXPORTING
        archive_handle          = g_handle_archive
      EXCEPTIONS
        internal_error          = 1
        wrong_access_to_archive = 2
        OTHERS                  = 3.

ARCHIVE_PROTOCOL_WRITE
    CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE'.

ARCHIVE_GET_TABLE
  CALL FUNCTION 'ARCHIVE_GET_TABLE'
    EXPORTING
      archive_handle          = g_handle_archive
      record_structure        = p_var_dtab_name
      all_records_of_object   = 'X'
      automatic_conversion    = 'X'
    IMPORTING
      record_cursor           = l_cnt_record_cursor
    TABLES
      table                   = p_tab_dtab
    EXCEPTIONS
      end_of_object           = 1
      internal_error          = 2
      wrong_access_to_archive = 3
      OTHERS                  = 4.

OBJECT_NUMBER_DELETE_T2
      CALL FUNCTION 'OBJECT_NUMBER_DELETE_T2'
        EXPORTING
          objnr       = p_tab_vtbfha-objnr
        EXCEPTIONS
          wrong_obart = 1
          OTHERS      = 2.

OBJECT_NUMBER_DELETE_T4
      CALL FUNCTION 'OBJECT_NUMBER_DELETE_T4'
        EXPORTING
          objnr       = p_tab_vtbfha-objnr
        EXCEPTIONS
          wrong_obart = 1
          OTHERS      = 2.

OBJECT_NUMBER_DELETE_T5
      CALL FUNCTION 'OBJECT_NUMBER_DELETE_T5'
        EXPORTING
          objnr       = p_tab_vtbfha-objnr
        EXCEPTIONS
          wrong_obart = 1
          OTHERS      = 2.

OBJECT_NUMBER_DELETE_T6
      CALL FUNCTION 'OBJECT_NUMBER_DELETE_T6'
        EXPORTING
          objnr       = p_tab_vtbfha-objnr
        EXCEPTIONS
          wrong_obart = 1
          OTHERS      = 2.

ARCHIVE_GET_TABLE
  CALL FUNCTION 'ARCHIVE_GET_TABLE'
    EXPORTING
      archive_handle          = g_handle_archive
      record_structure        = 'REFON'
      all_records_of_object   = ' '
      automatic_conversion    = 'X'
    IMPORTING
      record_cursor           = l_cnt_record_cursor
    TABLES
      table                   = g_tab_refon
    EXCEPTIONS
      end_of_object           = 1
      internal_error          = 2
      wrong_access_to_archive = 3
      OTHERS                  = 4.

TB_REF_OBJECT_SET_ARCHIVED
    CALL FUNCTION 'TB_REF_OBJECT_SET_ARCHIVED'
      EXPORTING
        imp_objnr           = p_wa_vtbfha-objnr
      TABLES
        t_refon             = g_tab_refon
      EXCEPTIONS
        no_references_found = 1
        OTHERS              = 2.

ARCHIVE_OPEN_FOR_DELETE
  CALL FUNCTION 'ARCHIVE_OPEN_FOR_DELETE'
    EXPORTING
      object         = iv_arch_obj
      test_mode      = p_deltst
    IMPORTING
      archive_handle = ev_archive_handle
    TABLES
      selected_files = lt_files.

PROGRESS_INDICATOR
  CALL FUNCTION 'PROGRESS_INDICATOR'
    EXPORTING
      i_text               = text-091
*       &% of data objects processed (& of &)
      i_processed          = iv_cnt_pro
      i_total              = iv_cnt_tot
      i_output_immediately = iv_immediately
    IMPORTING
      e_progress_sent      = lv_message_sent.

DB_COMMIT
*    CALL FUNCTION 'DB_COMMIT'.    "force immediate output of message

ARCHIVE_PROTOCOL_COLLECT














  CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
    EXPORTING
      i_object  = iv_obj_id
      i_text    = lv_text
      i_msgtype = lv_msgtype.