BC_HROBJ_WRI SAP ABAP Report - Archiving HR Object: Write Program

BC_HROBJ_WRI is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for Write program for archiving object B_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_WRI 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 BC_HROBJ_WRI. "Basic submit
SUBMIT BC_HROBJ_WRI AND RETURN. "Return to original report after report execution complete
SUBMIT BC_HROBJ_WRI 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 BC_HROBJ_WRI

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_LINE_DETAIL
  CALL FUNCTION 'ARCHIVE_PROTOCOL_LINE_DETAIL'.

ARCHIVE_PROTOCOL_INIT
  CALL FUNCTION 'ARCHIVE_PROTOCOL_INIT'
    EXPORTING
      i_detailprotocol = v_prot.

ARCHIVE_WRITE_STATISTICS
  CALL FUNCTION 'ARCHIVE_WRITE_STATISTICS'
    EXPORTING
      archive_handle = l_handle.

ARCHIVE_CLOSE_FILE
  CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
    EXPORTING
      archive_handle = l_handle.

ARCHIVE_PROTOCOL_WRITE
  CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE'.

ARCHIVE_OPEN_FOR_WRITE
  CALL FUNCTION 'ARCHIVE_OPEN_FOR_WRITE'
    EXPORTING
      call_delete_job_in_test_mode  = v_deltst
      comments                      = u_comment
      create_archive_file           = l_create_files
      object                        = 'BC_HROBJ'
      output_sel_screen_when_dialog = ''
    IMPORTING
      archive_handle                = r_handle.

RH_STRUC_GET
  CALL FUNCTION 'RH_STRUC_GET'
    EXPORTING
      act_otype       = v_otype
      act_objid       = l_realo
      act_wegid       = v_wegid
      act_plvar       = v_plvar
      act_begda       = '00010101'
      act_endda       = '99991231'
      act_tflag       = space
      act_vflag       = space
      authority_check = space
    TABLES
      result_struc    = lt_struc
    EXCEPTIONS
      no_entry_found  = 1.

ARCHIVE_NEW_OBJECT
  CALL FUNCTION 'ARCHIVE_NEW_OBJECT'
    EXPORTING
      archive_handle = v_handle.

ARCHIVE_PUT_RECORD
  CALL FUNCTION 'ARCHIVE_PUT_RECORD'
    EXPORTING
      archive_handle   = v_handle
      record_structure = 'PLOGI'
      record           = u_objdata-plogi
      record_flags     = c_ownflags.

ARCHIVE_PUT_RECORD
      CALL FUNCTION 'ARCHIVE_PUT_RECORD'
        EXPORTING
          archive_handle   = v_handle
          record_structure = -dbtab
          record           = 
          record_flags     = c_ownflags.

ARCHIVE_PUT_TABLE
      CALL FUNCTION 'ARCHIVE_PUT_TABLE'
        EXPORTING
          archive_handle   = v_handle
          record_structure = -tbtab
          record_flags     = c_ownflags
        TABLES
          table            = .

ARCHIVE_SAVE_OBJECT
  CALL FUNCTION 'ARCHIVE_SAVE_OBJECT'
    EXPORTING
      archive_handle        = v_handle
    EXCEPTIONS
      termination_requested = 1.

ARCHIVE_PROTOCOL_COLLECT
  CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
    EXPORTING
      i_object  = l_objtext
      i_msgtype = v_msgtype
      i_msgid   = 'HRBAS00_SERVICE'
      i_msgno   = v_msgno.

ARCHIVE_PUT_RECORD
    CALL FUNCTION 'ARCHIVE_PUT_RECORD'
      EXPORTING
        archive_handle   = v_handle
        record           = -hrp1001
        record_structure = 'HRP1001'
        record_flags     = c_ownflags.

ARCHIVE_PUT_RECORD
      CALL FUNCTION 'ARCHIVE_PUT_RECORD'
        EXPORTING
          archive_handle   = v_handle
          record           = 
          record_structure = -addtabname
          record_flags     = c_ownflags.

ARCHIVE_PROTOCOL_COLLECT
  CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
    EXPORTING
      i_object  = l_objtext
      i_text    = u_text
      i_msgtype = v_msgtype
      i_msgid   = u_msg-msgid
      i_msgno   = u_msg-msgno
      i_msgv1   = u_msg-msgv1
      i_msgv2   = u_msg-msgv2
      i_msgv3   = u_msg-msgv3
      i_msgv4   = u_msg-msgv4.

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
    IMPORTING
      e_progress_sent      = l_sent.

DB_COMMIT
    CALL FUNCTION 'DB_COMMIT'.

RH_OBJID_REQUEST














  CALL FUNCTION 'RH_OBJID_REQUEST'
    EXPORTING
      dynpro_repid      = sy-repid
      dynpro_dynnr      = sy-dynnr
      dynpro_plvarfield = 'PLVAR'
      dynpro_otypefield = 'OTYPE'
      dynpro_searkfield = 'REALO-LOW'
      set_mode          = 'X'
    TABLES
      marked_objects    = lt_marked[]
      sel_objects       = lt_objec[]
    EXCEPTIONS
      cancelled         = 1.

DYNP_VALUES_READ
  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname             = l_repid
      dynumb             = l_dynnr
      translate_to_upper = 'X'
    TABLES
      dynpfields         = lt_dynpread.