SAP Reports / Programs

ARCDEL_VERIFY_PARA SAP ABAP Report - Cross Archiving Object Check Program







ARCDEL_VERIFY_PARA 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 ARCDEL_VERIFY_PARA 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 ARCDEL_VERIFY_PARA. "Basic submit
SUBMIT ARCDEL_VERIFY_PARA AND RETURN. "Return to original report after report execution complete
SUBMIT ARCDEL_VERIFY_PARA VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


Text pool values


Central Check Program Log
Selection Text: MAX_PROC = Number of Parallel Processes
Selection Text: RFCGROUP = Server Group
Selection Text: P_PREPRD = D .
Selection Text: P_PRETST = D .
Selection Text: P_PROT = D .
Selection Text: P_PROT_O = D .
Title: Cross Archiving Object Check Program
Text Symbol: 054 = Parallel Processing Parameter
Text Symbol: 072 = &1% (&2 of &3) packages of &4 processed


INCLUDES used within this REPORT ARCDEL_VERIFY_PARA

INCLUDE ARCH_PREPROC_PRG_STANDARD2. " FLOW CONTROL


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:

GUID_CREATE CALL FUNCTION 'GUID_CREATE' "#EC FB_OLDED IMPORTING EV_GUID_32 = prot_guid.

ARCHIVE_PROTOCOL_INIT CALL FUNCTION 'ARCHIVE_PROTOCOL_INIT' EXPORTING i_detailprotocol = p_prot i_protocol_output = p_prot_o i_context = lw_context IMPORTING e_protocol_handle = father_prot_guid.

ARCDEL_GET_VERIFY_FUNCTIONS CALL FUNCTION 'ARCDEL_GET_VERIFY_FUNCTIONS' TABLES TBOR_OBJTYPES = ini_arc_objtypes TVERIFY_FUNC = verify_func TPRESELECT_FUNC = preslt_func TERRORPROC_FUNC = errprc_func.

SPTA_PARA_PROCESS_START_2 CALL FUNCTION 'SPTA_PARA_PROCESS_START_2' EXPORTING SERVER_GROUP = rfcgroup MAX_NO_OF_TASKS = max_proc BEFORE_RFC_CALLBACK_FORM = 'BEFORE_VERIFY_OBJECTS' IN_RFC_CALLBACK_FORM = 'IN_VERIFY_OBJECTS' AFTER_RFC_CALLBACK_FORM = 'AFTER_VERIFY_OBJECTS' CALLBACK_PROG = program_id * SHOW_STATUS = ' ' * RESOURCE_TIMEOUT = 600 * TASK_CALL_MODE = 1 * CHANGING * USER_PARAM = EXCEPTIONS INVALID_SERVER_GROUP = 1 NO_RESOURCES_AVAILABLE = 2 OTHERS = 3 .

ARCHIVE_PROTOCOL_WRITE CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE' EXPORTING i_protocol_handle = father_prot_guid.

ARCHIVE_PROTOCOL_INIT CALL FUNCTION 'ARCHIVE_PROTOCOL_INIT' EXPORTING i_detailprotocol = p_prot i_protocol_output = p_prot_o i_context = lw_context i_father_protocol_handle = father_prot_guid IMPORTING e_protocol_handle = arcdel_stat-ao_prot_guid.

ARCHIVE_PROTOCOL_INIT CALL FUNCTION 'ARCHIVE_PROTOCOL_INIT' EXPORTING i_detailprotocol = p_prot i_protocol_output = p_prot_o i_context = lw_context i_father_protocol_handle = father_prot_guid IMPORTING e_protocol_handle = arcdel_stat-ao_prot_guid.

PROGRESS_INDICATOR CALL FUNCTION 'PROGRESS_INDICATOR' EXPORTING I_MSGID = 'BA' I_MSGNO = 384 " ao started I_MSGV1 = actual_arc_objtype-arc_objtype i_output_immediately = 'X'. "force the progress output

CRM_OLD_PRESELECT CALL FUNCTION 'CRM_OLD_PRESELECT' EXPORTING PRESELECT_FUNC_OLD = ld_preslt_func-abapfunc BOR_OBJTYPE = actual_arc_objtype-bor_objtype MAXOBJECTS = actual_arc_objtype-prsl_maxobjects NUMDAYS = actual_arc_objtype-chck_numdays PROT_GUID = wrap_prot_guid_32 START_DATE = start_date START_TIME = start_time PROCESS_MODE = wrap_process_mode TEST_MODE = testflag ICOUNT = ld_callnr IMPORTING ARC_TERMINATE = ld_arc_terminate CHANGING OBJECTS = sel_objects CHECK_FUNC = ld_verify_func INPUT_VALUES = arc_sel_values-sel_values INPUT_TEXT = arc_sel_values-sel_text.

PROGRESS_INDICATOR CALL FUNCTION 'PROGRESS_INDICATOR' EXPORTING i_text = lv_text i_processed = arcdel_stat-itot_prsl_callnr i_total = actual_arc_objtype-prsl_callnr.

PROGRESS_INDICATOR CALL FUNCTION 'PROGRESS_INDICATOR' EXPORTING I_MSGID = 'BA' I_MSGNO = 398 " I_MSGV1 = actual_arc_objtype-arc_objtype i_output_immediately = 'X'. "force the progress output

SPTA_INDX_PACKAGE_ENCODE CALL FUNCTION 'SPTA_INDX_PACKAGE_ENCODE' EXPORTING DATA = ld_package IMPORTING INDXTAB = pt_rfcdata.

SPTA_INDX_PACKAGE_DECODE CALL FUNCTION 'SPTA_INDX_PACKAGE_DECODE' EXPORTING INDXTAB = p_rfcdata IMPORTING DATA = ld_package.

ARCHIVE_PROTOCOL_INIT CALL FUNCTION 'ARCHIVE_PROTOCOL_INIT' EXPORTING i_detailprotocol = ld_package-detail_prot i_protocol_output = I_PROTOCOL_OUTPUT i_context = lw_context.

ARCDEL_VERIFY_OBJECTS CALL FUNCTION 'ARCDEL_VERIFY_OBJECTS' EXPORTING ARC_OBJTYPE = ld_package-actual_arc_objtype-arc_objtype TOP_BOR_OBJTYPE = ld_package-actual_arc_objtype-bor_objtype PROT_GUID = prot_guid "only for non adk prot START_DATE = ld_package-start_date START_TIME = ld_package-start_time PROCESS_MODE = process_mode "only for non adk prot TEST_MODE = ld_package-test_mode DETAIL_PROT = detail_prot "optional, and only for non adk prot IMPORTING INUM_ARCHIVABLE = ld_package_result-inum_archivable INUM_DELETABLE = ld_package_result-inum_deletable TABLES TVERIFY_FUNC = ld_package-verify_func TOBJECTS = ld_package-objects.

ARCHIVE_PROTOCOL_GET CALL FUNCTION 'ARCHIVE_PROTOCOL_GET' IMPORTING E_PROTOCOL_DATA = ld_package_result-protocoll_data.

SPTA_INDX_PACKAGE_ENCODE CALL FUNCTION 'SPTA_INDX_PACKAGE_ENCODE' EXPORTING DATA = ld_package_result IMPORTING INDXTAB = p_rfcdata.

SPTA_INDX_PACKAGE_DECODE CALL FUNCTION 'SPTA_INDX_PACKAGE_DECODE' EXPORTING INDXTAB = p_rfcdata IMPORTING DATA = ld_package_result.

ARCHIVE_PROTOCOL_COLLECT





CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT' EXPORTING i_protocol_data = ld_package_result-protocoll_data i_protocol_handle = ldwa_arcdel_stat-ao_prot_guid.

PROGRESS_INDICATOR CALL FUNCTION 'PROGRESS_INDICATOR' EXPORTING I_MSGID = 'BA' I_MSGNO = 360 " internal error I_MSGV1 = ld_arc_objtype i_output_immediately = 'X'. "force the progress output

PROGRESS_INDICATOR CALL FUNCTION 'PROGRESS_INDICATOR' EXPORTING I_MSGID = 'BA' I_MSGNO = 387 " no ao active i_output_immediately = 'X'. "force the progress output

ARCDEL_SIMULATION_FUNCTIONS CALL FUNCTION 'ARCDEL_SIMULATION_FUNCTIONS' IMPORTING SIMULATION = simulation_flag TABLES TARC_OBJTYPES = ini_arc_objtypes TVERIFY_FUNC = verify_func TPRESELECT_FUNC = preslt_func TDELSLT_FUNC = delslt_dummy TDELETE_FUNC = delete_dummy.

PROGRESS_INDICATOR CALL FUNCTION 'PROGRESS_INDICATOR' EXPORTING I_MSGID = 'BA' I_MSGNO = modus. " program mode

PROGRESS_INDICATOR CALL FUNCTION 'PROGRESS_INDICATOR' EXPORTING I_MSGID = 'BA' I_MSGNO = 385 " active ao I_MSGV1 = ini_arc_objtypes-arc_objtype i_output_immediately = 'X'. "force the progress output

RS_VARIANT_VALUES_TECH_DATA CALL FUNCTION 'RS_VARIANT_VALUES_TECH_DATA' EXPORTING REPORT = -sel_programm VARIANT = -sel_variant SEL_TEXT = 'X ' MOVE_OR_WRITE = 'M' * SORTED = ' ' * EXECUTE_DIRECT = * IMPORTING * TECHN_DATA = TABLES VARIANT_VALUES = arc_sel_values-sel_values VARIANT_TEXT = arc_sel_values-sel_text EXCEPTIONS VARIANT_NON_EXISTENT = 1 VARIANT_OBSOLETE = 2 OTHERS = 3.

ARCHIVE_PROTOCOL_COLLECT CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT' EXPORTING I_MSGTYPE = 3 I_MSGID = 'BA' I_MSGNO = '750' I_MSGV1 = ini_arc_objtypes-arc_objtype I_PROTOCOL_HANDLE = l_stat_info-ao_prot_guid .

ARCHIVE_PROTOCOL_COLLECT CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT' EXPORTING I_MSGTYPE = 3 I_MSGID = 'BA' I_MSGNO = '388' I_MSGV1 = ini_arc_objtypes-arc_objtype I_PROTOCOL_HANDLE = l_stat_info-ao_prot_guid .

BAL_LOG_CREATE CALL FUNCTION 'BAL_LOG_CREATE' EXPORTING I_S_LOG = ld_log IMPORTING E_LOG_HANDLE = ld_LOG_HANDLE EXCEPTIONS OTHERS = 1.

BAL_LOG_MSG_ADD CALL FUNCTION 'BAL_LOG_MSG_ADD' EXPORTING I_LOG_HANDLE = log_handle I_S_MSG = ld_msg * IMPORTING * E_S_MSG_HANDLE = * E_MSG_WAS_LOGGED = * E_MSG_WAS_DISPLAYED = EXCEPTIONS LOG_NOT_FOUND = 1 MSG_INCONSISTENT = 2 LOG_IS_FULL = 3 OTHERS = 4.

BAL_DB_SAVE CALL FUNCTION 'BAL_DB_SAVE' EXPORTING I_CLIENT = SY-MANDT * I_IN_UPDATE_TASK = ' ' * I_SAVE_ALL = ' ' I_T_LOG_HANDLE = ld_handle_tab * IMPORTING * E_NEW_LOGNUMBERS = EXCEPTIONS LOG_NOT_FOUND = 1 SAVE_NOT_ALLOWED = 2 NUMBERING_ERROR = 3 OTHERS = 4.

PROGRESS_INDICATOR CALL FUNCTION 'PROGRESS_INDICATOR' EXPORTING I_MSGID = 'BA' I_MSGNO = 386 " ao deactivated I_MSGV1 = ld_arcdel_obj-arc_objtype i_output_immediately = 'X'. "force the progress output

ARCDEL_DETERMINE_VERSION CALL FUNCTION 'ARCDEL_DETERMINE_VERSION' EXPORTING ARCDEL_AREA = kind FMODULE_NAME = -abapfunc IMPORTING VERSION_OLD = version_old.

PROGRESS_INDICATOR CALL FUNCTION 'PROGRESS_INDICATOR' EXPORTING I_MSGID = 'BA' I_MSGNO = 397 " check finished I_MSGV1 = arc_object i_output_immediately = 'X'. "force the progress output

ARCHIVE_PROTOCOL_WRITE CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE' EXPORTING i_protocol_handle = -ao_prot_guid.

PROGRESS_INDICATOR CALL FUNCTION 'PROGRESS_INDICATOR' EXPORTING I_MSGID = 'BA' I_MSGNO = 382 " ao total selected I_MSGV1 = -arc_objtype I_MSGV2 = -itot_selected i_output_immediately = 'X'. "force the progress output

PROGRESS_INDICATOR CALL FUNCTION 'PROGRESS_INDICATOR' EXPORTING I_MSGID = 'BA' I_MSGNO = 361 " ao total archivable I_MSGV1 = -arc_objtype I_MSGV2 = -itot_arcnum i_output_immediately = 'X'. "force the progress output

PROGRESS_INDICATOR CALL FUNCTION 'PROGRESS_INDICATOR' EXPORTING I_MSGID = 'BA' I_MSGNO = 362 " ao total deletable I_MSGV1 = -arc_objtype I_MSGV2 = -itot_delnum i_output_immediately = 'X'. "force the progress output



Contribute (Add Comments)

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 ARCDEL_VERIFY_PARA or its description.