RPAR6D00 SAP ABAP Report - Archiving: Delete Program Detailed Data on Posting of Payroll Results

RPAR6D00 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 RPAR6D00 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.

SUBMIT RPAR6D00. "Basic submit
SUBMIT RPAR6D00 AND RETURN. "Return to original report after report execution complete
SUBMIT RPAR6D00 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement

Text pool values

INCLUDES used within this REPORT RPAR6D00

No INCLUDES are used within this REPORT code!

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
  CALL FUNCTION 'ARCHIVE_PROTOCOL_INIT'
    EXPORTING
      i_detailprotocol = protocol.

ARCHIVE_PROTOCOL_WRITE
  CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE'.

PA_PIDX_TESTMODE
  CALL FUNCTION 'PA_PIDX_TESTMODE'
    EXPORTING
      testmode_on_off = protocol.

ARCHIVE_OPEN_FOR_DELETE
  CALL FUNCTION 'ARCHIVE_OPEN_FOR_DELETE'
    EXPORTING
      object                       = this_object
      test_mode                    = testrun
    IMPORTING
      archive_handle               = my_archive_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
      archiving_standard_violation = 8.

ARCHIVE_PROTOCOL_COLLECT
    CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
      EXPORTING
        i_msgtype = 1
        i_msgid   = sy-msgid
        i_msgno   = sy-msgno.

ARCHIVE_GET_INFORMATION
    CALL FUNCTION 'ARCHIVE_GET_INFORMATION'
      EXPORTING
        archive_handle        = my_archive_handle
      IMPORTING
        archive_document      = my_document
        archive_name          = my_archive_name
        object_number_in_file = gv_objects_to_delete.

ARCHIVE_GET_CUSTOMIZING_DATA
    CALL FUNCTION 'ARCHIVE_GET_CUSTOMIZING_DATA'
      EXPORTING
        object                      = this_object
      IMPORTING
        commit_count_for_delete_prg = my_commit_count.

ARCHIVE_GET_NEXT_OBJECT
    CALL FUNCTION 'ARCHIVE_GET_NEXT_OBJECT'
      EXPORTING
        archive_handle          = my_archive_handle
      IMPORTING
        object_id               = l_object_id
        archive_name            = l_archive_name
        object_offset           = l_offset            "CB_2000/04/10
        session                 = lv_session
      EXCEPTIONS
        end_of_file             = 1
        file_io_error           = 2
        internal_error          = 3
        open_error              = 4
        wrong_access_to_archive = 5.

ARCHIVE_PROTOCOL_COLLECT
        CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
          EXPORTING
            i_msgtype = 1
            i_msgid   = sy-msgid
            i_msgno   = sy-msgno.

HR_EVAL_STATUS_SET
        CALL FUNCTION 'HR_EVAL_STATUS_SET'
          EXPORTING
*            type   = 'PP'
            type   = pay_type
            runid  = runstate_tab-runid
            status = archiving_started
          EXCEPTIONS
            OTHERS = 0.

PA_PIDX_SET_RUNTYPE
      CALL FUNCTION 'PA_PIDX_SET_RUNTYPE'                 "XAIAC0K056078
        EXPORTING
          run_type       = pay_type.

ARCHIVE_DELETE_OBJECT_DATA
    CALL FUNCTION 'ARCHIVE_DELETE_OBJECT_DATA'
      EXPORTING
        archive_handle          = my_archive_handle
      EXCEPTIONS
        internal_error          = 1
        wrong_access_to_archive = 2
        OTHERS                  = 3.

ARCHIVE_PROTOCOL_COLLECT
      CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
        EXPORTING
          i_msgtype = 1
          i_msgid   = sy-msgid
          i_msgno   = sy-msgno
          i_msgv1   = sy-msgv1
          i_msgv2   = sy-msgv2
          i_msgv3   = sy-msgv3
          i_msgv4   = sy-msgv4.

ARCHIVE_ROLLBACK_WORK
          CALL FUNCTION 'ARCHIVE_ROLLBACK_WORK'.

ARCHIVE_PROTOCOL_COLLECT
      CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
        EXPORTING
          i_object  = lv_object
          i_text    = text-005
          i_msgtype = 1.

PROGRESS_INDICATOR
    CALL FUNCTION 'PROGRESS_INDICATOR'
      EXPORTING
        i_text      = text-007 "#EC * "text shall be understandable for EN-speaking coleagues
        i_processed = gv_objects_deleted
        i_total     = gv_objects_to_delete.

ARCHIVE_ROLLBACK_WORK
    CALL FUNCTION 'ARCHIVE_ROLLBACK_WORK'.

ARCHIVE_GIVE_STATISTICS
  CALL FUNCTION 'ARCHIVE_GIVE_STATISTICS'
    EXPORTING
      archive_handle = my_archive_handle
    TABLES
      table          = gt_statistic.

PROGRESS_INDICATOR














  CALL FUNCTION 'PROGRESS_INDICATOR'
    EXPORTING
      i_text               = text-007 "#EC * "text shall be understandable for EN-speaking coleagues
      i_processed          = gv_objects_deleted
      i_total              = gv_objects_to_delete
      i_output_immediately = 'X'.     "the '100% done'-message shall be called no matter when the last progress has been send

ARCHIVE_WRITE_STATISTICS
  CALL FUNCTION 'ARCHIVE_WRITE_STATISTICS'
    EXPORTING
      archive_handle           = my_archive_handle
      statistics_only_per_file = 'X'.

HR_EVAL_ATTR_GET
      CALL FUNCTION 'HR_EVAL_ATTR_GET'
        EXPORTING
*          type           = 'PP'
          type           = pay_type
          runid          = runstate_tab-runid
          attr           = 'ARCDOCNR'
        IMPORTING
          value          = lv_attr_value
        EXCEPTIONS
          run_not_found  = 1
          attr_not_found = 2
          OTHERS         = 3.

ARCHIVE_PROTOCOL_COLLECT
        CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
          EXPORTING
            i_msgtype = 1
            i_msgid   = sy-msgid
            i_msgno   = sy-msgno
            i_msgv1   = sy-msgv1
            i_msgv2   = sy-msgv2
            i_msgv3   = sy-msgv3
            i_msgv4   = sy-msgv4.

HR_EVAL_ATTR_SET
      CALL FUNCTION 'HR_EVAL_ATTR_SET'
        EXPORTING
*          " since PPOIX and PPOPX can only " contain 'PP' data
*          type   = 'PP'
          type   = pay_type
          runid  = runstate_tab-runid
          attr   = 'ARCIDXNR'
          value  = l_arc_name "format######-xxxxxx."000/04/10

HR_EVAL_ATTR_SET
        CALL FUNCTION 'HR_EVAL_ATTR_SET'                  "CB_2000/04/10
           EXPORTING                                      "CB_2000/04/10
*             type           = 'PP'                     "CB_2000/04/10
             type           = pay_type
             runid          = runstate_tab-runid       "CB_2000/04/10
             attr           = 'ARCIDXOFF'              "CB_2000/04/10
             value          = l_attr_value
           EXCEPTIONS
             OTHERS         = 0.                          "CB_2000/04/10

HR_EVAL_STATUS_SET
      CALL FUNCTION 'HR_EVAL_STATUS_SET'
        EXPORTING
*        " since PPOIX and PPOPX can only " contain 'PP' data
*          type   = 'PP'
          type   = pay_type
          runid  = runstate_tab-runid
          status = eval_status  " runid 'archived'!
          lock   = ' '
        EXCEPTIONS
          OTHERS = 0.

ARCHIVE_CLOSE_FILE
  CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
    EXPORTING
      archive_handle = my_archive_handle.