BC_HROBJ_DEL SAP ABAP Report - Archiving HR Object: Delete Program

BC_HROBJ_DEL is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for This report enables you to delete data that you have archived using the archiving object BC_HROBJ...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 BC_HROBJ_DEL 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 BC_HROBJ_DEL

INCLUDE ARCH_DELETE_PRG_STANDARD2.

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_GET_NEXT_OBJECT
    CALL FUNCTION 'ARCHIVE_GET_NEXT_OBJECT'
      EXPORTING
        archive_handle = l_handle
      EXCEPTIONS
        end_of_file    = 1.

HR_DEQUEUE_OBJECT_ALL
    CALL FUNCTION 'HR_DEQUEUE_OBJECT_ALL'.

ARCHIVE_GET_NEXT_RECORD
    CALL FUNCTION 'ARCHIVE_GET_NEXT_RECORD'
      EXPORTING
        archive_handle   = v_handle
      IMPORTING
        record_structure = l_tabname
        record_ref       = l_record_ref
        record_flags     = l_flags
      EXCEPTIONS
        end_of_object    = 1.

ARCHIVE_GIVE_STATISTICS
  CALL FUNCTION 'ARCHIVE_GIVE_STATISTICS'
    EXPORTING
      archive_handle = v_handle
    TABLES
      table          = lt_stat[].

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

ARCHIVE_CLOSE_FILE
  CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
    EXPORTING
      archive_handle = v_handle.

ARCHIVE_PROTOCOL_WRITE
  CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE'.

ARCHIVE_OPEN_FOR_DELETE
  CALL FUNCTION 'ARCHIVE_OPEN_FOR_DELETE'
    EXPORTING
      object         = 'BC_HROBJ'
      test_mode      = v_testmode
    IMPORTING
      archive_handle = r_handle
    TABLES
      selected_files = lt_files.

ARCHIVE_PROTOCOL_INIT
  CALL FUNCTION 'ARCHIVE_PROTOCOL_INIT'
    EXPORTING
      i_detailprotocol = v_prot.

DDIF_TABL_GET
  CALL FUNCTION 'DDIF_TABL_GET'
    EXPORTING
      name      = v_tabname
    TABLES
      dd03p_tab = lt_dd03p.

PROGRESS_INDICATOR
  CALL FUNCTION 'PROGRESS_INDICATOR'
    EXPORTING
      i_msgid              = 'HRBAS00_SERVICE'
      i_msgno              = '111'
      i_processed          = v_processed
      i_total              = v_total
      i_output_immediately = v_immediately.

ARCHIVE_PROTOCOL_COLLECT
  CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
    EXPORTING
      i_object  = l_objtxt
      i_msgtype = 1
      i_msgid   = 'HRBAS00_SERVICE'
      i_msgno   = '110'.

HR_ENQUEUE_OBJECT
    CALL FUNCTION 'HR_ENQUEUE_OBJECT'
      EXPORTING
        plvar          = u_plogi-plvar
        otype          = u_plogi-otype
        objid          = u_plogi-objid
        enq_scope      = '1'   "there is no update task
        enq_wait       = 'X'
      IMPORTING
        lock_user      = l_user
      EXCEPTIONS
        enqueue_failed = 1.

PROGRESS_INDICATOR
    CALL FUNCTION 'PROGRESS_INDICATOR'
      EXPORTING
        i_text          = 'Waiting for lock (object &1 &2, user &3)' "#EC NOTEXT
        i_msgv1         = u_plogi-otype
        i_msgv2         = u_plogi-objid
        i_msgv3         = l_user
      IMPORTING
        e_progress_sent = l_sent.

DB_COMMIT
      CALL FUNCTION 'DB_COMMIT'.