RFTR_COEX_ARCHIVE_DELETE SAP ABAP Report - Archiving Commodity Price Exposures - Delete Program

RFTR_COEX_ARCHIVE_DELETE 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 RFTR_COEX_ARCHIVE_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.

Text pool values

INCLUDES used within this REPORT RFTR_COEX_ARCHIVE_DELETE

INCLUDE ARCH_DELETE_PRG_STANDARD1. "<<< FLOW CONTROL
INCLUDE IFTRVAR_TECH_ARCHIVE.

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
*     ARCHIVE_NAME   = ' '
      object         = gc_arch_obj
      test_mode      = p_deltst
*     AINDFLAG       = 'X'
*     NO_STATISTICS  = ' '
*     OUTPUT_SEL_SCREEN_WHEN_DIALOG       = ' '
*     OUTPUT_SEL_SCREEN_WHEN_BATCH        = ' '
    IMPORTING
      archive_handle = gv_arc_handle
* TABLES
*     SELECTED_FILES = SELECTED_FILES
    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
*     ARCHIVING_STANDARD_VIOLATION        = 8
      OTHERS         = 0.

ARCHIVE_GET_CUSTOMIZING_DATA
  CALL FUNCTION 'ARCHIVE_GET_CUSTOMIZING_DATA'
    EXPORTING
      object                      = gc_arch_obj
    IMPORTING
      commit_count_for_delete_prg = gv_commit_cnt
*     MAINTAIN_INDEX              = MAINTAIN_INDEX
    EXCEPTIONS
*     OBJECT_NOT_FOUND            = 1
      OTHERS                      = 0.

ARCHIVE_GET_INFORMATION
  CALL FUNCTION 'ARCHIVE_GET_INFORMATION'
    EXPORTING
      archive_handle        = gv_arc_handle
    IMPORTING
*     ARCHIVE_CREATION_DATE = ARCHIVE_CREATION_DATE
*     ARCHIVE_CREATION_RELEASE       = ARCHIVE_CREATION_RELEASE
*     ARCHIVE_CREATION_SYSTEM        = ARCHIVE_CREATION_SYSTEM
*     ARCHIVE_DOCUMENT      = ARCHIVE_DOCUMENT
*     ARCHIVE_NAME          = ARCHIVE_NAME
*     OBJECT                = OBJECT
*     ARCHIVE_CODE_PAGE     = ARCHIVE_CODE_PAGE
*     ARCHIVE_NUMBER_FORMAT = ARCHIVE_NUMBER_FORMAT
*     ADK_VERSION           = ADK_VERSION
*     ARCHIVING_CLASS       = ARCHIVING_CLASS
      object_number_in_file = gv_objects_to_delete
*     OBJECT_NUMBER_IN_RUN  = OBJECT_NUMBER_IN_RUN
* TABLES
*     USED_CLASSES          = USED_CLASSES
    EXCEPTIONS
*     INTERNAL_ERROR        = 1
*     WRONG_ACCESS_TO_ARCHIVE        = 2
      OTHERS                = 0.

ARCHIVE_GET_NEXT_OBJECT
    CALL FUNCTION 'ARCHIVE_GET_NEXT_OBJECT'
      EXPORTING
        archive_handle          = gv_arc_handle
* IMPORTING
*       OBJECT_ID               = OBJECT_ID
*       OBJECT_OFFSET           = OBJECT_OFFSET
*       ARCHIVE_NAME            = ARCHIVE_NAME
*       COMPR_OBJECT_LENGTH     = COMPR_OBJECT_LENGTH
*       SESSION                 = SESSION
      EXCEPTIONS
        end_of_file             = 1
        file_io_error           = 2
        internal_error          = 3
        open_error              = 4
        wrong_access_to_archive = 5
        OTHERS                  = 6.

ARCHIVE_READ_OBJECT_BY_HANDLE
    CALL FUNCTION 'ARCHIVE_READ_OBJECT_BY_HANDLE'
      EXPORTING
        iv_handle   = gv_arc_handle
*       IV_READ_CLASS_DATA = 'CONTEXT'
      CHANGING
        ct_obj_data = gt_tab_object_data.

ARCHIVE_DELETE_TABLE
      CALL FUNCTION 'ARCHIVE_DELETE_TABLE'
        EXPORTING
          iv_tabname = gs_object_data-tabname
          it_records = 
          iv_deltst  = p_deltst
*         IV_ON_COMMIT               = 'X'
          iv_handle  = gv_arc_handle
        EXCEPTIONS
*         DELETION_NOT_ALLOWED       = 1
          OTHERS     = 0.

ARCHIVE_DELETE_OBJECT_DATA
    CALL FUNCTION 'ARCHIVE_DELETE_OBJECT_DATA'
      EXPORTING
        archive_handle = gv_arc_handle
      EXCEPTIONS
*       INTERNAL_ERROR = 1
*       WRONG_ACCESS_TO_ARCHIVE       = 2
        OTHERS         = 0.

ARCHIVE_GIVE_STATISTICS
    CALL FUNCTION 'ARCHIVE_GIVE_STATISTICS'
      EXPORTING
        archive_handle = gv_arc_handle
      TABLES
        table          = gt_tab_statistic
      EXCEPTIONS
*       INTERNAL_ERROR = 1
*       WRONG_ACCESS_TO_ARCHIVE       = 2
        OTHERS         = 0.

PROGRESS_INDICATOR
    CALL FUNCTION 'PROGRESS_INDICATOR'
      EXPORTING
        i_text      = '&1% (&2 of &3) of the batches processed'(001)
*       I_MSGID     = I_MSGID
*       I_MSGNO     = I_MSGNO
*       I_MSGV1     = I_MSGV1
*       I_MSGV2     = I_MSGV2
*       I_MSGV3     = I_MSGV3
*       I_MSGV4     = I_MSGV4
        i_processed = gv_objects_deleted
        i_total     = gv_objects_to_delete
*       I_OUTPUT_IMMEDIATELY       = I_OUTPUT_IMMEDIATELY
* IMPORTING
*       E_PROGRESS_SENT            = E_PROGRESS_SENT
      .

PROGRESS_INDICATOR
  CALL FUNCTION 'PROGRESS_INDICATOR'
    EXPORTING
      i_text               = '&1% (&2 of &3) of the batches processed'(001)
*     I_MSGID              = I_MSGID
*     I_MSGNO              = I_MSGNO
*     I_MSGV1              = I_MSGV1
*     I_MSGV2              = I_MSGV2
*     I_MSGV3              = I_MSGV3
*     I_MSGV4              = I_MSGV4
      i_processed          = gv_objects_deleted
      i_total              = gv_objects_to_delete
      i_output_immediately = 'X'
* IMPORTING
*     E_PROGRESS_SENT      = E_PROGRESS_SENT
    .

ARCHIVE_WRITE_STATISTICS
  CALL FUNCTION 'ARCHIVE_WRITE_STATISTICS'
    EXPORTING
      archive_handle           = gv_arc_handle
*     STATISTICS_ONLY_PER_RUN  = ' '
      statistics_only_per_file = 'X'
    EXCEPTIONS
*     INTERNAL_ERROR           = 1
*     WRONG_ACCESS_TO_ARCHIVE  = 2
      OTHERS                   = 0.

ARCHIVE_CLOSE_FILE
  CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
    EXPORTING
      archive_handle               = gv_arc_handle
    EXCEPTIONS
      internal_error               = 1
      wrong_access_to_archive      = 2
      archiving_standard_violation = 3
      OTHERS                       = 4.