GHO_ALLOC_ARCHIVE_DELETE 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_DELETE into the relevant SAP transactions such as SE38 or SE80
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.
Title: Archive Delete: Actual allocation results for a production network
Text Symbol: 000 = &1% (&2 of &3) of the allocations processed
INCLUDE ARCH_DELETE_PRG_STANDARD1. "<<< FLOW CONTROL
No SAP DATABASE tables are accessed within this REPORT code!
ARCHIVE_OPEN_FOR_DELETE CALL FUNCTION 'ARCHIVE_OPEN_FOR_DELETE' EXPORTING object = 'GHO_ALLOC' test_mode = p_deltst IMPORTING archive_handle = gv_handle.
ARCHIVE_GET_INFORMATION CALL FUNCTION 'ARCHIVE_GET_INFORMATION' EXPORTING archive_handle = gv_handle IMPORTING object_number_in_file = gv_objects_to_delete.
ARCHIVE_GET_INFORMATION * CALL FUNCTION 'ARCHIVE_GET_INFORMATION' * EXPORTING * archive_handle = lv_handle * IMPORTING * archive_document = lv_document * archive_name = lv_archive_key.
ARCHIVE_GET_CUSTOMIZING_DATA CALL FUNCTION 'ARCHIVE_GET_CUSTOMIZING_DATA' EXPORTING object = 'GHO_ALLOC' IMPORTING commit_count_for_delete_prg = gv_commit_cnt.
ARCHIVE_GET_NEXT_OBJECT CALL FUNCTION 'ARCHIVE_GET_NEXT_OBJECT' EXPORTING archive_handle = gv_handle EXCEPTIONS end_of_file = 1.
ARCHIVE_READ_OBJECT_BY_HANDLE CALL FUNCTION 'ARCHIVE_READ_OBJECT_BY_HANDLE' EXPORTING iv_handle = gv_handle * IV_READ_CLASS_DATA = 'CONTEXT' CHANGING ct_obj_data = gt_data_object.
ARCHIVE_DELETE_TABLE CALL FUNCTION 'ARCHIVE_DELETE_TABLE' EXPORTING iv_tabname = gw_object_data-tabname it_records =
iv_deltst = p_deltst * IV_ON_COMMIT = 'X' iv_handle = gv_handle.
ARCHIVE_DELETE_OBJECT_DATA CALL FUNCTION 'ARCHIVE_DELETE_OBJECT_DATA' EXPORTING archive_handle = gv_handle.
ARCHIVE_GIVE_STATISTICS CALL FUNCTION 'ARCHIVE_GIVE_STATISTICS' EXPORTING archive_handle = gv_handle TABLES table = gt_statistic.
PROGRESS_INDICATOR CALL FUNCTION 'PROGRESS_INDICATOR' EXPORTING i_text = '&1% (&2 of &3) of the allocations processed'(000) "#EC * i_processed = gv_objects_deleted i_total = gv_objects_to_delete.
PROGRESS_INDICATOR CALL FUNCTION 'PROGRESS_INDICATOR' EXPORTING i_text = '&1% (&2 of &3) of the allocations processed'(000) "#EC * 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 = gv_handle statistics_only_per_file = 'X'.
ARCHIVE_CLOSE_FILE CALL FUNCTION 'ARCHIVE_CLOSE_FILE' EXPORTING archive_handle = gv_handle.
Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.
GHO_ALLOC_ARCHIVE_DELETE - Archive Delete: Actual allocation results for a production network GHO_ALLOC_ARCHIVE_DELETE - Archive Delete: Actual allocation results for a production network GHE_VARIANTS_WO_NODES - Variants without Enabled Nodes GHE_VARIANTS_WO_NODES - Variants without Enabled Nodes GHE_REFSTRUCT_TRANSPORT - Write in Transport Request GHE_REFSTRUCT_TRANSPORT - Write in Transport Request