RFVDZAP0 SAP ABAP Report - Loan Interest Adjustment Run

RFVDZAP0 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for The report RFVDZAP0 selects loans with reference interest rates (e...see full standard documentation available for this report. Also check out the submitted Comments related to this SAP report and the details below to see which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC.

If you would like to execute this report or see the full code listing simply enter RFVDZAP0 into the relevant SAP transactions such as SE38 or SE80

Transaction Code(s):

Below is a list of transaction codes which are relevant to this SAP report

FNQ9 - Int. adjustment run

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.

Text pool values

INCLUDES used within this REPORT RFVDZAP0

INCLUDE VDCONST0.

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:

FLBP_ROLE_RANGE_FOR_RLCAT_GET
    CALL FUNCTION 'FLBP_ROLE_RANGE_FOR_RLCAT_GET'
      EXPORTING
        I_RLCAT                 = role_dar
      IMPORTING
        ET_ROLE_RNG             = gt_role_rng
      EXCEPTIONS
        NO_ROLE_FOUND           = 1
        NO_RLCAT_SUPPLIED       = 2
        OTHERS                  = 3.

LOAN_ACCOUNT_UPDATE
      CALL FUNCTION 'LOAN_ACCOUNT_UPDATE'
        EXPORTING
          i_bepp_bis         = p_stich
          i_refzins_hw       = in_refz
          i_rest_fw          = 'X'
          i_rest_hw          = 'X'
          i_refzins_fw       = in_refz
        IMPORTING
          e_delfz            = i_delfz
        TABLES
          xvdbepp            = xvdbepp
          yvdbepp            = yvdbepp
        CHANGING
          c_wrk_vdarl        = ivdarl
        EXCEPTIONS
          internal_error     = 1
          koko_not_found     = 2
          no_outpayments     = 3
          vdarl_not_selected = 4
          negative_repayment = 5
          OTHERS             = 6.

ISIS_D_PRINT_DOCUMENT
  CALL FUNCTION 'ISIS_D_PRINT_DOCUMENT'
       EXPORTING
            i_bukrs         = ivdarl-bukrs
*         I_CALC_RLOAM    = '0'
*         I_DATE          = SY-DATUM
*         I_DDATE         = SY-DATUM
            i_dialog        = ' '
*         I_GV            = '9999'
*           i_itcpo         = ' '
*         I_LOAD_RVDHOBJ  = ' '
*         I_LOAD_RVDSICH  = ' '
*         I_LOAD_TZZKD    = 'X'
*         I_LOAD_VDARL    = ' '
*         I_LOAD_VDBEKI   = ' '
*         I_LOAD_VDHINT   = ' '
*         I_LOAD_VDSCRIPT = ' '
*         I_LOAD_VZGPO    = ' '
*         I_LOAD_VZZKOKO  = ' '
*         I_PROTOCOL_OUT  = ' '
            i_ranl          = ivdarl-ranl
*         I_RBLNR         = ' '
*         I_SINTNR        = ' '
            i_vdarl         = ivdarl
*         I_VDHINT        = ' '
            i_vdscript      = vdscript
*         I_VDORDER       = ' '
       IMPORTING
            e_rc            = rc
       TABLES
*         E_ERRORS        =
*         E_ITCPP         =
*         I_RVDDOCUTYP    =
*         I_RVDHOBJ       =
*         I_RVDSICH       =
*         I_TZZKD         =
*         I_VDBEKI        =
*         I_VDBEPI        =
*         I_VDBEPP        =
            i_vzgpo         = ivzparo
*         I_VZZKOKO       =
*         I_VZZKOPO       =
       EXCEPTIONS
            OTHERS          = 1.

TEXT_INTERFACE
*  CALL FUNCTION 'TEXT_INTERFACE'
*       EXPORTING
**            adrtyp   = sel_paro-sansadr
*            ADRTYP   = SEL_PARO-ADR_REF                     "KI3K001420
*            BRFNM    = BRFNM
*            BUKRS    = '0001'
*            DRUPARM  = ITCPO
*            PARTNR   = SEL_PARO-PARTNR
*            RANTYP   = '1'
*            SUBANWDG = SUBANWDG
*       IMPORTING
*            ERGEBNIS = ITCPP
*       EXCEPTIONS
*            ADRESS   = 01
*            CANCELED = 02
*            ELEMENT  = 03
*            FORM     = 04
*            OPTIONS  = 05.

FTBP_READ_PARTNER_IN_PRINTFORM
    CALL FUNCTION 'FTBP_READ_PARTNER_IN_PRINTFORM'
      EXPORTING
        adrtyp            = sel_paro-adr_ref
        partnr            = sel_paro-partnr
        bukrs_in          = ivdarl-bukrs
      IMPORTING
        anschwa_out       = adrs
      EXCEPTIONS
        address_not_found = 1
        partner_not_found = 2
        OTHERS            = 3.

FVD_TABLE_INIT
  CALL FUNCTION 'FVD_TABLE_INIT'
    EXCEPTIONS
      OTHERS = 1.

FVD_TABLE_SET_VDBEPP
  CALL FUNCTION 'FVD_TABLE_SET_VDBEPP'
    EXPORTING
      i_tab_vdbepp_old = yvdbepp[]
      i_tab_vdbepp_new = xvdbepp[]
    EXCEPTIONS
      OTHERS           = 1.

FVD_TABLE_INFORM
  CALL FUNCTION 'FVD_TABLE_INFORM'
    IMPORTING
      e_flg_update = l_flg_update
    EXCEPTIONS
      OTHERS       = 1.

FVD_TABLE_SET
  CALL FUNCTION 'FVD_TABLE_SET'
    EXPORTING
      i_tablename       = 'VDARL'
      i_flg_update_user = space
      i_wrk_old         = g_wrk_vdarl_old
      i_wrk_new         = ivdarl
    EXCEPTIONS
      OTHERS            = 1.

FVD_TABLE_UPDATE
  CALL FUNCTION 'FVD_TABLE_UPDATE'
    EXPORTING
      i_flg_update_task = 'X'
      i_flg_simulation  = p_simu
    EXCEPTIONS
      OTHERS            = 1.

FVD_TRLE_DISTRIBUTOR_IF
  CALL FUNCTION 'FVD_TRLE_DISTRIBUTOR_IF'
    EXPORTING
      i_flg_log         = '1'  " display log in popup
      i_flg_simul       = p_simu
      i_flg_distribute  = 'X'  " call TR-Distributor
    EXCEPTIONS
      warning_delete_bt = 0
      OTHERS            = 2.