SAP Reports / Programs

RFVDTX01 SAP ABAP Report - Text Display Flow Control DARWIN Loans SAPscript Section







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


Text pool values


Title: Text Display Flow Control DARWIN Loans SAPscript Section
Text Symbol: UND = and


INCLUDES used within this REPORT RFVDTX01

INCLUDE DTX01TOP.


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:

ENQUEUE_EFVDUNTR CALL FUNCTION 'ENQUEUE_EFVDUNTR' EXPORTING sakt = vdarl-xakt EXCEPTIONS foreign_lock = 1 system_failure = 2 OTHERS = 3.

FVD_DB_EXP_GET_CORRESPONDENCE * CALL FUNCTION 'FVD_DB_EXP_GET_CORRESPONDENCE' * EXPORTING * i_bukrs = vdarl-bukrs * i_ranl = vdarl-ranl * IMPORTING * e_str_vdarldvs_ext = l_vdarldvs.

FVD_API_CORR_ALOI_FILL_STD CALL FUNCTION 'FVD_API_CORR_ALOI_FILL_STD' EXPORTING i_corr_type = l_corr_type i_refdate = l_refdate i_vdarl = vdarl i_receiver = partnr i_stmtnreka = l_vdarldvs-stmtnreka IMPORTING e_toadara_index = l_notice.

START_FORM CALL FUNCTION 'START_FORM' EXPORTING form = ttxbf-tdform language = rstxt-tdspras startpage = ttxbf-tdfirstpag archive_index = i_toa_dara EXCEPTIONS form = 1 format = 2 unended = 3 unopened = 4 unused = 5 OTHERS = 6.

WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING element = ttxbf-ktxelement window = 'KOPF' EXCEPTIONS element = 04.

END_FORM CALL FUNCTION 'END_FORM'.

INIT_TEXT CALL FUNCTION 'INIT_TEXT' EXPORTING id = 'TEXT' language = 'D' name = 'DOKUMENT' object = 'FVVD' IMPORTING header = th_gesamt TABLES lines = tl_gesamt EXCEPTIONS id = 01 language = 02 name = 03 object = 04.

TEXT_SYMBOL_SETVALUE CALL FUNCTION 'TEXT_SYMBOL_SETVALUE' EXPORTING name = '&INIT&' value = 'X' value_length = value_length.

WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING function = 'SET' type = 'TOP' window = 'MAIN' EXCEPTIONS element = 01 function = 02 type = 03 unopened = 04 unstarted = 05 window = 06.

WRITE_FORM_LINES CALL FUNCTION 'WRITE_FORM_LINES' EXPORTING header = th_gesamt window = 'MAIN' type = 'BODY' TABLES lines = tl_gesamt EXCEPTIONS window = 04.

READ_TEXT CALL FUNCTION 'READ_TEXT' EXPORTING id = rstxt-tdid language = rstxt-tdspras name = rstxt-tdname object = rstxt-tdobject * XBSTKN = ITXBS-XBSTKN IMPORTING header = th TABLES lines = tl EXCEPTIONS id = 01 language = 02 name = 03 not_found = 04 object = 05 reference_check = 06 wrong_access_to_archive = 07.

TEXT_CONTROL_REPLACE CALL FUNCTION 'TEXT_CONTROL_REPLACE' "requested by Andreas B 6/98 EXPORTING header = th * PROGRAM = ' ' * REPLACE_COMMENT = 'X' * IMPORTING * CHANGED = * NEWHEADER = TABLES lines = tl.

TEXT_SYMBOL_REPLACE CALL FUNCTION 'TEXT_SYMBOL_REPLACE' EXPORTING header = th TABLES lines = tl.

WRITE_FORM_LINES CALL FUNCTION 'WRITE_FORM_LINES' EXPORTING header = th window = 'MAIN' type = 'BODY' IMPORTING frompage = seite TABLES lines = tl EXCEPTIONS window = 04.

WRITE_FORM_LINES CALL FUNCTION 'WRITE_FORM_LINES' EXPORTING header = th window = 'MAIN' type = 'TOP' TABLES lines = tl EXCEPTIONS window = 04.

FLBP_ROLECATEGORY_GET CALL FUNCTION 'FLBP_ROLECATEGORY_GET' EXPORTING i_role = ivzgpo-roletyp IMPORTING e_rlcat = lf_rlcat EXCEPTIONS role_not_found = 1 OTHERS = 2.

FVD_CLERKS_CHECK_ROLE CALL FUNCTION 'FVD_CLERKS_CHECK_ROLE' EXPORTING i_rltyp = ivzgpo-roletyp IMPORTING i_flg_clerk = l_flg_clerk.

FSBP_DBREAD_BUT021_FS CALL FUNCTION 'FSBP_DBREAD_BUT021_FS' EXPORTING i_partner = but000-partner i_adr_kind = ivzgpo-adr_ref i_date = txtif-stichtag IMPORTING e_but021_fs = ls_but021_fs EXCEPTIONS wrong_parameters = 1 not_found = 2 OTHERS = 3.

BUA_ADDRESS_GET





CALL FUNCTION 'BUA_ADDRESS_GET' EXPORTING i_partner = but000-partner i_addrnumber = ls_but021_fs-addrnumber IMPORTING e_address = ls_bus020_ext EXCEPTIONS no_address_found = 1 wrong_parameters = 2 OTHERS = 3.

FTBP_READ_ADDRESS_CONVERT CALL FUNCTION 'FTBP_READ_ADDRESS_CONVERT' EXPORTING i_partnr = ls_bus020_ext-partner i_bus020_ext = ls_bus020_ext i_but021_fs = ls_but021_fs IMPORTING e_bpdadref = ls_bpdadref.

SELECT_VDZSB_EMPLOYEE CALL FUNCTION 'SELECT_VDZSB_EMPLOYEE' EXPORTING i_mode = 'A' "all clerks for the object i_object = vdarl-sobjekt TABLES e_vdzsb = t_vdzsb EXCEPTIONS error_in_parameters = 1 clerk_not_defined = 2 OTHERS = 3.

TZB21_READ_CLERK CALL FUNCTION 'TZB21_READ_CLERK' EXPORTING i_bearb = wa_vdzsb-bearb IMPORTING e_tzb21t = wa_tzb21t EXCEPTIONS clerk_not_defined = 1 OTHERS = 2.

POPUP_TTXBS CALL FUNCTION 'POPUP_TTXBS' EXPORTING brfnm = ttxbf-brfnm subanwdg = ttxbf-subanwdg TABLES itxbs = itxbs EXCEPTIONS zurueck = 16.

FVD_TDPZ6_READ CALL FUNCTION 'FVD_TDPZ6_READ' EXPORTING i_role_corr = tzzkd-role_corr IMPORTING e_tdpz6 = tdpz6 EXCEPTIONS role_not_found = 1 OTHERS = 2.

FLBP_ROLECATEGORY_GET CALL FUNCTION 'FLBP_ROLECATEGORY_GET' EXPORTING i_role = tzzkd-roletyp_zgp IMPORTING e_rlcat = lf_rlcat EXCEPTIONS role_not_found = 1 OTHERS = 2.

ADDR_GET CALL FUNCTION 'ADDR_GET' EXPORTING address_selection = selection address_group = 'CA01' IMPORTING * note 557210 2002 CS - load both addresses - structure to short address_value = addr1_val sadr = sadr EXCEPTIONS parameter_error = 1 address_not_exist = 2 version_not_exist = 3 internal_error = 4 OTHERS = 5. "SADR40A

BPAR_R_ROLES_OF_ROLETYP * CALL FUNCTION 'BPAR_R_ROLES_OF_ROLETYP' * EXPORTING * roletyp_in = main_role * TABLES * roles_out = itpz6 * EXCEPTIONS * no_role = 1 * OTHERS = 2.

FSBP_READ_TPZ6 * CALL FUNCTION 'FSBP_READ_TPZ6' * EXPORTING * i_rltyp = main_role * TABLES * et_tpz6 = itpz6 * EXCEPTIONS * no_role = 1 * OTHERS = 2.

FVD_TDPZ6_FOR_RLCAT_GET CALL FUNCTION 'FVD_TDPZ6_FOR_RLCAT_GET' EXPORTING i_rolecat = main_role IMPORTING et_tdpz6 = itdpz6[] EXCEPTIONS no_role_found = 1 no_rlcat_supplied = 2 OTHERS = 3.

FLBP_ROLE_RANGE_FOR_RLCAT_GET CALL FUNCTION 'FLBP_ROLE_RANGE_FOR_RLCAT_GET' EXPORTING it_rlcat = lt_rlcat IMPORTING et_role_rng = lt_role_rng EXCEPTIONS no_role_found = 1 no_rlcat_supplied = 2 OTHERS = 3.

FIND_ONE_SPOUSE CALL FUNCTION 'FIND_ONE_SPOUSE' EXPORTING i_partner = ivzgpo-partnr i_date = txtif-stichtag i_vzgpo = ivzgpo[] IMPORTING e_but000 = ibut000[].

SPOUSE_ADDRESS CALL FUNCTION 'SPOUSE_ADDRESS' EXPORTING i_but000 = ibut000[] i_vzgpo = ivzgpo[] i_date = txtif-stichtag i_bukrs = vdarl-bukrs IMPORTING e_adrs_linek = adrs-linek e_adrs_lined = adrs-lined CHANGING c_adrs_or = adrs_or. "#EC ENHOK

FSBP_FILL_GREETING CALL FUNCTION 'FSBP_FILL_GREETING' EXPORTING i_but000 = but000 IMPORTING e_greeting_line = rmf67-xgreeting.

FIND_ONE_SPOUSE CALL FUNCTION 'FIND_ONE_SPOUSE' EXPORTING i_partner = ivzgpo-partnr i_date = txtif-stichtag i_vzgpo = ivzgpo[] IMPORTING e_but000 = ibut000[].

SPOUSE_ADDRESS CALL FUNCTION 'SPOUSE_ADDRESS' EXPORTING i_but000 = ibut000[] i_vzgpo = ivzgpo[] i_date = txtif-stichtag i_bukrs = vdarl-bukrs IMPORTING e_adrs_linek = rmf67-xgreeting e_adrs_lined = adrs-lined CHANGING c_adrs_or = adrs_or. "#EC ENHOK

FIND_BOTH_SPOUSES ** call function 'FIND_BOTH_SPOUSES' ** exporting ** i_vzgpo = ivzgpo ** i_date = txtif-stichtag ** importing ** e_but000 = ibut000[].

SPOUSE_ADDRESS ** call function 'SPOUSE_ADDRESS' ** exporting ** i_but000 = ibut000[] ** i_vzgpo = ivzgpo[] ** i_date = txtif-stichtag ** importing ** e_adrs_linek = rmf67-xgreeting ** e_adrs_lined = adrs-lined ** changing ** c_adrs_or = adrs-or.

BPAR_P_ADDRESS_READ_INTO_PRINT * CALL FUNCTION 'BPAR_P_ADDRESS_READ_INTO_PRINT' * EXPORTING ** ADDRESS_INTO_MEMORY = ' ' * adr_ref = p_adrref * companycode = t001-bukrs ** COUNT_LINES = 5 * date = p_stichtag * no_address = 'X' "ok even if no address * partner = p_partnr ** ROLE = ' ' * IMPORTING * address = p_adrs * partner_entry = p_bp000 ** PARTNER_ADREF = * EXCEPTIONS * address = 1 * partner = 2 * OTHERS = 3.




FTBP_READ_PARTNER CALL FUNCTION 'FTBP_READ_PARTNER' EXPORTING i_partner = p_partnr i_cp_exclude = 'X' "XJY i_is_exclude = 'X' "XJY IMPORTING e_bus000 = wa_bus000 EXCEPTIONS partner = 1 partner_not_released = 2 wrong_parameters = 3 data_for_data_not_act = 4 OTHERS = 5.

FTBP_READ_ADDRESS_PRINT CALL FUNCTION 'FTBP_READ_ADDRESS_PRINT' EXPORTING i_partner = p_partnr i_adr_kind = p_adrref i_date = p_stichtag i_bukrs = t001-bukrs i_sender_country = t001-land1 " note 790309 2004 CS i_count_lines = '10' " note 811257 2005 CS IMPORTING address_printform = address_printform address_short_form_s = address_short_form_s address_printform_table_10 = itaddressprint e_bus020_ext = bus020_ext.

OPEN_FORM CALL FUNCTION 'OPEN_FORM' EXPORTING application = 'TX' archive_index = i_toa_dara archive_params = i_arc_params device = 'PRINTER' dialog = dialog form = ' ' language = rstxt-tdspras OPTIONS = linkitcpo IMPORTING result = itcpp " note 863437 2005 CS EXCEPTIONS canceled = 1 device = 2 form = 3 OPTIONS = 4 unclosed = 5 mail_options = 6 archive_error = 7 OTHERS = 8.

CLOSE_FORM CALL FUNCTION 'CLOSE_FORM' IMPORTING RESULT = linkitcpp EXCEPTIONS unopened = 01.

FVDD_WRITE_VDUNTR CALL FUNCTION 'FVDD_WRITE_VDUNTR' EXPORTING i_direction = 'OUT' i_object_id = i_toa_dara-object_id i_unterlagenart = ttxbf-suart i_document_date = txtif-briefdatum i_tzkvt = tzkvt i_document_address = adrs i_brief = ttxbf-xbrfbs * i_snuntr = i_arc_objid-snuntr i_snuntr = g_snuntr TABLES contracts = contracts EXCEPTIONS insert_error = 1 OTHERS = 2.

DEQUEUE_EFVDUNTR CALL FUNCTION 'DEQUEUE_EFVDUNTR' EXPORTING * MODE_VDUNTR = 'E' * MANDT = SY-MANDT * SNUNTR = sakt = vdarl-xakt * X_SNUNTR = ' ' * X_SAKT = ' ' * _SCOPE = '3' * _SYNCHRON = ' ' * _COLLECT = ' ' .



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