RUSH04AC SAP ABAP Report - Archive Change Documents for User Master Records: Write Program

RUSH04AC 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 RUSH04AC 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 RUSH04AC. "Basic submit
SUBMIT RUSH04AC AND RETURN. "Return to original report after report execution complete
SUBMIT RUSH04AC 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 RUSH04AC

INCLUDE ARCH_WRITE_PRG_STANDARD2. "#EC INCL_OK

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:

PROGRESS_INDICATOR
  CALL FUNCTION 'PROGRESS_INDICATOR'
    EXPORTING
      i_text               = text_101
      i_output_immediately = gc_true.

ARCHIVE_PROTOCOL_INIT
  CALL FUNCTION 'ARCHIVE_PROTOCOL_INIT'
    EXPORTING
      i_detailprotocol = p_prot.

ARCHIVE_PROTOCOL_WRITE
  CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE'.

ARCHIVE_WRITE_STATISTICS
  CALL FUNCTION 'ARCHIVE_WRITE_STATISTICS'
    EXPORTING
      archive_handle          = handle
      statistics_only_per_run = gc_true.

ARCHIVE_CLOSE_FILE
  CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
    EXPORTING
      archive_handle          = handle
    EXCEPTIONS
      internal_error          = 01
      wrong_access_to_archive = 02.

ARCHIVE_OPEN_FOR_WRITE
  CALL FUNCTION 'ARCHIVE_OPEN_FOR_WRITE'
    EXPORTING
      call_delete_job_in_test_mode = p_deltst
      create_archive_file          = p_wriprd
      object                       = gc_object
      comments                     = p_coment
      do_not_delete_data           = lv_not_delete
      destroy                      = lv_destroy
    IMPORTING
      archive_handle               = handle
    EXCEPTIONS
      internal_error               = 1
      object_not_found             = 2
      open_error                   = 3
      not_authorized               = 4.

ARCHIVE_PROTOCOL_COLLECT
    CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
      EXPORTING
        i_msgtype = 2
        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_PROTOCOL_WRITE
    CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE'.

PROGRESS_INDICATOR
  CALL FUNCTION 'PROGRESS_INDICATOR'
    EXPORTING
      i_text               = text_100
      i_processed          = gv_obj_cnt
      i_total              = gv_obj_sum
      i_output_immediately = gc_true.

ARCHIVE_NEW_OBJECT
  CALL FUNCTION 'ARCHIVE_NEW_OBJECT'
    EXPORTING
      archive_handle          = handle
    EXCEPTIONS
      internal_error          = 01
      wrong_access_to_archive = 02.

ARCHIVE_PUT_RECORD
  CALL FUNCTION 'ARCHIVE_PUT_RECORD'
    EXPORTING
      archive_handle           = handle
      record                   = ps_record
      record_flags             = ' '
      record_structure         = gc_struct
    EXCEPTIONS
      internal_error           = 01
      wrong_access_to_archive  = 02
      invalid_record_structure = 03.

ARCHIVE_SAVE_OBJECT
  CALL FUNCTION 'ARCHIVE_SAVE_OBJECT'
    EXPORTING
      archive_handle          = handle
    EXCEPTIONS
      file_io_error           = 01
      internal_error          = 02
      open_error              = 03
      termination_requested   = 04
      wrong_access_to_archive = 05
      data_object_not_saved   = 06.

ARCHIVE_PROTOCOL_COLLECT
        CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
          EXPORTING
            i_object  = ls_record_key
            i_msgtype = '1'
            i_text    = lf_text.

ARCHIVE_PROTOCOL_COLLECT
        CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
          EXPORTING
            i_object  = ls_record_key
            i_msgtype = '1'
            i_text    = lf_text.

ARCHIVE_PROTOCOL_COLLECT
        CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
          EXPORTING
            i_object  = ls_record_key
            i_msgtype = '1'
            i_text    = lf_text.

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

PROGRESS_INDICATOR
  CALL FUNCTION 'PROGRESS_INDICATOR'
    EXPORTING
      i_text               = text_100
      i_processed          = pv_obj_cnt
      i_total              = gv_obj_sum
      i_output_immediately = space
    IMPORTING
      e_progress_sent      = lv_sent.

DB_COMMIT
    CALL FUNCTION 'DB_COMMIT'.    "force immediate output of message

AUTHORITY_CHECK_TCODE














    CALL FUNCTION 'AUTHORITY_CHECK_TCODE'
      EXPORTING
        tcode  = gc_tcode
      EXCEPTIONS
        ok     = 0
        not_ok = 1
        OTHERS = 2.