RFVIAR70 SAP ABAP Report - Real Estate Property Archiving: Write Program
RFVIAR70 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 RFVIAR70 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 RFVIAR70. "Basic submit
SUBMIT RFVIAR70 AND RETURN. "Return to original report after report execution complete
SUBMIT RFVIAR70 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Selection Text: CREATE = Generate archive file
Selection Text: SO_BUKRS = Company code
Selection Text: SO_SGRNR = Property
Selection Text: SO_SWENR = Business entity
Selection Text: TESTRUN = Deletion Program as Test Run
Title: Real Estate Property Archiving: Write Program
Text Symbol: 001 = RE objects
Text Symbol: 002 = Parameters for archiving
Text Symbol: 003 = Archiving properties: Write program
Text Symbol: 004 = Test objects
Text Symbol: 005 = No properties fulfilled the requirements
Text Symbol: 006 = No. of properties archived: &
Text Symbol: 019 = Delete-program as test run: No
Text Symbol: 020 = Delete-program as test run: Yes
Text Symbol: 021 = Started on &1 at &2 by &3
Text Symbol: 022 = Create archive data: No
Text Symbol: 023 = Create archive data: Yes
INCLUDES used within this REPORT RFVIAR70
INCLUDE RFVIAR70TOP.
INCLUDE RFVIAR00.
INCLUDE RFVIAR01.
INCLUDE RFVICNSV.
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:
FVARC_MESSAGE_APPEND CALL FUNCTION 'FVARC_MESSAGE_APPEND' EXPORTING i_severity = ' ' i_level = '1' i_message_text = sy-msgv1 TABLES t_messages = appl_error.
FVARC_MESSAGE_APPEND CALL FUNCTION 'FVARC_MESSAGE_APPEND' EXPORTING i_severity = ' ' i_level = '1' i_message_text = text-019 TABLES t_messages = appl_error.
FVARC_MESSAGE_APPEND CALL FUNCTION 'FVARC_MESSAGE_APPEND' EXPORTING i_severity = ' ' i_level = '1' i_message_text = text-020 TABLES t_messages = appl_error.
FVARC_MESSAGE_APPEND CALL FUNCTION 'FVARC_MESSAGE_APPEND' EXPORTING i_severity = ' ' i_level = '1' i_message_text = text-022 TABLES t_messages = appl_error.
FVARC_MESSAGE_APPEND CALL FUNCTION 'FVARC_MESSAGE_APPEND' EXPORTING i_severity = ' ' i_level = '1' i_message_text = text-023 TABLES t_messages = appl_error.
FVARC_MESSAGE_APPEND CALL FUNCTION 'FVARC_MESSAGE_APPEND' EXPORTING i_severity = ' ' i_level = '1' i_message_text = text-004 TABLES t_messages = appl_error.
OBJECT_IDENTIFICATION_GET CALL FUNCTION 'OBJECT_IDENTIFICATION_GET' EXPORTING objnr = viob02-j_objnr IMPORTING identification = sy-msgv1.
FVARC_MESSAGE_APPEND CALL FUNCTION 'FVARC_MESSAGE_APPEND' EXPORTING i_severity = ' ' i_level = '2' i_message_text = key_for_output TABLES t_messages = appl_error.
FVARC_OBJECT_STATUS_LOKZ_CHECK CALL FUNCTION 'FVARC_OBJECT_STATUS_LOKZ_CHECK' EXPORTING i_objnr = viob02-j_objnr i_key_for_output = key_for_output i_flag_status_active = 'X' IMPORTING e_subrc = e_subrc TABLES t_messages = appl_error.
FVARC_RESIDENCE_TIME_CHECK CALL FUNCTION 'FVARC_RESIDENCE_TIME_CHECK' EXPORTING i_arobj = con_arobj_gr i_1_or_2 = '2' i_object_date = viob02-dbear * i_key_for_output = key_for_output IMPORTING e_subrc = e_subrc TABLES t_messages = appl_error.
FVARC_UPDATE_MANAGEMENT_CNTRCT CALL FUNCTION 'FVARC_UPDATE_MANAGEMENT_CNTRCT' EXPORTING i_objnr = viob02-j_objnr * i_key_for_output = key_for_output TABLES t_messages = appl_error t_vivw05 = i_vivw05 EXCEPTIONS object_not_in_contract = 2 OTHERS = 4.
FVARC_MESSAGE_APPEND CALL FUNCTION 'FVARC_MESSAGE_APPEND' EXPORTING i_severity = 'I' i_level = '1' i_message_text = text-005 TABLES t_messages = appl_error.
K_TOTAL_INIT CALL FUNCTION 'K_TOTAL_INIT'.
ARCHIVE_OPEN_FOR_WRITE CALL FUNCTION 'ARCHIVE_OPEN_FOR_WRITE' EXPORTING call_delete_job_in_test_mode = testrun create_archive_file = create object = 'RE_PROPRTY' IMPORTING archive_handle = archive_handle.
ARCHIVE_NEW_OBJECT CALL FUNCTION 'ARCHIVE_NEW_OBJECT' EXPORTING archive_handle = archive_handle object_id = object_id.
ARCHIVE_PUT_RECORD CALL FUNCTION 'ARCHIVE_PUT_RECORD' EXPORTING archive_handle = archive_handle record_structure = 'VIOB02' record_flags = ' ' record = viob02_tab.
ARCHIVE_PUT_RECORD CALL FUNCTION 'ARCHIVE_PUT_RECORD' EXPORTING archive_handle = archive_handle record_flags = ' ' record_structure = 'VIOB24' record = viob24_tab.
ARCHIVE_PUT_RECORD CALL FUNCTION 'ARCHIVE_PUT_RECORD' EXPORTING archive_handle = archive_handle record_flags = ' ' record_structure = 'VIOB27' record = viob27_tab.
CALL FUNCTION 'ARCHIVE_PUT_RECORD' EXPORTING archive_handle = archive_handle record_flags = ' ' record_structure = 'VIOB06' record = viob06_tab.
ARCHIVE_PUT_RECORD CALL FUNCTION 'ARCHIVE_PUT_RECORD' EXPORTING archive_handle = archive_handle record_flags = ' ' record_structure = 'VZGPO' record = vzgpo_tab.
ARCHIVE_PUT_RECORD CALL FUNCTION 'ARCHIVE_PUT_RECORD' EXPORTING archive_handle = archive_handle record_flags = ' ' record_structure = 'VIEIGE' record = vieige_tab.
ARCHIVE_PUT_RECORD CALL FUNCTION 'ARCHIVE_PUT_RECORD' EXPORTING archive_handle = archive_handle record_flags = ' ' record_structure = 'VZSORT' record = vzsort_tab.
ARCHIVE_PUT_RECORD CALL FUNCTION 'ARCHIVE_PUT_RECORD' EXPORTING archive_handle = archive_handle record_flags = ' ' record_structure = 'VIZNRN' record = viznrn_tab.
ARCHIVE_PUT_RECORD CALL FUNCTION 'ARCHIVE_PUT_RECORD' EXPORTING archive_handle = archive_handle record_flags = ' ' record_structure = 'VIOB40' record = viob40_tab.
ARCHIVE_PUT_RECORD CALL FUNCTION 'ARCHIVE_PUT_RECORD' EXPORTING archive_handle = archive_handle record_flags = ' ' record_structure = 'VIOB40' record = viob40_tab.
ARCHIVE_PUT_RECORD CALL FUNCTION 'ARCHIVE_PUT_RECORD' EXPORTING archive_handle = archive_handle record_flags = ' ' record_structure = 'VIOB37' record = viob37_tab.
ARCHIVE_PUT_RECORD CALL FUNCTION 'ARCHIVE_PUT_RECORD' EXPORTING archive_handle = archive_handle record_flags = ' ' record_structure = 'VIOB38' record = viob38_tab.
ARCHIVE_PUT_RECORD CALL FUNCTION 'ARCHIVE_PUT_RECORD' EXPORTING archive_handle = archive_handle record_flags = ' ' record_structure = 'VIOB39' record = viob39_tab.
ARCHIVE_PUT_RECORD CALL FUNCTION 'ARCHIVE_PUT_RECORD' EXPORTING archive_handle = archive_handle record_flags = ' ' record_structure = 'VIOBOV' record = viobov_tab.
ARCHIVE_PUT_RECORD CALL FUNCTION 'ARCHIVE_PUT_RECORD' EXPORTING archive_handle = archive_handle record_flags = ' ' record_structure = 'SANO1' record = sano1_tab.
ARCHIVE_PUT_RECORD CALL FUNCTION 'ARCHIVE_PUT_RECORD' EXPORTING archive_handle = archive_handle record_flags = ' ' record_structure = 'SANS1' record = sans1_tab.
ARCHIVE_PUT_RECORD CALL FUNCTION 'ARCHIVE_PUT_RECORD' EXPORTING archive_handle = archive_handle record_flags = ' ' record_structure = 'VIGBUCH' record = vigbuch_tab.
ARCHIVE_PUT_RECORD CALL FUNCTION 'ARCHIVE_PUT_RECORD' "46A EXPORTING "46A archive_handle = archive_handle "46A record_flags = ' ' "46A record_structure = 'VILIC' "46A record = vilic_tab. "46A
ARCHIVE_PUT_RECORD CALL FUNCTION 'ARCHIVE_PUT_RECORD' "46A EXPORTING "46A archive_handle = archive_handle "46A record_flags = ' ' "46A record_structure = 'VILID' "46A record = vilid_tab. "46A
ARCHIVE_PUT_RECORD CALL FUNCTION 'ARCHIVE_PUT_RECORD' EXPORTING archive_handle = archive_handle record_flags = ' ' record_structure = 'VIOB42' record = viob42_tab.
TEXT_ARCHIVE_OBJECT CALL FUNCTION 'TEXT_ARCHIVE_OBJECT' EXPORTING archive_handle = archive_handle client = sy-mandt id = 'NOTZ' language = '*' " alle Sprachen! name = text_tdname object = 'R3VV' object_delete_flag = 'X' EXCEPTIONS wrong_access_to_archive = 1 OTHERS = 2.
CHANGEDOCU_ARCHIVE_OBJECT CALL FUNCTION 'CHANGEDOCU_ARCHIVE_OBJECT' EXPORTING archive_handle = archive_handle client = viob02_tab-mandt objectclass = cd_objectclas objectid = cd_objectid object_delete_flag = 'X' EXCEPTIONS wrong_access_to_archive = 1 OTHERS = 2.
STATUS_ARCHIVE_OBJECT CALL FUNCTION 'STATUS_ARCHIVE_OBJECT' EXPORTING archive_handle = archive_handle object_delete_flag = 'X' i_mandt = viob02_tab-mandt i_objnr = viob02_tab-j_objnr EXCEPTIONS wrong_access_to_archive = 1 OTHERS = 2.
K_TOTAL_ARCHIVE_OBJECT CALL FUNCTION 'K_TOTAL_ARCHIVE_OBJECT' EXPORTING i_archive_handle = archive_handle i_objnr = viob02_tab-j_objnr EXCEPTIONS OTHERS = 1.
ARCHIVE_SAVE_OBJECT CALL FUNCTION 'ARCHIVE_SAVE_OBJECT' EXPORTING archive_handle = archive_handle.
FVARC_MESSAGE_APPEND CALL FUNCTION 'FVARC_MESSAGE_APPEND' EXPORTING i_severity = 'I' i_level = '1' i_newobj = 'X' i_message_text = message_text TABLES t_messages = appl_error.
ARCHIVE_WRITE_STATISTICS CALL FUNCTION 'ARCHIVE_WRITE_STATISTICS' EXPORTING archive_handle = archive_handle.
ARCHIVE_CLOSE_FILE CALL FUNCTION 'ARCHIVE_CLOSE_FILE' EXPORTING archive_handle = archive_handle.
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 RFVIAR70 or its description.
RFVIAR70 - Real Estate Property Archiving: Write Program RFVIAR70 - Real Estate Property Archiving: Write Program RFVIAR63 - Real Estate Building Archiving: Set Deletion Indicator RFVIAR63 - Real Estate Building Archiving: Set Deletion Indicator RFVIAR61 - Real Estate Building Archiving: Delete Program RFVIAR61 - Real Estate Building Archiving: Delete Program