RFVIAR41 SAP ABAP Report - Real Estate Rental Agreement Archiving: Deletion Program

RFVIAR41 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for This is the deletion program for applications archiving in Real Estate Management...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 RFVIAR41 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 RFVIAR41

INCLUDE RFVIAR40TOP.
INCLUDE RFVIAR00.
INCLUDE RFVIAR01.

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             = 'RE_RNTL_AG'
      test_mode          = testrun
    IMPORTING
      archive_handle     = archive_handle
    TABLES                                                       "45A
      selected_files     = sel_files_itab                         "45A
    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                      = 'RE_RNTL_AG'
       IMPORTING
            commit_count_for_delete_prg = commcnt
*           maintain_index              = index                     "45A
            maintain_index              = index_flag                "45A
       EXCEPTIONS
            object_not_found            = 01.

ARCHIVE_GET_NEXT_OBJECT
    CALL FUNCTION 'ARCHIVE_GET_NEXT_OBJECT'
      EXPORTING
        archive_handle          = archive_handle
      IMPORTING
        object_id               = object_id
        object_offset           = offset
        archive_name            = arkey
      EXCEPTIONS
        end_of_file             = 01
        open_error              = 03
        wrong_access_to_archive = 04.

ARCHIVE_ADMIN_SAVE_INDEX
*     CALL FUNCTION 'ARCHIVE_ADMIN_SAVE_INDEX'                      "45A
*          EXPORTING                                                "45A
*               object        = 'RE_REQUEST'                        "45A
*               object_id     = object_id                           "45A
*               archivekey    = arkey                               "45A
*               object_offset = offset.                             "45A

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

ARCHIVE_DELETE_OBJECT_DATA
    CALL FUNCTION 'ARCHIVE_DELETE_OBJECT_DATA'
      EXPORTING
        archive_handle = archive_handle.

ARCHIVE_ROLLBACK_WORK
      CALL FUNCTION 'ARCHIVE_ROLLBACK_WORK'.

ARCHIVE_ROLLBACK_WORK
    CALL FUNCTION 'ARCHIVE_ROLLBACK_WORK'.

ARCHIVE_CLOSE_FILE
  CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
    EXPORTING
      archive_handle = archive_handle.

ARCHIVE_ADMIN_SET_STATUS
    CALL FUNCTION 'ARCHIVE_ADMIN_SET_STATUS'                        "45A
         EXPORTING                                                  "45A
              files_are_converted = ' '                             "45A
              index_created       = 'X'                             "45A
         TABLES                                                     "45A
              archive_files       = sel_files_itab.                 "45A

REMD_ENCODE_IMKEY
    CALL FUNCTION 'REMD_ENCODE_IMKEY'
      EXPORTING
        i_mandt                 = viarmv_tab-mandt
        i_bukrs                 = viarmv_tab-bukrs
        i_swenr                 = viarmv_tab-swenr
        i_smenr                 = viarmv_tab-smenr
      IMPORTING
        e_viremaster            = viremaster
      EXCEPTIONS
        object_key_inconsistent = 1
        object_does_not_exist   = 2
        no_imkey                = 3
        activity_not_allowed    = 4
        no_objnr                = 5
        other_error             = 6
        OTHERS                  = 7.

OBJECT_NUMBER_DELETE_IV
  CALL FUNCTION 'OBJECT_NUMBER_DELETE_IV'
    TABLES
      t_objnr     = it_onr00
    EXCEPTIONS
      OTHERS      = 1.