RFVSOLD_F01 SAP ABAP INCLUDE - Include RFVSOLD_F01
RFVSOLD_F01 is a standard ABAP INCLUDE 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 RFVSOLD_F01 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 RFVSOLD_F01. "Basic submit
SUBMIT RFVSOLD_F01 AND RETURN. "Return to original report after report execution complete
SUBMIT RFVSOLD_F01 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Include RFVSOLD_F01
INCLUDES used within this REPORT RFVSOLD_F01
No INCLUDES are used within this REPORT code!
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:
LOAN_READ_VDARL * CALL FUNCTION 'LOAN_READ_VDARL' * CHANGING * io_vdarl = i_vdarl * EXCEPTIONS * contract_not_found = 1 * key_not_filled = 2 * OTHERS = 3.
FVD_DB_VDARL_GET_SNG CALL FUNCTION 'FVD_DB_VDARL_GET_SNG' EXPORTING i_bukrs = i_vdarl-bukrs i_sarchiv = i_vdarl-sarchiv i_ranl = i_vdarl-ranl IMPORTING e_str_vdarl = i_vdarl EXCEPTIONS contract_not_found = 1 OTHERS = 2.
FVD_SEPA_OL_GET_DATA CALL FUNCTION 'FVD_SEPA_OL_GET_DATA' IMPORTING e_flg_sepa_dd = l_flg_sepa_dd.
NUMBER_GET_NEXT CALL FUNCTION 'NUMBER_GET_NEXT' EXPORTING nr_range_nr = '01' "?? Intervall,s.Storno
NUMBER_GET_NEXT CALL FUNCTION 'NUMBER_GET_NEXT' EXPORTING nr_range_nr = '01' object = 'FVVD_PNNR' * QUANTITY = '1' subobject = i_bukrs * TOYEAR = '0000' * IGNORE_BUFFER = ' ' IMPORTING number = e_primanota * QUANTITY = * RETURNCODE = EXCEPTIONS interval_not_found = 1 number_range_not_intern = 2 object_not_found = 3 quantity_is_0 = 4 quantity_is_not_1 = 5 interval_overflow = 6 OTHERS = 7 .
ENQUEUE_EFVDARL * CALL FUNCTION 'ENQUEUE_EFVDARL' * EXPORTING * mode_vdarl = 'E' * mandt = sy-mandt * bukrs = i_bukrs * sarchiv = ' ' * ranl = i_ranl * x_bukrs = ' ' * x_sarchiv = ' ' * x_ranl = ' ' * _scope = '2' "?? = 3 ** _WAIT = ' ' ** _COLLECT = ' ' * EXCEPTIONS * foreign_lock = 1 * system_failure = 2 * OTHERS = 3 * .
FVD_ENQUEUE_EFVDARL CALL FUNCTION 'FVD_ENQUEUE_EFVDARL' EXPORTING mode_vdarl = 'E' mandt = sy-mandt bukrs = i_bukrs sarchiv = ' ' ranl = i_ranl x_bukrs = ' ' x_sarchiv = ' ' x_ranl = ' ' _scope = '2' * _WAIT = ' ' * _COLLECT = ' ' EXCEPTIONS foreign_lock = 1 system_failure = 2 OTHERS = 3 .
FVD_SEPA_OL_GET_CUST CALL FUNCTION 'FVD_SEPA_OL_GET_CUST' EXPORTING i_bukrs = et_vdbepp_bo_ref-bukrs I_FLG_RAISE_SEPA_DD = 'X' EXCEPTIONS SEPA_DD_NOT_ACTIVE = 1 OTHERS = 2.
FVD_SEPA_OL_GET_CUST CALL FUNCTION 'FVD_SEPA_OL_GET_CUST' EXPORTING i_bukrs = et_vdbepp_bo_geb_ref-bukrs I_FLG_RAISE_SEPA_DD = 'X' EXCEPTIONS SEPA_DD_NOT_ACTIVE = 1 OTHERS = 2.
FVD_TRLE_DISTRIBUTOR_ACTIVE CALL FUNCTION 'FVD_TRLE_DISTRIBUTOR_ACTIVE' EXPORTING i_bukrs = sort_vdbepp-bukrs I_GSART = sort_vdbepp-gsart EXCEPTIONS DISTRIBUTOR_CML_NOT_ACTIVE = 1 OTHERS = 2.
FVD_CAPTR_API_GETLIST CALL FUNCTION 'FVD_CAPTR_API_GETLIST' EXPORTING i_bukrs = sort_vdbepp-bukrs i_ranl = sort_vdbepp-ranl IMPORTING e_tab_vdcaptr = l_t_vdcaptr EXCEPTIONS fatal_error = 1 OTHERS = 2.
FVD_TRLE_DISTRIBUTOR_ACTIVE CALL FUNCTION 'FVD_TRLE_DISTRIBUTOR_ACTIVE' EXPORTING i_bukrs = wrk_sort-bukrs I_GSART = wrk_sort-gsart EXCEPTIONS DISTRIBUTOR_CML_NOT_ACTIVE = 1 OTHERS = 2.
BSS_CREATE_PAYSPLIT CALL FUNCTION 'BSS_CREATE_PAYSPLIT' * EXPORTING * FLAG_SIMU = 'X' TABLES fbepp = xt_vdbepp prot_u = lt_appl_error EXCEPTIONS splitting_error.
FVD_TRLE_SET_GLOBAL_FLAGS CALL FUNCTION 'FVD_TRLE_SET_GLOBAL_FLAGS' EXPORTING I_FLG_PAYSPLIT = 'X' TABLES T_VDBEPP = LT_VDBEPP.
FVD_SEPA_OL_GET_CUST CALL FUNCTION 'FVD_SEPA_OL_GET_CUST' EXPORTING i_bukrs = xt_vdbepp-bukrs IMPORTING * E_SEPA_ACTV = E_SEPA_DD_ACTV = l_sepa_dd_actv.
LOAN_REFERENCE_READ_OBJECTID CALL FUNCTION 'LOAN_REFERENCE_READ_OBJECTID' EXPORTING i_refcat = et_loanref_a-refcat i_refconcept = et_loanref_a-refconcept i_status = et_loanref_a-status TABLES xt_loanref = l_t_loanref_a EXCEPTIONS no_data_found = 1 invalid_data = 2 OTHERS = 3.
LOAN_REFERENCE_READ_REFCONCEPT CALL FUNCTION 'LOAN_REFERENCE_READ_REFCONCEPT' EXPORTING i_objecttype = l_con_objecttype i_objectid = et_loanref_a-refconcept i_status = et_loanref_a-status TABLES xt_loanref = l_t_loanref_a EXCEPTIONS no_data_found = 1 invalid_data = 2 OTHERS = 3.
LOAN_REFERENCE_READ_OBJECTID CALL FUNCTION 'LOAN_REFERENCE_READ_OBJECTID' * EXPORTING * I_REFCAT = 'A' * I_REFCONCEPT = KEY_VDBEPP * I_STATUS = 'A' TABLES xt_loanref = et_loanref_a EXCEPTIONS no_data_found = 1 invalid_data = 2 OTHERS = 3 .
CALL FUNCTION 'FVD_TRLE_DISTRIBUTOR_ACTIVE' EXPORTING i_bukrs =-bukrs I_GSART = -gsart EXCEPTIONS DISTRIBUTOR_CML_NOT_ACTIVE = 1 OTHERS = 2.
LOAN_REFERENCE_READ_OBJECTID CALL FUNCTION 'LOAN_REFERENCE_READ_OBJECTID' * EXPORTING * I_REFCAT = 'A' * I_REFCONCEPT = KEY_VDBEPP * I_STATUS = 'A' TABLES xt_loanref = l_tab_loanref_a EXCEPTIONS no_data_found = 1 invalid_data = 2 OTHERS = 3 .
CREATE_ADDBEPP_INFORMATION CALL FUNCTION 'CREATE_ADDBEPP_INFORMATION' EXPORTING i_sollbu_val = p_sollbu TABLES xt_vdbepp = xt_vdbepp xt_addbepp = et_addbepp xt_addbepp_add = et_addbepp_add "N1100544 * XT_VDAUSZ = xt_loanref_a = xt_loanref EXCEPTIONS masterbepp_not_unique = 1 posting_impossible = 2 OTHERS = 3 .
FVD_MAP_LC_BATCH_SOLD CALL FUNCTION 'FVD_MAP_LC_BATCH_SOLD' EXPORTING i_flg_simulation = i_sim i_flg_in_update_task = 'X' i_tab_vdbepp = it_vdbepp[] CHANGING c_tas_vdarl = cts_vdarl EXCEPTIONS OTHERS = 1.
LOAN_POST CALL FUNCTION 'LOAN_POST' EXPORTING i_budat = i_budat i_bktxt = i_bktxt i_protocol = '1' "=Vorschlag BSS i_simu = i_sim i_primanota = i_primanota i_superprimanota = i_superprimanota * I_SPECIALPERIOD = * I_PROTOCOL_TEXT = i_omit_checks = 'X' i_delete_plan = 'X' "=Vorschlag BSS i_update_ist = ' ' "Nebenbuchbelege werden unten "in diesem Programm geschrieben i_clear_op_buffer = 'X' i_clear_loanref_v = 'X' i_fvd_loan_post = fvd_loan_post "N1056376 i_flg_no_fi_doc = g_flg_no_fi_doc "N1130046 i_bldat = i_bldat "N1345520 TABLES xt_vdbepp = it_vdbepp xt_addbepp = it_addbepp xt_addbepp_add = it_addbepp_add "N1788530 * XT_BSID = * XT_BSIS = xt_vdbeki = et_vdbeki xt_vdbepi = et_vdbepi xt_loanref_a = xt_loanref_a EXCEPTIONS posting_impossible = 1 error_message = 3 OTHERS = 2 .
LOAN_IST_SCHREIBEN CALL FUNCTION 'LOAN_IST_SCHREIBEN' * EXPORTING * HERKUNFT = SY-TCODE TABLES ibeki = et_vdbeki ibepi = et_vdbepi .
LOAN_ITEM_TRANSFERLOCK CALL FUNCTION 'LOAN_ITEM_TRANSFERLOCK' EXPORTING it_vdbepp = it_vdbepp[] it_vdbepi = et_vdbepi[] it_vdbeki = et_vdbeki[].
FVD_TRLE_DISTRIBUTOR_IF CALL FUNCTION 'FVD_TRLE_DISTRIBUTOR_IF' EXPORTING i_flg_log = '1' " display log in popup i_flg_distribute = 'X' " call TR-Distributor i_flg_no_calc_org_amt = 'X' "N1508785 EXCEPTIONS warning_delete_bt = 0 OTHERS = 2.
FVD_TRLE_DISTRIBUTOR_IF CALL FUNCTION 'FVD_TRLE_DISTRIBUTOR_IF' EXPORTING i_flg_simul = 'X' " simulation i_flg_log = '1' " display log in popup i_flg_distribute = 'X' " call TR-Distributor i_flg_no_calc_org_amt = 'X' "N1508785 EXCEPTIONS warning_delete_bt = 0 OTHERS = 2.
LOAN_REFERENCE_DELETE CALL FUNCTION 'LOAN_REFERENCE_DELETE' * EXPORTING * I_BUKRS = * I_GSART = TABLES xt_loanref = delete_loanref EXCEPTIONS table_empty = 1 invalid_data = 2 OTHERS = 3 .
LOAN_REFERENCE_ADD CALL FUNCTION 'LOAN_REFERENCE_ADD' TABLES xt_loanref = insert_loanref EXCEPTIONS table_empty = 1 invalid_data = 2 OTHERS = 3.
LOAN_GET_GLOBAL_FLAGS CALL FUNCTION 'LOAN_GET_GLOBAL_FLAGS' IMPORTING E_WRK_PRI_PARAMS = l_wrk_pri_params E_FLG_ONE_SPOOL = g_flg_one_spool.
ACCOUNT_REPORT_READ CALL FUNCTION 'ACCOUNT_REPORT_READ' EXCEPTIONS ACCOUNT_TABLES_EMPTY = 1 OTHERS = 2.
ACCOUNT_REPORT CALL FUNCTION 'ACCOUNT_REPORT' EXPORTING batch_kz = 'X' * FLG_ERROR_ACCOUNT = ' ' header_text = text-010 name = 'buchungsprot' "???? only_in_spool = sy-batch rantyp = '1' sverrkz = space switch_waer = ' ' repid = repid .
ACCOUNT_REPORT CALL FUNCTION 'ACCOUNT_REPORT' EXPORTING batch_kz = 'X' * FLG_ERROR_ACCOUNT = ' ' header_text = text-020 name = 'buchungsprot' "???? only_in_spool = sy-batch rantyp = '1' sverrkz = space switch_waer = ' ' repid = repid .
FVD_CHK_GET_AND_SET_PRINTPARAM CALL FUNCTION 'FVD_CHK_GET_AND_SET_PRINTPARAM' EXPORTING I_NEW_LIST_ID = SPACE I_LIST_TEXT = l_wrk_pri_params-prtxt I_NO_DIALOG = 'X'.
FVD_TRLE_DISTRIBUTOR_IF CALL FUNCTION 'FVD_TRLE_DISTRIBUTOR_IF' EXPORTING i_flg_log = '5' " posting protocol to spool i_flg_simul = i_sim "N1519136 EXCEPTIONS OTHERS = 2.
FVD_TRLE_DISTRIBUTOR_IF CALL FUNCTION 'FVD_TRLE_DISTRIBUTOR_IF' EXPORTING i_flg_log = '3' " collect posting protocol i_flg_simul = i_sim "N1519136 EXCEPTIONS OTHERS = 2.
FVD_BO_OL_SET_BUS_STATUS CALL FUNCTION 'FVD_BO_OL_SET_BUS_STATUS' EXPORTING i_sbo_status = '4' "gebucht i_tab_vdbohead_key = it_vdbohead_key i_tab_bo_refconcept = it_bo_refconcept "Schäfer 060900 EXCEPTIONS failed = 1 OTHERS = 2.
FVD_DB_VDWORKLIST_CHECK_SNG CALL FUNCTION 'FVD_DB_VDWORKLIST_CHECK_SNG' EXPORTING i_application = '01' i_str_vdarl_key = l_str_vdarl_key IMPORTING e_flg_exist = l_flg_exist EXCEPTIONS failed = 1 OTHERS = 2.
FVD_SEPA_OL_GET_DATA CALL FUNCTION 'FVD_SEPA_OL_GET_DATA' IMPORTING E_FLG_SEPA_DD = l_flg_sepa_dd.
FVD_DB_VDPOST_CONTROL_UPDATE CALL FUNCTION 'FVD_DB_VDPOST_CONTROL_UPDATE' EXPORTING i_tab_delete = lt_post_control EXCEPTIONS update_error = 1 OTHERS = 2.
DEQUEUE_EFVDARL CALL FUNCTION 'DEQUEUE_EFVDARL' EXPORTING MODE_VDARL = 'E' MANDT = SY-MANDT BUKRS = i_bukrs SARCHIV = ' ' RANL = i_ranl X_BUKRS = ' ' X_SARCHIV = ' ' X_RANL = ' ' _SCOPE = '2' * _SYNCHRON = ' ' * _COLLECT = ' ' .
FSBP_DBREAD_BP001 CALL FUNCTION 'FSBP_DBREAD_BP001' EXPORTING i_partner = u_rdarnehm IMPORTING e_bp001 = l_bp001 EXCEPTIONS not_found = 1 OTHERS = 2.
REUSE_ALV_FIELDCATALOG_MERGE CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE' EXPORTING * I_PROGRAM_NAME = I_STRUCTURE_NAME = 'VDCHK_VDARL_ERROR_LIST' CHANGING ct_fieldcat = lt_fieldcat EXCEPTIONS OTHERS = 3.
REUSE_ALV_GRID_DISPLAY CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING * I_CALLBACK_PROGRAM = ' ' * I_CALLBACK_USER_COMMAND = ' ' * I_CALLBACK_TOP_OF_PAGE = ' ' * I_CALLBACK_HTML_TOP_OF_PAGE = ' ' * I_CALLBACK_HTML_END_OF_LIST = ' ' I_GRID_TITLE = text-t01 * I_GRID_SETTINGS = IS_LAYOUT = ls_layout IT_FIELDCAT = lt_fieldcat * IT_EXCLUDING = * IT_SPECIAL_GROUPS = * IT_SORT = * IT_FILTER = * IS_SEL_HIDE = * I_DEFAULT = 'X' I_SAVE = 'A' * IS_VARIANT = * IS_PRINT = ls_print TABLES * t_outtab = u_tab_vdarl "N1341773 t_outtab = ut_vdarl_error_list EXCEPTIONS OTHERS = 2 .
PROTOCOL_INIT CALL FUNCTION 'PROTOCOL_INIT' EXPORTING protocol_columns_per_page = '132' protocol_lines_per_page = '65' protocol_name = 'Fehler' PROTOCOL_OUTPUT_CHANNEL = 'S' TABLES protocol_footer = protocol_footer protocol_header = protocol_header .
PROTOCOL_FILL CALL FUNCTION 'PROTOCOL_FILL' EXPORTING * FLAG = ' ' protocol_line = text protocol_name = 'Fehler'.
PROTOCOL_SHOW CALL FUNCTION 'PROTOCOL_SHOW' EXPORTING protocol_channel = 'S' protocol_name = 'Fehler' * REPID = * HEADER_TEXT = * IMPORTING * PROTOCOL_SPONO = .
FVD_SEPA_OL_GET_DATA CALL FUNCTION 'FVD_SEPA_OL_GET_DATA' IMPORTING e_dd_keydate = l_sepa_dd_keydate.
LOAN_MESSAGES_STORE CALL FUNCTION 'LOAN_MESSAGES_STORE' EXPORTING is_mesg = l_wrk_mesg EXCEPTIONS OTHERS = 3.
FVD_SEPA_OL_DD_GET_MAX_DATE CALL FUNCTION 'FVD_SEPA_OL_DD_GET_MAX_DATE' EXPORTING i_date = l_sepa_dd_keydate i_rng_bukrs = so_bukrs[] "N1915137 IMPORTING e_date = l_sepa_max_date EXCEPTIONS no_date_available = 1 OTHERS = 2.
LOAN_MESSAGES_STORE CALL FUNCTION 'LOAN_MESSAGES_STORE' EXPORTING is_mesg = l_wrk_mesg EXCEPTIONS OTHERS = 3.
LOAN_MESSAGES_STORE CALL FUNCTION 'LOAN_MESSAGES_STORE' EXPORTING is_mesg = l_wrk_mesg EXCEPTIONS OTHERS = 3.
FVD_SEPA_OL_DD_GET_ZLSCH_RNG CALL FUNCTION 'FVD_SEPA_OL_DD_GET_ZLSCH_RNG' EXPORTING i_rng_zlsch = so_zlsch[] i_wrk_t001 = l_wrk_t001 IMPORTING e_rng_zlsch_dd = l_rng_zlsch_dd e_rng_zlsch_no_dd = l_rng_zlsch_no_dd.
FVD_SEPA_OL_GET_DATA CALL FUNCTION 'FVD_SEPA_OL_GET_DATA' IMPORTING E_DD_KEYDATE = l_dd_keydate.
FVD_SEPA_OL_DD_GET_ZLSCH_RNG CALL FUNCTION 'FVD_SEPA_OL_DD_GET_ZLSCH_RNG' EXPORTING * I_WRK_T001 = i_rng_zlsch = so_zlsch[] i_bukrs = i_bukrs IMPORTING e_rng_zlsch_dd = l_rng_zlsch_dd e_rng_zlsch_no_dd = l_rng_zlsch_no_dd.
FVD_SEPA_OL_DD_GET_MAX_DATE CALL FUNCTION 'FVD_SEPA_OL_DD_GET_MAX_DATE' EXPORTING I_DATE = l_dd_keydate I_RNG_BUKRS = so_bukrs[] "N1915137 IMPORTING * E_LEAD_TIME = E_DATE = l_sepa_max_date EXCEPTIONS NO_DATE_AVAILABLE = 1 OTHERS = 2.
LOAN_MESSAGES_STORE call function 'LOAN_MESSAGES_STORE' exporting is_mesg = l_wrk_mesg exceptions others = 3.
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 RFVSOLD_F01 or its description.