REPDAR_DEL_LINES is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for Delete archived print document line items This report covers the third step in archiving print document line items: deleting line items on the basis of the archive previously generated...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 REPDAR_DEL_LINES 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.
Selection Text: P_ALLG = Short Log Only
Selection Text: P_DETAIL = Detail Log
Selection Text: P_TESTL = Test Run
Title: Delete archived print document line items
Text Symbol: 001 = In number of documents
Text Symbol: 002 = Deletable DBERDL Lines
Text Symbol: 003 = Deleted DBERDL Lines
Text Symbol: 004 = Deletable DBERDLB Lines
Text Symbol: 005 = Deleted DBERDLB Lines
Text Symbol: 006 = Deletable DBERDZ Lines
Text Symbol: 007 = Deleted DBERDZ Lines
Text Symbol: 008 = Statistics
Text Symbol: 009 = Log Type
Text Symbol: 010 = Technical Options
Text Symbol: A00 = <<< Test run >>>
INCLUDE REPDAR01_TYP.
INCLUDE REPDAR01_CON.
INCLUDE REPDAR01_TOP.
No SAP DATABASE tables are accessed within this REPORT code!
ARCHIVE_PROTOCOL_INIT CALL FUNCTION 'ARCHIVE_PROTOCOL_INIT' EXPORTING i_detailprotocol = xv_detail.
ARCHIVE_GET_CUSTOMIZING_DATA CALL FUNCTION 'ARCHIVE_GET_CUSTOMIZING_DATA' EXPORTING object = co_arc_objl IMPORTING commit_count_for_delete_prg = wa_arc_data-commit_count EXCEPTIONS object_not_found = 1 OTHERS = 2.
ARCHIVE_PROTOCOL_COLLECT CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT' EXPORTING i_msgtype = '2' i_msgid = 'EARC' i_msgno = '206'.
ARCHIVE_OPEN_FOR_DELETE CALL FUNCTION 'ARCHIVE_OPEN_FOR_DELETE' EXPORTING object = co_arc_objl test_mode = xv_testl IMPORTING archive_handle = wa_arc_data-handle EXCEPTIONS file_already_open = 1 file_io_error = 2 internal_error = 3 no_files_available = 4 object_not_found = 5 open_error = 6 not_authorized = 7 OTHERS = 8.
ARCHIVE_PROTOCOL_COLLECT CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT' EXPORTING i_msgtype = '2' i_msgid = 'EARC' i_msgno = '201'.
ARCHIVE_GET_NEXT_OBJECT CALL FUNCTION 'ARCHIVE_GET_NEXT_OBJECT' EXPORTING archive_handle = wa_arc_data-handle EXCEPTIONS end_of_file = 1.
PROGRESS_INDICATOR CALL FUNCTION 'PROGRESS_INDICATOR' EXPORTING i_msgid = 'EARC' i_msgno = '418' * >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> n902012 * i_msgv1 = wa_statistic-erdk-process * i_processed = wa_statistic-erdk-process i_msgv1 = wa_statistic-erdk-read i_processed = wa_statistic-erdk-read * <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< n902012 i_output_immediately = co_true.
PROGRESS_INDICATOR CALL FUNCTION 'PROGRESS_INDICATOR' EXPORTING i_msgid = 'EARC' i_msgno = '418' * >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> n902012 * i_msgv1 = wa_statistic-erdk-process * i_processed = wa_statistic-erdk-process i_msgv1 = wa_statistic-erdk-read i_processed = wa_statistic-erdk-read * <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< n902012 i_output_immediately = co_true.
ISU_GET_PDL_DATA_FROM_ARCHIVE CALL FUNCTION 'ISU_GET_PDL_DATA_FROM_ARCHIVE' EXPORTING x_handle = wa_arc_data-handle IMPORTING y_anz_erdl = lwa_detail-erdl y_anz_erdlb = lwa_detail-erdlb y_anz_erdz = lwa_detail-erdz y_opbel = lwa_detail-opbel TABLES yi_erdl = lt_erdl yi_erdlb = lt_erdlb yi_erdz = lt_erdz EXCEPTIONS end_of_object = 1 internal_error = 2 wrong_access_to_archive = 3 other_error = 4 OTHERS = 5.
ARCHIVE_PROTOCOL_COLLECT CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT' EXPORTING i_object = lwa_detail-opbel i_msgtype = '2' i_msgid = 'EARC' i_msgno = '414' i_msgv1 = sy-subrc.
ISU_DB_DBERDZ_DELETE CALL FUNCTION 'ISU_DB_DBERDZ_DELETE' IMPORTING y_erdl_success = lv_anz_erdl y_erdlb_success = lv_anz_erdlb y_erdz_success = lv_anz_erdz TABLES xt_erdl_key = xt_erdl_key xt_erdlb_key = xt_erdlb_key xt_erdz_key = xt_erdz_key EXCEPTIONS input_error = 1 OTHERS = 2.
ISU_DB_ERDK_UPD_ARCFLAG_SINGLE CALL FUNCTION 'ISU_DB_ERDK_UPD_ARCFLAG_SINGLE' EXPORTING x_opbel =
-opbel x_items_archived = co_arcstat_3 EXCEPTIONS update_error = 1 value_not_allowed = 2 general_fault = 3 OTHERS = 4.
ARCHIVE_PROTOCOL_COLLECT CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT' EXPORTING i_object =
-opbel i_msgtype = '2' i_msgid = 'EARC' i_msgno = '419' i_msgv1 = -opbel.
ARCHIVE_GIVE_STATISTICS CALL FUNCTION 'ARCHIVE_GIVE_STATISTICS' EXPORTING archive_handle = wa_arc_data-handle TABLES table = lt_stat_tab.
ARCHIVE_PROTOCOL_COLLECT CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT' EXPORTING i_object =
-opbel i_msgtype = '1' i_msgid = 'EARC' i_msgno = '416' i_msgv1 = -opbel.
ARCHIVE_PROTOCOL_COLLECT CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT' EXPORTING * i_object =
-opbel i_msgtype = '2' i_msgid = 'EARC' i_msgno = '415'.
ARCHIVE_GIVE_STATISTICS CALL FUNCTION 'ARCHIVE_GIVE_STATISTICS' EXPORTING archive_handle = wa_arc_data-handle TABLES table = lt_stat_tab.
ARCHIVE_PROTOCOL_COLLECT CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT' EXPORTING i_object =
-opbel i_msgtype = '1' i_msgid = 'EARC' i_msgno = '417' i_msgv1 = -opbel.
CALL FUNCTION 'ARCHIVE_WRITE_STATISTICS' EXPORTING archive_handle = wa_arc_data-handle.
ARCHIVE_CLOSE_FILE CALL FUNCTION 'ARCHIVE_CLOSE_FILE' EXPORTING archive_handle = wa_arc_data-handle EXCEPTIONS OTHERS = 1.
ARCHIVE_PROTOCOL_COLLECT CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT' EXPORTING i_msgtype = '2' i_msgid = 'EARC' i_msgno = '202'.
ARCHIVE_PROTOCOL_WRITE CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE'.
Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.
The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.
This will then be available for everyone to easily find by simply searching on the report name REPDAR_DEL_LINES or its description.
REPDAR_DEL_LINES - Delete archived print document line items REPDAR_DEL_LINES - Delete archived print document line items REPDAR_DEL_HEAD_VAR - Include REPDAR_DEL_HEAD_VAR REPDAR_DEL_HEAD_TOP - Include REPDAR_DEL_HEAD_TOP REPDAR_DEL_HEAD_ILM - Delete archived print document headers REPDAR_DEL_HEAD_ILM - Delete archived print document headers