EPIC_BACOM_WRITE is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for When you use the functions on the
If you would like to execute this report or see the full code listing simply enter EPIC_BACOM_WRITE 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: O_BCTYP = D .
Selection Text: O_HBKID = D .
Selection Text: O_HKTID = D .
Selection Text: O_ZBUKR = D .
Selection Text: P_AR_ILM = D .
Selection Text: P_COMENT = D .
Selection Text: P_DATUM = D .
Selection Text: P_DELTST = D .
Selection Text: P_DEST = D .
Selection Text: P_PROT = D .
Selection Text: P_PROT_O = D .
Selection Text: P_SNAP = D .
Selection Text: P_WRIPRD = D .
Selection Text: P_WRITST = D .
Title: Archiving Bank Communication Information: Write Program
Text Symbol: 001 = Bank Communication Information for Electronic Payment Integration (China)
Text Symbol: 002 = &1% (&2 of &3) of records have been processed
Text Symbol: 003 = Bank communication was archived
INCLUDE ARCH_WRITE_PRG_STANDARD2.
No SAP DATABASE tables are accessed within this REPORT code!
ARCHIVE_PROTOCOL_INIT CALL FUNCTION 'ARCHIVE_PROTOCOL_INIT' EXPORTING i_detailprotocol = p_prot i_protocol_output = p_prot_o.
ARCHIVE_OPEN_FOR_WRITE CALL FUNCTION 'ARCHIVE_OPEN_FOR_WRITE' EXPORTING call_delete_job_in_test_mode = p_deltst create_archive_file = p_wriprd object = lc_object comments = p_coment do_not_delete_data = l_not_delete destroy = l_destroy IMPORTING archive_handle = lv_handle.
ARCHIVE_NEW_OBJECT CALL FUNCTION 'ARCHIVE_NEW_OBJECT' EXPORTING archive_handle = lv_handle.
ARCHIVE_PUT_RECORD CALL FUNCTION 'ARCHIVE_PUT_RECORD' EXPORTING archive_handle = lv_handle record = lw_epic_bacom_dat record_structure = lc_dat_table.
ARCHIVE_PUT_TABLE CALL FUNCTION 'ARCHIVE_PUT_TABLE' EXPORTING archive_handle = lv_handle record_structure = lc_msg_table TABLES table = lt_epic_bacom_msg.
ARCHIVE_PUT_TABLE CALL FUNCTION 'ARCHIVE_PUT_TABLE' EXPORTING archive_handle = lv_handle record_structure = lc_xml_table TABLES table = lt_epic_bacom_xml.
ARCHIVE_SAVE_OBJECT CALL FUNCTION 'ARCHIVE_SAVE_OBJECT' EXPORTING archive_handle = lv_handle EXCEPTIONS termination_requested = 1 data_object_not_saved = 6.
ARCHIVE_PROTOCOL_COLLECT CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT' EXPORTING i_object = lw_epic_bacom_dat 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_COLLECT CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT' EXPORTING i_object = lw_epic_bacom_dat-guid i_text = text-003 "'Bank communication was archived' i_msgtype = 1.
PROGRESS_INDICATOR CALL FUNCTION 'PROGRESS_INDICATOR' EXPORTING i_text = text-002 "'&1% (&2 of &3) of records have been processed' i_processed = lv_objects_processed i_total = lv_total_of_objects IMPORTING e_progress_sent = lv_progress_send.
DB_COMMIT CALL FUNCTION 'DB_COMMIT'.
PROGRESS_INDICATOR CALL FUNCTION 'PROGRESS_INDICATOR' EXPORTING i_text = text-002 "'&1% (&2 of &3) of records have been processed' i_processed = lv_objects_processed i_total = lv_total_of_objects i_output_immediately = 'X'. "force the progress output
ARCHIVE_WRITE_STATISTICS CALL FUNCTION 'ARCHIVE_WRITE_STATISTICS' EXPORTING archive_handle = lv_handle.
ARCHIVE_PROTOCOL_WRITE CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE'.
ARCHIVE_CLOSE_FILE CALL FUNCTION 'ARCHIVE_CLOSE_FILE' EXPORTING archive_handle = lv_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.
EPIC_BACOM_WRITE - Archiving Bank Communication Information: Write Program EPIC_BACOM_WRITE - Archiving Bank Communication Information: Write Program EPIC_BACOM_RELOAD - Archiving Bank Communication Information: Reload Program EPIC_BACOM_RELOAD - Archiving Bank Communication Information: Reload Program EPIC_BACOM_DELETE - Archiving Bank Communication Information: Delete Program EPIC_BACOM_DELETE - Archiving Bank Communication Information: Delete Program