SAP Reports / Programs

FI_ACCPAYB_WRI SAP ABAP Report - Archiving of Vendor Master Data: Write Program







FI_ACCPAYB_WRI 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 FI_ACCPAYB_WRI 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 FI_ACCPAYB_WRI. "Basic submit
SUBMIT FI_ACCPAYB_WRI AND RETURN. "Return to original report after report execution complete
SUBMIT FI_ACCPAYB_WRI 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: P_NCHKCD = FI link validation off
Selection Text: P_AR_ILM = D .
Selection Text: P_COMENT = D .
Selection Text: P_DAYS = D .
Selection Text: P_DELTST = D .
Selection Text: P_DEST = D .
Selection Text: P_LOEVM = D .
Selection Text: P_PROT = D .
Selection Text: P_PROT_O = D .
Selection Text: P_SNAP = D .
Selection Text: P_TYPE = D .
Selection Text: P_WRIPRD = D .
Selection Text: P_WRITST = D .
Selection Text: SO_BUKRS = D .
Selection Text: SO_EKORG = D .
Selection Text: SO_LIFNR = D .
Title: Archiving of Vendor Master Data: Write Program
Text Symbol: N02 = Persist duration reached
Text Symbol: N01 = Snapshot archived
Text Symbol: 401 = Do you really want to make this change?
Text Symbol: 400 = Critical Option
Text Symbol: 304 = External check using MM BAdI: No text exists
Text Symbol: 303 = Use in partner roles (WYT3)
Text Symbol: 302 = Purchasing information records exist (EINE/EINA)
Text Symbol: 301 = Purchasing documents exist (EKKO)
Text Symbol: 206 = External check using FI BAdI: No text exists
Text Symbol: 001 = Vendor Master Data
Text Symbol: 002 = Selections
Text Symbol: 003 = Options
Text Symbol: 010 = Preselection of vendor master data started
Text Symbol: 011 = &1% (&2 of &3) of vendor master data processed
Text Symbol: 020 = General vendor master data archived
Text Symbol: 021 = Interruption requested by user
Text Symbol: 022 = No data found for selection
Text Symbol: 023 = Data without deletion indicator exists
Text Symbol: 024 = Unable to set deletion indicator
Text Symbol: 025 = FI vendor master data archived
Text Symbol: 026 = MM vendor master data archived





Text Symbol: 027 = Vendor is blocked for deletion
Text Symbol: 050 = Program error: Message Missing
Text Symbol: 100 = Company code-specific data exists (LFB1)
Text Symbol: 101 = Operating data exists (T001W)
Text Symbol: 102 = Purchasing data exists (LFM1)
Text Symbol: 103 = Links exist (KLPA)
Text Symbol: 104 = Linked business partners exist
Text Symbol: 105 = External check using BAdI: No text exists
Text Symbol: 201 = Vendor master transaction figures exist (LFC1)
Text Symbol: 202 = Vendor master transaction figures exist - special G/L (LFC3)
Text Symbol: 203 = Open items exist (BSIK)
Text Symbol: 204 = Cleared items exist (BSAK)
Text Symbol: 205 = Parked documents exist (VBSEGD)


INCLUDES used within this REPORT FI_ACCPAYB_WRI

INCLUDE ARCH_WRITE_PRG_STANDARD2. "PROCESSING OPTIONS


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_WRITE call function 'ARCHIVE_PROTOCOL_WRITE'.

PROGRESS_INDICATOR call function 'PROGRESS_INDICATOR' exporting i_text = text-010 * Preselection of creditor master data started i_output_immediately = 'X'.

DB_COMMIT call function 'DB_COMMIT'. "force immediate output of message

ARCHIVE_NEW_OBJECT call function 'ARCHIVE_NEW_OBJECT' exporting archive_handle = iv_handle.

ARCHIVE_PUT_TABLE call function 'ARCHIVE_PUT_TABLE' exporting archive_handle = iv_handle record_flags = gc_flags_delete record_structure = -tabname tables table = .

ARCHIVE_SAVE_OBJECT call function 'ARCHIVE_SAVE_OBJECT' exporting archive_handle = iv_handle exceptions data_object_not_saved = 6 termination_requested = 42.

ARCHIVE_PROTOCOL_COLLECT call function 'ARCHIVE_PROTOCOL_COLLECT' exporting i_object = lw_lfa1-lifnr 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.

ADDRESS_ARCHIVE_OBJECT call function 'ADDRESS_ARCHIVE_OBJECT' exporting archive_handle = iv_handle address_object_type = '1' address_number = iv_adrnr address_reference = lw_adress_ref object_delete_flag = 'X'.

ADDRESS_ARCHIVE_OBJECT call function 'ADDRESS_ARCHIVE_OBJECT' exporting archive_handle = iv_handle address_object_type = lv_address_object_type address_number = lv_addrnumber address_reference = lw_adress_ref object_delete_flag = gc_flags_delete.

ADDRESS_ARCHIVE_OBJECT call function 'ADDRESS_ARCHIVE_OBJECT' exporting archive_handle = iv_handle address_object_type = lv_address_object_type address_number = lv_addrnumber address_reference = lw_adress_ref object_delete_flag = gc_flags_delete.

ADDRESS_ARCHIVE_OBJECT call function 'ADDRESS_ARCHIVE_OBJECT' exporting archive_handle = iv_handle address_object_type = lv_address_object_type address_number = lv_addrnumber person_number = -prsnr address_reference = lw_adress_ref person_reference = lw_person_ref object_delete_flag = gc_flags_delete.

ADDRESS_ARCHIVE_OBJECT





call function 'ADDRESS_ARCHIVE_OBJECT' exporting archive_handle = iv_handle address_object_type = lv_address_object_type address_number = lv_addrnumber person_number = -prsnr person_reference = lw_person_ref object_delete_flag = gc_flags_delete.

CHANGEDOCU_ARCHIVE_OBJECT call function 'CHANGEDOCU_ARCHIVE_OBJECT' exporting archive_handle = iv_handle objectclass = 'KRED' objectid = lv_objectid object_delete_flag = 'X'.

CLASSIFY_ARCHIVE_OBJECT call function 'CLASSIFY_ARCHIVE_OBJECT' exporting archive_handle = iv_handle object = lv_object ptable = 'LFA1 ' object_delete_flag = 'X'.

TEXT_ARCHIVE_OBJECT call function 'TEXT_ARCHIVE_OBJECT' exporting archive_handle = iv_handle client = sy-mandt id = '*' language = '*' name = lv_name object = 'LFA1' object_delete_flag = 'X'.

TEXT_ARCHIVE_OBJECT call function 'TEXT_ARCHIVE_OBJECT' exporting archive_handle = iv_handle client = sy-mandt id = '*' language = '*' name = lv_name object = 'KNVK' object_delete_flag = 'X'.

ARCHIVE_PROTOCOL_COLLECT call function 'ARCHIVE_PROTOCOL_COLLECT' exporting i_object = iv_obj_id i_msgtype = lv_msg_type i_text = lv_msg_text.

PROGRESS_INDICATOR call function 'PROGRESS_INDICATOR' exporting i_text = text-010 * Preselection of creditor master data started i_output_immediately = 'X'.

DB_COMMIT call function 'DB_COMMIT'. "force immediate output of message

ARCHIVE_NEW_OBJECT call function 'ARCHIVE_NEW_OBJECT' exporting archive_handle = iv_handle.

ARCHIVE_PUT_TABLE call function 'ARCHIVE_PUT_TABLE' exporting archive_handle = iv_handle record_flags = gc_flags_delete record_structure = -tabname tables table = .

ARCHIVE_SAVE_OBJECT call function 'ARCHIVE_SAVE_OBJECT' exporting archive_handle = iv_handle exceptions data_object_not_saved = 6 termination_requested = 42.

ARCHIVE_PROTOCOL_COLLECT call function 'ARCHIVE_PROTOCOL_COLLECT' exporting i_object = lv_obj_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.

TEXT_ARCHIVE_OBJECT call function 'TEXT_ARCHIVE_OBJECT' exporting archive_handle = iv_handle client = sy-mandt id = '*' language = '*' name = lv_name object = 'LFB1' object_delete_flag = 'X'.

ARCHIVE_PROTOCOL_COLLECT call function 'ARCHIVE_PROTOCOL_COLLECT' exporting i_object = lv_obj_id i_msgtype = lv_msg_type i_text = lv_msg_text.

PROGRESS_INDICATOR call function 'PROGRESS_INDICATOR' exporting i_text = text-010 * Preselection of creditor master data started i_output_immediately = 'X'.

DB_COMMIT call function 'DB_COMMIT'. "force immediate output of message

ARCHIVE_NEW_OBJECT call function 'ARCHIVE_NEW_OBJECT' exporting archive_handle = iv_handle.

ARCHIVE_PUT_TABLE call function 'ARCHIVE_PUT_TABLE' exporting archive_handle = iv_handle record_flags = gc_flags_delete record_structure = -tabname tables table = .

ARCHIVE_SAVE_OBJECT call function 'ARCHIVE_SAVE_OBJECT' exporting archive_handle = iv_handle exceptions data_object_not_saved = 6 termination_requested = 42.

ARCHIVE_PROTOCOL_COLLECT call function 'ARCHIVE_PROTOCOL_COLLECT' exporting i_object = lv_obj_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.




TEXT_ARCHIVE_OBJECT call function 'TEXT_ARCHIVE_OBJECT' exporting archive_handle = iv_handle client = sy-mandt id = '*' language = '*' name = lv_name object = 'LFM1' object_delete_flag = 'X'.

ARCHIVE_PROTOCOL_COLLECT call function 'ARCHIVE_PROTOCOL_COLLECT' exporting i_object = lv_obj_id i_msgtype = lv_msg_type i_text = lv_msg_text.

CHECK_EXIST_LIMU_FUNC call function 'CHECK_EXIST_LIMU_FUNC' exporting name = 'EXIT_SAPLMFAS_001' importing exist = lv_exists.

CHECK_EXIST_LIMU_REPS call function 'CHECK_EXIST_LIMU_REPS' exporting name = 'ZXARCU02' aggname = space importing exist = lv_exists.

POPUP_TO_CONFIRM call function 'POPUP_TO_CONFIRM' exporting titlebar = text-400 diagnose_object = 'FI_ACCRECV_P_LOEVM_DIAG' text_question = text-401 default_button = '2' display_cancel_button = space importing answer = lv_answer.

RPY_MESSAGE_COMPOSE call function 'RPY_MESSAGE_COMPOSE' exporting language = lw_rpy_message-msgspra message_id = lw_rpy_message-msgid message_number = lw_rpy_message-msgnr message_var1 = lw_rpy_message-msgv1 message_var2 = lw_rpy_message-msgv2 message_var3 = lw_rpy_message-msgv3 message_var4 = lw_rpy_message-msgv4 importing message_text = lv_message_txt.

ARCHIVE_PROTOCOL_INIT call function 'ARCHIVE_PROTOCOL_INIT' exporting i_detailprotocol = iv_prot i_protocol_output = iv_prot_o.

PROGRESS_INDICATOR call function 'PROGRESS_INDICATOR' exporting i_text = text-011 * &% of Creditor Master Data processed (& of &) i_processed = iv_cnt_pro i_total = iv_cnt_tot i_output_immediately = iv_immediate importing e_progress_sent = lv_sent.

DB_COMMIT call function 'DB_COMMIT'. "force immediate output of message

ARCHIVE_OPEN_FOR_WRITE call function 'ARCHIVE_OPEN_FOR_WRITE' exporting call_delete_job_in_test_mode = iv_deltst create_archive_file = lv_create_file object = iv_object comments = iv_coment do_not_delete_data = l_not_delete destroy = l_destroy output_sel_screen_when_dialog = space importing archive_handle = ev_handle exceptions internal_error = 1 object_not_found = 2 open_error = 3 not_authorized = 4.

ARCHIVE_PROTOCOL_COLLECT call function 'ARCHIVE_PROTOCOL_COLLECT' exporting 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.

ARCHIVE_PROTOCOL_WRITE call function 'ARCHIVE_PROTOCOL_WRITE'.

ARCHIVE_WRITE_STATISTICS call function 'ARCHIVE_WRITE_STATISTICS' exporting archive_handle = iv_handle.

ARCHIVE_CLOSE_FILE call function 'ARCHIVE_CLOSE_FILE' exporting archive_handle = iv_handle.

CLASSIFY_ARCHIVE_OBJECT * call function 'CLASSIFY_ARCHIVE_OBJECT' * exporting * archive_handle = iv_handle * object = lv_object * ptable = 'LFSSTN' * object_delete_flag = 'X'.



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