GHO_ALLOC_ARCHIVE_WRITE SAP ABAP Report - Archive Write: Actuall allocation results for prodcution networks

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

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  = p_prot
      i_protocol_output = p_prot_o.

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                       = 'GHO_ALLOC'
      comments                     = p_coment
      do_not_delete_data           = l_not_delete
      destroy                      = l_destroy
    IMPORTING
      archive_handle               = lv_handle.

ARCHIVE_NEW_OBJECT
      CALL FUNCTION 'ARCHIVE_NEW_OBJECT'
        EXPORTING
          archive_handle = lv_handle.

ARCHIVE_PUT_RECORD
      CALL FUNCTION 'ARCHIVE_PUT_RECORD'
        EXPORTING
          archive_handle   = lv_handle
          record           = ls_allocres_h
          record_structure = 'GHO_ALLOCRES_H'.

ARCHIVE_PUT_TABLE
          CALL FUNCTION 'ARCHIVE_PUT_TABLE'
            EXPORTING
              archive_handle   = lv_handle
              record_structure = 'GHO_ALLOCRES_IF'
            TABLES
              table            = lt_allocres_i.

ARCHIVE_PUT_TABLE
          CALL FUNCTION 'ARCHIVE_PUT_TABLE'
            EXPORTING
              archive_handle   = lv_handle
              record_structure = 'GHO_ALLOCRES_I'
            TABLES
              table            = lt_allocres_i.

ARCHIVE_SAVE_OBJECT
      CALL FUNCTION 'ARCHIVE_SAVE_OBJECT'
        EXPORTING
          archive_handle        = lv_handle
        EXCEPTIONS
          termination_requested = 1
          data_object_not_saved = 6
          OTHERS                = 7.

ARCHIVE_PROTOCOL_COLLECT
          CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
            EXPORTING
              i_object  = lv_object_id
              i_text    = 'Allocation was archived'(001) "#EC * "text shall be understandable for EN-speaking coleagues
              i_msgtype = 1.

ARCHIVE_PROTOCOL_COLLECT
          CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
            EXPORTING
              i_object  = ls_allocres_h-alloc_run_id
              i_msgtype = '1'
              i_text    = text-002. "Memory snapshot is written

ARCHIVE_PROTOCOL_COLLECT
          CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
            EXPORTING
              i_object  = ls_allocres_h-alloc_run_id
              i_msgtype = '1'
              i_text    = text-003.

ARCHIVE_PROTOCOL_COLLECT
        CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
          EXPORTING
            i_object  = ls_allocres_h-alloc_run_id
            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          = '&1% (&2 of &3) of the allocations processed'(004) "#EC *
        i_processed     = lv_objects_processed
        i_total         = lv_total_of_objects
      IMPORTING
        e_progress_sent = lv_progress_send.

DB_COMMIT
      CALL FUNCTION 'DB_COMMIT'.    "otherwise messag will not appear in the job-log

PROGRESS_INDICATOR
  CALL FUNCTION 'PROGRESS_INDICATOR'
    EXPORTING
      i_text               = '&1% (&2 of &3) of the allocations processed'(004) "#EC *
      i_processed          = lv_objects_processed
      i_total              = lv_total_of_objects
      i_output_immediately = 'X'.   "force the progress output

ARCHIVE_WRITE_STATISTICS
  CALL FUNCTION 'ARCHIVE_WRITE_STATISTICS'
    EXPORTING
      archive_handle = lv_handle.

ARCHIVE_PROTOCOL_WRITE
  CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE'.

ARCHIVE_CLOSE_FILE
  CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
    EXPORTING
      archive_handle = lv_handle.

ARCHIVE_PROTOCOL_COLLECT














    CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
      EXPORTING
        i_object             = lv_object_identifier
        i_msgtype            = 2
        i_msgid              = 'GHO_ALLOC'
        i_msgno              = '031'
        i_msgv1              = lv_alloc_key
        i_callback_parameter = lw_callback_param. "optional: for object and message details