RM06ED47 SAP ABAP Report - Purchasing Document Archiving: Deletion Program

RM06ED47 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for The report deletes all purchasing documents of a file in the storage system from 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 RM06ED47 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 RM06ED47

INCLUDE ARCH_DELETE_PRG_STANDARD2. " 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_APPL
  CALL FUNCTION 'ARCHIVE_PROTOCOL_INIT_APPL'
    EXPORTING
      i_detailprotocol = p_prot.

ARCHIVE_GET_CUSTOMIZING_DATA
  CALL FUNCTION 'ARCHIVE_GET_CUSTOMIZING_DATA'
    EXPORTING
      object                      = 'MM_EKKO'
    IMPORTING
      commit_count_for_delete_prg = cust_commit_count.

ARCHIVE_OPEN_FOR_DELETE
  CALL FUNCTION 'ARCHIVE_OPEN_FOR_DELETE'
    EXPORTING
      object            = 'MM_EKKO'
      test_mode         = p_deltst
    IMPORTING
      archive_handle    = handle
    EXCEPTIONS
      file_already_open = 01.

ARCHIVE_GET_NEXT_OBJECT
    CALL FUNCTION 'ARCHIVE_GET_NEXT_OBJECT'
      EXPORTING
        archive_handle = handle
      EXCEPTIONS
        end_of_file    = 01.

ARCHIVE_DELETE_OBJECT_DATA
      CALL FUNCTION 'ARCHIVE_DELETE_OBJECT_DATA'
        EXPORTING
          archive_handle = handle.

ARCHIVE_GET_NEXT_RECORD
      CALL FUNCTION 'ARCHIVE_GET_NEXT_RECORD'
        EXPORTING
          archive_handle   = handle
        IMPORTING
          record           = buffer-segment
          record_flags     = buffer-flags
          record_structure = buffer-rname
        EXCEPTIONS
          end_of_object    = 01.

PROGRESS_INDICATOR_APPL
            CALL FUNCTION 'PROGRESS_INDICATOR_APPL'
              EXPORTING
                i_text      = text-002
                i_msgv1     = l_processed
                i_processed = l_processed.

ARCHIVE_PROTOCOL_COLLECT_APPL
          CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT_APPL'
            EXPORTING
              i_object  = xekko-ebeln
              i_msgtype = '01'
              i_text    = text-001.

PROGRESS_INDICATOR_APPL
  CALL FUNCTION 'PROGRESS_INDICATOR_APPL'
    EXPORTING
      i_text               = text-002
      i_msgv1              = l_processed
      i_processed          = l_processed
      i_output_immediately = 'X'.

ARCHIVE_WRITE_STATISTICS
    CALL FUNCTION 'ARCHIVE_WRITE_STATISTICS'                "#EC *
      EXPORTING
        archive_handle                 = handle
      EXCEPTIONS
        internal_error                 = 1
        wrong_access_to_archive        = 2
        OTHERS                         = 3.

ARCHIVE_PROTOCOL_WRITE_APPL
  CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE_APPL'.

ARCHIVE_CLOSE_FILE
  CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
    EXPORTING
      archive_handle = handle.

MD_LOESCHEN_KOMPONENTEN
          CALL FUNCTION 'MD_LOESCHEN_KOMPONENTEN'
            EXPORTING
              rsnum = xresb-rsnum
            TABLES
              mdsbx = tmdsbl.

CUCB_GET_OWNER_OF_CFG
*        CALL FUNCTION 'CUCB_GET_OWNER_OF_CFG'               " 986622
*          EXPORTING
*            i_instance                         = xekpo-cuobj
*          EXCEPTIONS
*            invalid_instance                   = 1
*            instance_is_a_classification       = 2
*            unknown_owner                      = 3
*            OTHERS                             = 4.

CUCB_CHECK_AND_DELETE_CONF
*          CALL FUNCTION 'CUCB_CHECK_AND_DELETE_CONF'        "#EC *
*            EXPORTING
*              root_instance       = xekpo-cuobj
*              owner               = ls_object
*            EXCEPTIONS
*              invalid_instance    = 1
*              not_a_root_instance = 2
*              invalid_owner       = 3
*              OTHERS              = 4.

MM_ARRANG_DEL_S111_FROM_EKKO
    CALL FUNCTION 'MM_ARRANG_DEL_S111_FROM_EKKO'
      TABLES
        t_ekko_key = lt_ekko_key.

ARCHIVE_GIVE_STATISTICS
    CALL FUNCTION 'ARCHIVE_GIVE_STATISTICS'
      EXPORTING
        archive_handle = handle
      TABLES
        table          = arch_stat
      EXCEPTIONS
        internal_error = 1.

ADDR_MEMORY_CLEAR
  CALL FUNCTION 'ADDR_MEMORY_CLEAR'                         "#EC *
    EXPORTING
      force  = 'X'
    EXCEPTIONS
      OTHERS = 1.