RFFMAR64 SAP ABAP Report - Delete Archived Budget Totals Records in FM

RFFMAR64 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 RFFMAR64 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 RFFMAR64

INCLUDE: IFMARSEL_DEL.
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_WRITE
  call function 'ARCHIVE_PROTOCOL_WRITE'.

ARCHIVE_PROTOCOL_INIT
  call function 'ARCHIVE_PROTOCOL_INIT'
    exporting
      i_detailprotocol  = p_prot
      i_protocol_output = p_prot_o.

ARCHIVE_OPEN_FOR_DELETE
  call function 'ARCHIVE_OPEN_FOR_DELETE'
       exporting
            object         = fmar_const_ar_objekt_budsum
            test_mode      = p_deltst
       importing
            archive_handle = g_ar_handle.

ARCHIVE_GET_CUSTOMIZING_DATA
  call function 'ARCHIVE_GET_CUSTOMIZING_DATA'
       exporting
            object                      = fmar_const_ar_objekt_budsum
       importing
            commit_count_for_delete_prg = g_commit_max  "should be 10
       exceptions
            object_not_found            = 01.

ARCHIVE_GET_ARCHIVE_FILES
  call function 'ARCHIVE_GET_ARCHIVE_FILES'
       exporting
            archive_handle = g_ar_handle
       tables
            archive_files  = g_t_files.

ARCHIVE_GET_NEXT_OBJECT
  call function 'ARCHIVE_GET_NEXT_OBJECT'
       exporting
            archive_handle          = g_ar_handle
       exceptions
            end_of_file             = 1
            file_io_error           = 2
            internal_error          = 3
            open_error              = 4
            wrong_access_to_archive = 5
            others                  = 6.

ARCHIVE_DELETE_OBJECT_DATA
    call function 'ARCHIVE_DELETE_OBJECT_DATA'
         exporting
              archive_handle = g_ar_handle.

FM_ARC_BT_GET_NEXT_RECORD
  call function 'FM_ARC_BT_GET_NEXT_RECORD'
       exporting
            i_ar_handle = g_ar_handle
       importing
            e_eor       = p_eor
       tables
            t_bphi      = g_t_bphi
            t_bptr      = g_t_bptr
            t_bptx      = g_t_bptx
            t_bpge_arch = g_t_bpge_arch
            t_bpja_arch = g_t_bpja_arch
            t_bppe_arch = g_t_bppe_arch
            t_bpig      = g_t_bpig
            t_bpij      = g_t_bpij
            t_bpcg      = g_t_bpcg
            t_bpcj      = g_t_bpcj
            t_arch_stat = g_t_arch_stat
       exceptions
            others      = 0.

ARCHIVE_GIVE_STATISTICS
  call function 'ARCHIVE_GIVE_STATISTICS'
       exporting
            archive_handle = g_ar_handle
       tables
            table          = g_t_arch_stat
       exceptions
            others         = 0.

FM_ARC_BT_UPDATE_TOTALS
  call function 'FM_ARC_BT_UPDATE_TOTALS'
       exporting
            i_test      = p_deltst
            i_function  = fmar_const_delete
       tables
            t_bphi      = g_t_bphi
            t_bptr      = g_t_bptr
            t_bptx      = g_t_bptx
            t_bpge_arch = g_t_bpge_arch
            t_bpja_arch = g_t_bpja_arch
            t_bppe_arch = g_t_bppe_arch
            t_bpig      = g_t_bpig
            t_bpij      = g_t_bpij
            t_bpcg      = g_t_bpcg
            t_bpcj      = g_t_bpcj
       exceptions
            others      = 0.

PROGRESS_INDICATOR_APPL
    call function 'PROGRESS_INDICATOR_APPL'
      exporting
        i_msgid              = 'FMAR'
        i_msgno              = '052'
        i_processed          = gf_progress_counter-processed
        i_total              = gf_progress_counter-total
        i_output_immediately = l_immidiate.

PROGRESS_INDICATOR_APPL
    call function 'PROGRESS_INDICATOR_APPL'
      exporting
        i_msgid              = 'FMAR'
        i_msgno              = '052'
        i_processed          = gf_progress_counter-processed
        i_total              = gf_progress_counter-total
        i_output_immediately = l_immidiate
      importing
        e_progress_sent      = l_progress_sent.

DB_COMMIT
      call function 'DB_COMMIT'.    "force immediate output of message

ARCHIVE_WRITE_STATISTICS
    call function 'ARCHIVE_WRITE_STATISTICS'
         exporting
              archive_handle          = g_ar_handle
         exceptions
              others                  = 0.

ARCHIVE_CLOSE_FILE
  call function 'ARCHIVE_CLOSE_FILE'
       exporting
            archive_handle = g_ar_handle.

ARCHIVE_GET_OBJECT
  call function 'ARCHIVE_GET_OBJECT'
    exporting
      object           = fmar_const_ar_objekt_budsum
    tables
      object_structure = lt_arch_struc
    exceptions
      object_not_found = 1
      others           = 2.