RIARCTPD SAP ABAP Report - FunctLocation Archiving: Delete Records

RIARCTPD is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.

If you would like to execute this report or see the full code listing simply enter RIARCTPD 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 RIARCTPD

INCLUDE RIARCTPT.
INCLUDE RIARCTP_DFPS_CHECK_SYSTEM.
INCLUDE RIARCTP_DFPS_FILTER.
INCLUDE RIARCTP_DFPS_DELETE_DISTR_INFO.

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             = pm_object
      test_mode          = testmode
    IMPORTING
      archive_handle     = pm_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
      OTHERS             = 8.

ARCHIVE_GET_CUSTOMIZING_DATA
  CALL FUNCTION 'ARCHIVE_GET_CUSTOMIZING_DATA'
    EXPORTING
      object                      = pm_object
    IMPORTING
      commit_count_for_delete_prg = pm_commcnt.

ARCHIVE_GET_NEXT_OBJECT
    CALL FUNCTION 'ARCHIVE_GET_NEXT_OBJECT'
      EXPORTING
        archive_handle = pm_handle
      IMPORTING
        object_id      = pm_object
      EXCEPTIONS
        end_of_file    = 1.

ARCHIVE_GET_NEXT_RECORD
      CALL FUNCTION 'ARCHIVE_GET_NEXT_RECORD'
        EXPORTING
          archive_handle   = pm_handle
        IMPORTING
          record           = arc_buffer-segment
          record_flags     = arc_buffer-flags
          record_structure = arc_buffer-rname
        EXCEPTIONS
          end_of_object    = 1.

ARCHIVE_DELETE_OBJECT_DATA
    CALL FUNCTION 'ARCHIVE_DELETE_OBJECT_DATA'              "P9CK060855
         EXPORTING
              archive_handle = pm_handle.

TR_APPEND_LOG
  CALL FUNCTION 'TR_APPEND_LOG'
    TABLES
      xmsg   = vprot
    EXCEPTIONS
      OTHERS = 0.

TR_FLUSH_LOG
  CALL FUNCTION 'TR_FLUSH_LOG'.

ARCHIVE_GIVE_STATISTICS
  CALL FUNCTION 'ARCHIVE_GIVE_STATISTICS'
    EXPORTING
      archive_handle = pm_handle
    TABLES
      table          = stab.

ARCHIVE_WRITE_STATISTICS
  CALL FUNCTION 'ARCHIVE_WRITE_STATISTICS'
    EXPORTING
      archive_handle          = pm_handle
      statistics_only_per_run = 'X'.

ARCHIVE_CLOSE_FILE
  CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
    EXPORTING
      archive_handle = pm_handle.