RSARCH06 SAP ABAP Report - Example Program for Archiving, Delete Program, Index creation

RSARCH06 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for This is an example program for showing how the function modules are used to read available archives and delete archived data in the database...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 RSARCH06 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.

Text pool values

INCLUDES used within this REPORT RSARCH06

No INCLUDES are used within this REPORT code!

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_OPEN_FOR_DELETE
CALL FUNCTION 'ARCHIVE_OPEN_FOR_DELETE'
  EXPORTING
    object             = 'EXAMPLE'
    test_mode          = testrun
  IMPORTING
    archive_handle     = handle
  TABLES
    selected_files     = select_files
  EXCEPTIONS
    file_already_open  = 01
    file_io_error      = 02
    no_files_available = 04
    object_not_found   = 05
    open_error         = 06.

ARCHIVE_GET_CUSTOMIZING_DATA
CALL FUNCTION 'ARCHIVE_GET_CUSTOMIZING_DATA'
  EXPORTING
    object                      = 'EXAMPLE'
  IMPORTING
    commit_count_for_delete_prg = commcnt
    maintain_index              = index
  EXCEPTIONS
    object_not_found            = 01.

ARCHIVE_GET_NEXT_OBJECT
  CALL FUNCTION 'ARCHIVE_GET_NEXT_OBJECT'
    EXPORTING
      archive_handle = handle
    IMPORTING
      object_id      = object_id
      object_offset  = offset
      archive_name   = arkey
    EXCEPTIONS
      end_of_file    = 01.

ARCHIVE_ADMIN_SAVE_INDEX
    CALL FUNCTION 'ARCHIVE_ADMIN_SAVE_INDEX'
      EXPORTING
        object        = 'EXAMPLE'
        object_id     = object_id
        archivekey    = arkey
        object_offset = offset.

ARCHIVE_GET_NEXT_RECORD
    CALL FUNCTION 'ARCHIVE_GET_NEXT_RECORD'    "builds up index
         EXPORTING
              archive_handle          = handle
         IMPORTING
*              RECORD                  = ARC_BUFFER-SEGMENT
              record_ref              = buffer_ref
              record_structure        = arc_buffer-rname
         EXCEPTIONS
              end_of_object           = 01.

ARCHIVE_DELETE_OBJECT_DATA
  CALL FUNCTION 'ARCHIVE_DELETE_OBJECT_DATA'
    EXPORTING
      archive_handle = handle.

ARCHIVE_CLOSE_FILE
CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
  EXPORTING
    archive_handle = handle.

ARCHIVE_ADMIN_SET_STATUS
  CALL FUNCTION 'ARCHIVE_ADMIN_SET_STATUS'
    EXPORTING
      files_are_converted  = ' '
      index_created        = 'X'
    TABLES
      archive_files        = archive_files
    EXCEPTIONS
      cannot_change_status = 1
      OTHERS               = 2.